[gforth] / gforth / engine / main.c  

gforth: gforth/engine/main.c

Diff for /gforth/engine/main.c between version 1.53 and 1.54

version 1.53, Mon Jan 14 08:40:24 2002 UTC version 1.54, Tue Jan 15 10:40:04 2002 UTC
Line 506 
Line 506 
   
 Label compile_prim(Label prim)  Label compile_prim(Label prim)
 {  {
   #ifdef DOUBLY_INDIRECT
     if (prim<((Label)(xts+DOESJUMP)) || prim>((Label)(xts+npriminfos))) {
       fprintf(stderr,"compile_prim encountered xt %p\n", prim);
       return prim;
     } else
       return prim-((Label)xts)+((Label)vm_prims);
   #else /* !defined(DOUBLY_INDIRECT) */
 #ifdef IND_JUMP_LENGTH  #ifdef IND_JUMP_LENGTH
   int i;    int i;
   Address old_code_here=code_here;    Address old_code_here=code_here;
Line 533 
Line 540 
 #else  #else
   return prim;    return prim;
 #endif  #endif
   #endif /* !defined(DOUBLY_INDIRECT) */
 }  }
   
 Address loader(FILE *imagefile, char* filename)  Address loader(FILE *imagefile, char* filename)

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help