[gforth] / gforth / engine / main.c  

gforth: gforth/engine/main.c

Diff for /gforth/engine/main.c between version 1.243 and 1.244

version 1.243, Wed Mar 14 15:38:14 2012 UTC version 1.244, Sat Mar 17 22:18:59 2012 UTC
Line 68 
Line 68 
 __thread Cell *gforth_RP;  __thread Cell *gforth_RP;
 __thread Address gforth_LP;  __thread Address gforth_LP;
   
 #ifndef HAS_LINKBACK  
 __thread void * gforth_pointers[8];  
 #endif  
   
 #ifdef HAS_FFCALL  #ifdef HAS_FFCALL
   
 #include <callback.h>  #include <callback.h>
Line 2316 
Line 2312 
 }  }
 #endif  #endif
   
 void gforth_linkback()  void* gforth_pointers(Cell n)
 {  {
 #ifndef HAS_LINKBACK    switch(n) {
   gforth_pointers[0] = (void*)&gforth_SP;    case 0: return (void*)&gforth_SP;
   gforth_pointers[1] = (void*)&gforth_FP;    case 1: return (void*)&gforth_FP;
   gforth_pointers[2] = (void*)&gforth_LP;    case 2: return (void*)&gforth_LP;
   gforth_pointers[3] = (void*)&gforth_RP;    case 3: return (void*)&gforth_RP;
   gforth_pointers[4] = (void*)&gforth_UP;    case 4: return (void*)&gforth_UP;
   gforth_pointers[5] = (void*)gforth_engine;    case 5: return (void*)&gforth_engine;
 #ifdef HAS_FILE  #ifdef HAS_FILE
   gforth_pointers[6] = (void*)cstr;    case 6: return (void*)&cstr;
   gforth_pointers[7] = (void*)tilde_cstr;    case 7: return (void*)&tilde_cstr;
 #endif  
 #endif  #endif
     case 8: return (void*)&throw_jmp_buf;
     default: return NULL;
     }
 }  }
   
 int main(int argc, char **argv, char **env)  int main(int argc, char **argv, char **env)
Line 2353 
Line 2351 
   asm("fldcw %0" : : "m"(fpu_control));    asm("fldcw %0" : : "m"(fpu_control));
 #endif /* defined(__i386) */  #endif /* defined(__i386) */
   
 #ifndef HAS_LINKBACK  
   gforth_linkback();  
 #endif  
   
 #ifdef MACOSX_DEPLOYMENT_TARGET  #ifdef MACOSX_DEPLOYMENT_TARGET
   setenv("MACOSX_DEPLOYMENT_TARGET", MACOSX_DEPLOYMENT_TARGET, 0);    setenv("MACOSX_DEPLOYMENT_TARGET", MACOSX_DEPLOYMENT_TARGET, 0);
 #endif  #endif

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help