[gforth] / gforth / kernel / tools.fs  

gforth: gforth/kernel/tools.fs

Diff for /gforth/kernel/tools.fs between version 1.7 and 1.8

version 1.7, Wed Feb 3 00:10:26 1999 UTC version 1.8, Sun Feb 21 14:55:44 1999 UTC
Line 45 
Line 45 
   
 : .4 ( addr -- addr' )  : .4 ( addr -- addr' )
     3 FOR  -1 /dump +!  /dump @ 0<      3 FOR  -1 /dump +!  /dump @ 0<
         IF  ."    "  ELSE  dup c@ 0 <# # # #> type space  THEN          IF  ."    "  ELSE  dup c@ 0 <<# >r # # r> #>> type space  THEN
     char+ NEXT ;      char+ NEXT ;
 : .chars ( addr -- )  : .chars ( addr -- )
     /dump @ bounds      /dump @ bounds

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help