[gforth] / gforth / Attic / apollo68k.h  

gforth: gforth/Attic/apollo68k.h

Diff for /gforth/Attic/apollo68k.h between version 1.1 and 1.2

version 1.1, Fri Feb 11 16:30:45 1994 UTC version 1.2, Tue May 31 07:08:10 1994 UTC
Line 39 
Line 39 
 #define MAKE_CF(cfa,ca)         ({short * _cfa = (short *)cfa; \  #define MAKE_CF(cfa,ca)         ({short * _cfa = (short *)cfa; \
                                   _cfa[0] = 0x4ef9; /* jmp.l */ \                                    _cfa[0] = 0x4ef9; /* jmp.l */ \
                                   *(long *)(_cfa+1) = (long)(ca);})                                    *(long *)(_cfa+1) = (long)(ca);})
 #endif  
   
 /* this is the point where the does code starts if label points to the  /* this is the point where the does code starts if label points to the
  * jump dodoes */   * jump dodoes */
Line 52 
Line 51 
 #define MAKE_DOESJUMP(ca)       ({short * _ca = (short *)ca; \  #define MAKE_DOESJUMP(ca)       ({short * _ca = (short *)ca; \
                                   _ca[0] = 0x4ef9; /* jmp.l */ \                                    _ca[0] = 0x4ef9; /* jmp.l */ \
                                   *(long *)(_ca+1) = (long)&&dodoes;})                                    *(long *)(_ca+1) = (long)&&dodoes;})
   #endif
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help