Diff for /gforth/simp-see.fs between versions 1.1 and 1.3

version 1.1, 2001/03/28 09:06:57 version 1.3, 2003/02/25 22:58:48
Line 20 Line 20
   
 require see.fs  require see.fs
   
 : simple-see-range ( addr1 addr2 -- )  : simple-see-range ( addr1 addr2 -- ) \ gforth
     swap u+do      swap u+do
         cr i hex. i cell+ i @ .word drop          cr xpos off i hex. i cell+ i @ .word drop
         cell +loop          cell +loop
 ;  ;
   
 : simple-see ( "name" -- )  : simple-see ( "name" -- ) \ gforth
       \G a simple decompiler that's closer to @code{dump} than @code{see}.
     \ !! at the moment NEXT-HEAD is a little too optimistic (see      \ !! at the moment NEXT-HEAD is a little too optimistic (see
     \ comment in HEAD?)      \ comment in HEAD?)
     ' >body dup next-head simple-see-range ;      ' >body dup next-head simple-see-range ;

Removed from v.1.1  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>