diff options
author | dos-reis <gdr@axiomatics.org> | 2011-11-26 09:07:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-11-26 09:07:18 +0000 |
commit | 7b2ac81092d360b63ba6ff360aae7b2f8570133c (patch) | |
tree | 0de775a6b2e38e018f2177a7d06ec845b086d0d9 /src/interp/define.boot | |
parent | db6d06dab90131e3551f7c9f33337f115a8782fa (diff) | |
download | open-axiom-7b2ac81092d360b63ba6ff360aae7b2f8570133c.tar.gz |
* interp/define.boot ($NRTdeltaList): Remove.
($NRTdeltaListComp): Likeewise.
(compDefineFunctor1): Do not bind them.
(assignCapsuleFunctionSlot): Use dbUsedEntities.
* interp/nruncomp.boot (NRTaddDeltaCode): Likewise.
(dbEntitySlot): New.
(NRTassocIndex): Use it.
(genDeltaEntry): Use dbUsedEntities.
(getLocalIndex): Likewise.
(vectorLocation): Likewise.
(NRTsubstDelta): Likewise.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 881c996c..644f71dd 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -66,7 +66,6 @@ $condAlist := [] $uncondAlist := [] $NRTslot1PredicateList := [] $NRTattributeAlist := [] -$NRTdeltaListComp := [] $signature := nil $byteAddress := nil $sigAlist := [] @@ -1419,8 +1418,6 @@ compDefineFunctor1(df is ['DEF,form,signature,body], $NRTslot1PredicateList: local := predicatesFromAttributes attributeList $NRTattributeAlist: local := NRTgenInitialAttributeAlist(db,attributeList) $NRTaddForm: local := nil -- see compAdd - $NRTdeltaList: local := nil --list of misc. elts used in compiled fncts - $NRTdeltaListComp: local := nil --list of compiled forms for $NRTdeltaList -- Generate slots for arguments first, then implicit parameters, -- then for $NRTaddForm (if any) in compAdd for x in argl repeat getLocalIndex(db,x) @@ -1707,10 +1704,11 @@ assignCapsuleFunctionSlot(db,op,sig) == sig := substitute('$,second dbConstructorForm db,sig) sig := [getLocalIndex(db,x) for x in sig] opModemapPair := [op,['_$,:sig],["T",implementation]] - valuePosition(opModemapPair,$NRTdeltaList) => nil --already there - $NRTdeltaList:= [opModemapPair,:$NRTdeltaList] - $NRTdeltaListComp := [nil,:$NRTdeltaListComp] + n := dbEntitySlot(db,opModemapPair) => n --already there + n := dbEntityCount db + $NRTbase + dbUsedEntities(db) := [[opModemapPair],:dbUsedEntities db] dbEntityCount(db) := dbEntityCount db + 1 + n localOperation?(op,e) == not symbolMember?(op,$formalArgList) and getXmode(op,e) is ['Mapping,:.] |