[gforth] / gforth / wordinfo.fs  

gforth: gforth/wordinfo.fs

Diff for /gforth/wordinfo.fs between version 1.17 and 1.18

version 1.17, Tue Dec 8 22:02:53 1998 UTC version 1.18, Sun Jan 3 21:48:38 1999 UTC
Line 63 
Line 63 
   
 [IFDEF] forthstart  [IFDEF] forthstart
 : xtprim? ( xt -- flag )  : xtprim? ( xt -- flag )
     dictionary-end forthstart within ; \ !! does not work for CODE words      in-dictionary? 0= ; \ !! does not work for CODE words
 [ELSE]  [ELSE]
 : xtprim? ( xt -- flag )  : xtprim? ( xt -- flag )
     dup >body swap >code-address = ; \ !! works only for indirect threaded code      dup >body swap >code-address = ; \ !! works only for indirect threaded code

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help