[gforth] / gforth / Attic / main.c  

gforth: gforth/Attic/main.c

Diff for /gforth/Attic/main.c between version 1.36 and 1.37

version 1.36, Fri May 3 13:05:05 1996 UTC version 1.37, Tue Jul 16 20:57:12 1996 UTC
Line 102 
Line 102 
   char bits;    char bits;
 /*   static char bits[8]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01};*/  /*   static char bits[8]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01};*/
   
   /*  printf("relocating %x[%x]\n", image, size); */
   
   for(k=0; k<=steps; k++)    for(k=0; k<=steps; k++)
     for(j=0, bits=bitstring[k]; j<8; j++, i++, bits<<=1)      for(j=0, bits=bitstring[k]; j<8; j++, i++, bits<<=1)
       if(bits & 0x80)        if(bits & 0x80)
Line 118 
Line 120 
             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;
             default          : image[i]=(Cell)CA(CF(image[i]));              default          :
   /*            printf("Code field generation image[%x]:=CA(%x)\n",
                        i, CF(image[i]));
   */            image[i]=(Cell)CA(CF(image[i]));
             }              }
         else          else
           image[i]+=(Cell)image;            image[i]+=(Cell)image;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help