diff options
| -rw-r--r-- | src/ChangeLog | 11 | ||||
| -rw-r--r-- | src/interp/i-map.boot | 3 | ||||
| -rw-r--r-- | src/interp/i-spec1.boot | 3 | ||||
| -rw-r--r-- | src/interp/i-toplev.boot | 2 | ||||
| -rw-r--r-- | src/interp/nrungo.boot | 4 | ||||
| -rw-r--r-- | src/interp/slam.boot | 3 | ||||
| -rw-r--r-- | src/interp/sys-globals.boot | 6 |
7 files changed, 11 insertions, 21 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index eaf728fc..76c338e2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,14 @@ +2008-08-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/sys-globals.boot ($compilingInputFile): Remove. + ($minivectorNames): Likewise. + * interp/i-map.boot (compileCoerceMap): Don't set $minivectorNames + and $minivectorCode. + * interp/i-spec1.boot (compileADEFBody): Likewise. + * interp/i-toplev.boot (processInteractive): Likewise. + * interp/nrungo.boot (NRTgetMinivectorIndex): Likewise. + * interp/slam.boot (reportFunctionCompilation): Likewise. + 2008-08-02 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/nrungo.boot (NRTisRecurrenceRelation): Lookup "not" with diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index f5ad2a2e..547a8a2b 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -754,10 +754,7 @@ compileCoerceMap(op,argTypes,mm) == parms:= [:parms,'envArg] body := ['SPADCALL,:argCode,['LIST,['function,imp]]] minivectorName := makeInternalMapMinivectorName(name) - $minivectorNames := [[op,:minivectorName],:$minivectorNames] body := substitute(minivectorName,"$$$",body) - if $compilingInputFile then - $minivectorCode := [:$minivectorCode,minivectorName] setDynamicBinding(minivectorName,LIST2REFVEC $minivector) compileInteractive [name,['LAMBDA,parms,body]] CAR sig diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index c0ab9bc5..986e0f6b 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -155,10 +155,7 @@ compileADEFBody(t,vars,types,body,computedResultType) == --+ $compiledOpNameList := [$mapName] minivectorName := makeInternalMapMinivectorName(PNAME $mapName) - $minivectorNames := [[$mapName,:minivectorName],:$minivectorNames] body := substitute(minivectorName,"$$$",body) - if $compilingInputFile then - $minivectorCode := [:$minivectorCode,minivectorName] setDynamicBinding(minivectorName,LIST2REFVEC $minivector) -- The use of the three variables $definingMap, $genValue and $compilingMap diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot index c8f4f9d0..378a1399 100644 --- a/src/interp/i-toplev.boot +++ b/src/interp/i-toplev.boot @@ -156,8 +156,6 @@ processInteractive(form, posnForm) == $fortVar : local := --variable name for FORTRAN output $defaultFortVar $minivector: local := NIL - $minivectorCode: local := NIL - $minivectorNames: local := NIL $domPvar: local := NIL $inRetract: local := NIL object := processInteractive1(form, posnForm) diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot index fd7c9b99..725be391 100644 --- a/src/interp/nrungo.boot +++ b/src/interp/nrungo.boot @@ -323,10 +323,6 @@ NRTgetMinivectorIndex(u,op,sig,domVector) == k := or/[k for k in 0..(s-1) for x in $minivector | EQ(x,u)] => k $minivector := [:$minivector,u] - if $compilingInputFile then - $minivectorCode := [:$minivectorCode,[op,sig,devaluate domVector]] --- pp '"-- minivectorCode -->" --- pp $minivectorCode s NRTisRecurrenceRelation(op,body,minivectorName) == diff --git a/src/interp/slam.boot b/src/interp/slam.boot index b6ad0acc..7ffac994 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -44,10 +44,7 @@ reportFunctionCompilation(op,nam,argl,body,isRecursive) == --+ $compiledOpNameList := [nam] minivectorName := makeInternalMapMinivectorName(nam) - $minivectorNames := [[op,:minivectorName],:$minivectorNames] body := substitute(minivectorName,"$$$",body) - if $compilingInputFile then - $minivectorCode := [:$minivectorCode,minivectorName] setDynamicBinding(minivectorName,LIST2REFVEC $minivector) argl := COPY argl -- play it safe for optimization init := diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot index 67499dec..bd47c14e 100644 --- a/src/interp/sys-globals.boot +++ b/src/interp/sys-globals.boot @@ -419,12 +419,6 @@ OUTPUT_-LIBRARY := nil ++ $newConlist := nil -++ -$compilingInputFile := false - -++ -$minivectorNames := [] - ++ True if the input file uses old semantics of `Rep', ++ e.g. implicit equivalent Rep <-> % with capsules. ++ This semenatics is in effect only when `Rep' is defined |