[BACK]Return to main.c CVS log [TXT] [DIR] Up to [gforth] / gforth / engine

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

version 1.243, 2012/03/14 15:38:14 version 1.244, 2012/03/17 22:18:59
Line 68  __thread Address gforth_UP=NULL; Line 68  __thread Address gforth_UP=NULL;
 __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  void data_abort_C(void) Line 2312  void data_abort_C(void)
 }  }
 #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  int main(int argc, char **argv, char **e Line 2351  int main(int argc, char **argv, char **e
   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
Removed from v.1.243  
changed lines
  Added in v.1.244

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>