[gforth] / gforth / Attic / main.c  

gforth: gforth/Attic/main.c

Diff for /gforth/Attic/main.c between version 1.23 and 1.24

version 1.23, Tue Feb 14 18:18:36 1995 UTC version 1.24, Thu Feb 23 20:17:22 1995 UTC
Line 57 
Line 57 
  * addresses within the image are given relative to the start of the image.   * addresses within the image are given relative to the start of the image.
  * If the word is =-1, the address is NIL,   * If the word is =-1, the address is NIL,
  * If the word is between -2 and -5, it's a CFA (:, Create, Constant, User)   * If the word is between -2 and -5, it's a CFA (:, Create, Constant, User)
  * If the word is -6, it's a DOES> CFA   * If the word is -7, it's a DOES> CFA
  * If the word is -7, it's a DOES JUMP   * If the word is -8, it's a DOES JUMP
  * If the word is <-7, it's a primitive   * If the word is <-9, it's a primitive
  */   */
   
 void relocate(Cell *image, char *bitstring, int size, Label symbols[])  void relocate(Cell *image, char *bitstring, int size, Label symbols[])
Line 79 
Line 79 
             case CF(DOVAR)   :              case CF(DOVAR)   :
             case CF(DOCON)   :              case CF(DOCON)   :
             case CF(DOUSER)  :              case CF(DOUSER)  :
             case CF(DODEFER) : MAKE_CF(image+i,symbols[CF(image[i])]); break;              case CF(DODEFER) :
               case CF(DOSTRUC) : 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;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help