aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r--src/interp/c-util.boot8
1 files changed, 5 insertions, 3 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 431e17d9..05e29723 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -141,13 +141,13 @@ macro domainData d ==
structure %CompilationData ==
Record(subst: %Substitution,idata: %Substitution,bytes: List %Fixnum,
shell: %Vector %Thing, items: %Buffer %Pair(%SourceEntity,%Code),
- sigdefs: %List %Thing, lib: %Libstream,outpath: %Pathname) with
+ capsule: %List %Thing, lib: %Libstream,outpath: %Pathname) with
cdSubstitution == (.subst)
cdImplicits == (.idata)
cdBytes == (.bytes)
cdShell == (.shell)
cdItems == (.items)
- cdSignatureDefinitions == (.sigdefs)
+ cdCapsule == (.capsule)
cdLib == (.lib)
cdOutput == (.outpath)
@@ -193,6 +193,9 @@ macro dbUsedEntities db ==
macro dbEntityCount db ==
rest dbEntityBuffer db
+macro dbCapsuleIR db ==
+ cdCapsule dbCompilerData db
+
macro dbLibstream db ==
cdLib dbCompilerData db
@@ -1266,7 +1269,6 @@ $capsuleDirectory := nil
clearCapsuleDirectory() ==
$capsuleDirectory := nil
- $capsuleFunctionStack := nil
++ Return the linkage name of the exported operation associated with
++ slot number `slot'. A nil entry means that either the operation