diff options
author | dos-reis <gdr@axiomatics.org> | 2008-11-29 08:59:03 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-11-29 08:59:03 +0000 |
commit | 36b22c4ce6b2f228f55dfe44c8d510cf8c7a941e (patch) | |
tree | 0df9d592f8c5006ef69b2b417ea1b0a1ba3eab4d /src/interp | |
parent | 8713b86619d3b01bf6af78af9429c6b032937ed4 (diff) | |
download | open-axiom-36b22c4ce6b2f228f55dfe44c8d510cf8c7a941e.tar.gz |
* interp/nruncomp.boot (deltaTran): Don't encode signature again.
(genDeltaEntry): Remove dead pattern match.
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/nruncomp.boot | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 73e3b796..0abae2c3 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -100,15 +100,14 @@ deltaTran(item,compItem) == [op,:modemap] := item [dcSig,[.,[kind,:.]]] := modemap [dc,:sig] := dcSig - sig := MSUBST('$,dc,substitute("$$",'$,sig)) + -- NOTE: sig is already in encoded form since it comes from $NRTdeltaList; + -- so we need only encode dc. -- gdr 2008-11-28. dcCode := dc = '$ => 0 dc = $NRTaddForm => 5 NRTassocIndex dc or keyedSystemError("S2NR0004",[dc]) - formalSig:= SUBLISLIS($FormalMapVariableList,$formalArgList,sig) kindFlag:= (kind = 'CONST => 'CONST; nil) - newSig := [NRTassocIndex x or x for x in formalSig] - [newSig,dcCode,op,:kindFlag] + [sig,dcCode,op,:kindFlag] NRTreplaceAllLocalReferences(form) == $devaluateList :local := [] @@ -188,7 +187,6 @@ optDeltaEntry(op,sig,dc,eltOrConst) == genDeltaEntry opMmPair == --called from compApplyModemap --$NRTdeltaLength=0.. always equals length of $NRTdeltaList - [.,[odc,:.],.] := opMmPair [op,[dc,:sig],[.,cform:=[eltOrConst,.,nsig]]] := opMmPair if $profileCompiler = true then profileRecord(dc,op,sig) eltOrConst = 'XLAM => cform |