[gforth] / gforth / engine / main.c  

gforth: gforth/engine/main.c

Diff for /gforth/engine/main.c between version 1.139 and 1.140

version 1.139, Tue Jan 20 19:07:41 2004 UTC version 1.140, Sat Apr 10 00:16:55 2004 UTC
Line 70 
Line 70 
   
 void engine_callback(Xt* fcall, void * alist)  void engine_callback(Xt* fcall, void * alist)
 {  {
     /* save global valiables */
     Cell *rp = RP;
     Cell *sp = SP;
     Float *fp = FP;
     Address lp = LP;
   
   clist = (va_alist)alist;    clist = (va_alist)alist;
   engine(fcall, SP, RP, FP, LP);  
     engine(fcall, sp, rp, fp, lp);
   
     /* restore global variables */
     RP = rp;
     SP = sp;
     FP = fp;
     LP = lp;
 }  }
 #endif  #endif
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help