version 1.2, 2002/12/13 21:20:39
|
version 1.4, 2003/03/09 15:16:52
|
Line 1
|
Line 1
|
\ simple-minded see (good for seeing what the compiler produces) |
\ simple-minded see (good for seeing what the compiler produces) |
|
|
\ Copyright (C) 2001 Free Software Foundation, Inc. |
\ Copyright (C) 2001,2003 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
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 xpos off 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 ; |