[gforth] / gforth / engine / engine.c  

gforth: gforth/engine/engine.c

Diff for /gforth/engine/engine.c between version 1.79 and 1.80

version 1.79, Sun Jan 23 13:56:13 2005 UTC version 1.80, Sun Jul 31 20:27:41 2005 UTC
Line 169 
Line 169 
 #ifndef spcREG  #ifndef spcREG
 #define spcREG  #define spcREG
 #endif  #endif
   #ifndef spdREG
   #define spdREG
   #endif
   #ifndef speREG
   #define speREG
   #endif
 #ifndef FTOSREG  #ifndef FTOSREG
 #define FTOSREG  #define FTOSREG
 #endif  #endif
Line 223 
Line 229 
 #endif  #endif
   
 #ifdef HAS_FFCALL  #ifdef HAS_FFCALL
 #define SAVE_REGS IF_spTOS(sp[0]=spTOS); IF_fpTOS(fp[0]=fpTOS); SP=sp; FP=fp; RP=rp; LP=lp;  #define SAVE_REGS IF_fpTOS(fp[0]=fpTOS); SP=sp; FP=fp; RP=rp; LP=lp;
 #define REST_REGS sp=SP; fp=FP; rp=RP; lp=LP; IF_spTOS(spTOS=sp[0]); IF_fpTOS(fpTOS=fp[0]);  #define REST_REGS sp=SP; fp=FP; rp=RP; lp=LP; IF_fpTOS(fpTOS=fp[0]);
 #endif  #endif
   
 #if !defined(ENGINE)  #if !defined(ENGINE)
Line 286 
Line 292 
   void * prv;    void * prv;
 #endif  #endif
   register Address up UPREG = UP;    register Address up UPREG = UP;
   IF_spTOS(register Cell MAYBE_UNUSED spTOS TOSREG;)    register Cell MAYBE_UNUSED spTOS TOSREG;
   register Cell MAYBE_UNUSED spb spbREG;    register Cell MAYBE_UNUSED spb spbREG;
   register Cell MAYBE_UNUSED spc spcREG;    register Cell MAYBE_UNUSED spc spcREG;
     register Cell MAYBE_UNUSED spd spdREG;
     register Cell MAYBE_UNUSED spe speREG;
   IF_fpTOS(register Float fpTOS FTOSREG;)    IF_fpTOS(register Float fpTOS FTOSREG;)
 #if defined(DOUBLY_INDIRECT)  #if defined(DOUBLY_INDIRECT)
   static Label *symbols;    static Label *symbols;
Line 350 
Line 358 
     return symbols;      return symbols;
   }    }
   
   IF_spTOS(spTOS = sp[0]);  #if STACK_CACHE_DEFAULT>0
     sp += STACK_CACHE_DEFAULT-1;
   #endif
   
   #if STACK_CACHE_DEFAULT>0
     spTOS = sp[0];
   #endif
   #if STACK_CACHE_DEFAULT>1
     spb = sp[-1];
   #endif
   #if STACK_CACHE_DEFAULT>2
     spc = sp[-2];
   #endif
   #if STACK_CACHE_DEFAULT>3
     spd = sp[-3];
   #endif
   #if STACK_CACHE_DEFAULT>4
     spe = sp[-4];
   #endif
   
   IF_fpTOS(fpTOS = fp[0]);    IF_fpTOS(fpTOS = fp[0]);
 /*  prep_terminal(); */  /*  prep_terminal(); */
 #ifdef NO_IP  #ifdef NO_IP

Generate output suitable for use with a patch program
Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help