[gforth] / gforth / Attic / main.c  

gforth: gforth/Attic/main.c

Diff for /gforth/Attic/main.c between version 1.27 and 1.28

version 1.27, Wed Sep 6 21:00:22 1995 UTC version 1.28, Wed Oct 11 19:39:35 1995 UTC
Line 83 
Line 83 
             case CF(DOCON)   :              case CF(DOCON)   :
             case CF(DOUSER)  :              case CF(DOUSER)  :
             case CF(DODEFER) :              case CF(DODEFER) :
             case CF(DOSTRUC) : MAKE_CF(image+i,symbols[CF(image[i])]); break;              case CF(DOFIELD) : MAKE_CF(image+i,symbols[CF(image[i])]); break;
             case CF(DODOES)  : MAKE_DOES_CF(image+i,image[i+1]+((Cell)image));              case CF(DODOES)  : MAKE_DOES_CF(image+i,image[i+1]+((Cell)image));
               break;                break;
             case CF(DOESJUMP): MAKE_DOES_HANDLER(image+i); break;              case CF(DOESJUMP): MAKE_DOES_HANDLER(image+i); break;
Line 176 
Line 176 
     relocate(image,(char *)image+header[1],header[1],engine(0,0,0,0,0));      relocate(image,(char *)image+header[1],header[1],engine(0,0,0,0,0));
   }    }
   else if(image[5]!=(Cell)image) {    else if(image[5]!=(Cell)image) {
     fprintf(stderr,"Corrupted image address, please recompile image\n");      fprintf(stderr,"%s: Cannot load nonrelocatable image (compiled for address 0x%lx) at address 0x%lx\nThe Gforth installer should look into the INSTALL file\n", progname, image[5], (Cell)image);
     exit(1);      exit(1);
   }    }
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help