From 36b22c4ce6b2f228f55dfe44c8d510cf8c7a941e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 29 Nov 2008 08:59:03 +0000 Subject: * interp/nruncomp.boot (deltaTran): Don't encode signature again. (genDeltaEntry): Remove dead pattern match. --- src/ChangeLog | 5 +++++ src/interp/nruncomp.boot | 8 +++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 930d0a02..59611be8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-11-29 Gabriel Dos Reis + + * interp/nruncomp.boot (deltaTran): Don't encode signature again. + (genDeltaEntry): Remove dead pattern match. + 2008-11-29 Gabriel Dos Reis * interp/compiler.boot (setqSingle): Use setShellEntry. 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 -- cgit v1.2.3