Return to main.c CVS log | Up to [gforth] / gforth / engine |
version 1.100, 2003/01/30 16:14:31 | version 1.101, 2003/02/01 14:28:07 |
---|---|
Line 264 void relocate(Cell *image, const char *b | Line 264 void relocate(Cell *image, const char *b |
fprintf(stderr,"Primitive %lx, %d of group %d used in this image at $%lx is not implemented by this\n engine (%s); executing this code will crash.\n", (long)-token, tok, group, (long)&image[i],PACKAGE_VERSION); | fprintf(stderr,"Primitive %lx, %d of group %d used in this image at $%lx is not implemented by this\n engine (%s); executing this code will crash.\n", (long)-token, tok, group, (long)&image[i],PACKAGE_VERSION); |
} | } |
} else { | } else { |
// if base is > 0: 0 is a null reference so don't adjust | /* if base is > 0: 0 is a null reference so don't adjust*/ |
if (token>=base) { | if (token>=base) { |
image[i]+=(Cell)start; | image[i]+=(Cell)start; |
} | } |