From da9f79f1d47983d726e90858f85b074dc88d0866 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 7 Apr 2008 10:34:36 +0000
Subject: 	* 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.

---
 src/interp/g-opt.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/g-opt.boot')

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
  
-- 
cgit v1.2.3