diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-07 10:34:36 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-07 10:34:36 +0000 |
| commit | da9f79f1d47983d726e90858f85b074dc88d0866 (patch) | |
| tree | 1091fb7e2473a9910eb0592fa553856c5562df78 /src/interp/g-opt.boot | |
| parent | 498b53ea49bdd7d640fc4f8426e8ecf6b0128cc5 (diff) | |
| download | open-axiom-da9f79f1d47983d726e90858f85b074dc88d0866.tar.gz | |
* interp/compiler.boot (compWithMappingMode): Use getShellEntry.
* interp/define.boot (compDefineFunctor1): Use setShellEntry.
(canCacheLocalDomain): Likewise.
(compilerCases): Likewise.
(doIt): Likewise.
* interp/functor.boot (setVector0): Likewise.
(setVector3): Likewise.
(setVector4part4): Likewise.
(setVector5): Likewise.
(mkVectorWithDeferral): Likewise.
(DescendCodeAdd1): Likewise.
(DescendCode): Likewise.
(ConsantCreator): Likewise.
(SetFunctionSlots): Likewise.
(CheckVector): Likewise.
* interp/g-opt.boot (optCall): Use getShellEntry.
(optSpecialCall): Likewise.
* interp/i-util.boot (devaluate): Likewise.
* interp/nruncomp.boot (buildFunctor): Use setShellEntry.
(NRTsetVector4a): Likewise.
(NRTputInLocalReferences): Use getShellEntry.
(NRTputInHead): Likewise.
* interp/nrunopt.boot (augmentPredVector): Use setShellEntry.
* interp/nruntime.boot (getShellEntry): New.
(setShellEntry): Likewise.
* interp/package.boot (processPackage): Use getShellEntry.
(PackageDescendCode): Use setShellEntry.
* interp/sys-globals.boot ($QuickCode): Remove.
* interp/template.boot (NRTdescendCodeTran): Use setShellEntry.
* interp/types.boot (%Void): New.
(%Shell): New.
* interp/wi2.boot (compDefineFunctor1): Use setShellEntry.
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index a1b91344..c6004799 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -148,14 +148,14 @@ optCall (x is ["call",:u]) == fn is ["PAC",:.] => optPackageCall(x,fn,a) fn is ["applyFun",name] => (RPLAC(first x,"SPADCALL"); RPLAC(rest x,[:a,name]); x) - fn is [q,R,n] and MEMQ(q,'(ELT QREFELT CONST)) => + fn is [q,R,n] and MEMQ(q,'(getShellEntry ELT QREFELT CONST)) => not $bootStrapMode and (w:= optCallSpecially(q,x,n,R)) => w q="CONST" => --+ ["spadConstant",R,n] --putInLocalDomainReferences will change this to ELT or QREFELT RPLAC(first x,"SPADCALL") - if $QuickCode then RPLACA(fn,"QREFELT") + RPLACA(fn,"getShellEntry") RPLAC(rest x,[:a,fn]) x systemErrorHere ['"optCall with", :bright x] @@ -212,7 +212,7 @@ optSpecialCall(x,y,n) == x [fn,:a]:= first x RPLAC(first x,"SPADCALL") - if $QuickCode then RPLACA(fn,"QREFELT") + RPLACA(fn,"getShellEntry") RPLAC(rest x,[:a,fn]) x |