[gforth] / gforth / engine / main.c  

gforth: gforth/engine/main.c

Diff for /gforth/engine/main.c between version 1.25 and 1.26

version 1.25, Sat Mar 20 09:20:32 1999 UTC version 1.26, Mon May 10 13:55:07 1999 UTC
Line 147 
Line 147 
           image[i]+=(Cell)image;            image[i]+=(Cell)image;
       }        }
     }      }
   ((ImageHeader*)(image))->base = image;    ((ImageHeader*)(image))->base = (Address) image;
 }  }
   
 UCell checksum(Label symbols[])  UCell checksum(Label symbols[])
Line 313 
Line 313 
     if (rp <= rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {      if (rp <= rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {
       /* no rstack overflow or underflow */        /* no rstack overflow or underflow */
       rp0 = rp;        rp0 = rp;
       *--rp0 = ip;        *--rp0 = (int) ip;
     }      }
     else /* I love non-syntactic ifdefs :-) */      else /* I love non-syntactic ifdefs :-) */
 #endif  #endif

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help