[gforth] / gforth / glocals.fs  

gforth: gforth/glocals.fs

Diff for /gforth/glocals.fs between version 1.67 and 1.68

version 1.67, Thu Feb 9 17:27:37 2012 UTC version 1.68, Mon Feb 13 22:08:58 2012 UTC
Line 571 
Line 571 
     dead-code off      dead-code off
     defstart ;      defstart ;
   
   [IFDEF] free-old-local-names
 :noname ( -- )  :noname ( -- )
     locals-mem-list @ free-list      locals-mem-list @ free-list
     0 locals-mem-list ! ;      0 locals-mem-list ! ;
 is free-old-local-names  is free-old-local-names
   [THEN]
   
 : locals-;-hook ( sys addr xt sys -- sys )  : locals-;-hook ( sys addr xt sys -- sys )
     def?      def?

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help