diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-31 00:42:06 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-31 00:42:06 -0800 |
commit | afdfc4da685d9988f8675798bad70a4fccdc4e2d (patch) | |
tree | 6b5b060ba5e760c37aee60643a5aca8c56252003 /src/interp/c-util.boot | |
parent | 79f3a421e49a1b5baf5dd9bed6c2d640dac7dc95 (diff) | |
download | open-axiom-afdfc4da685d9988f8675798bad70a4fccdc4e2d.tar.gz |
Remove a couple of global states from the compiler.
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 8 |
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 |