Diff for /gforth/engine/main.c between versions 1.100 and 1.101

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;
           }            }

Removed from v.1.100  
changed lines
  Added in v.1.101


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