version 1.22, 2007/12/31 18:40:24
|
version 1.24, 2010/06/10 09:40:08
|
Line 113 Variable au
|
Line 113 Variable au
|
|
|
: search-magic ( fd -- ) >r |
: search-magic ( fd -- ) >r |
BEGIN magicbuf 8 r@ read-file throw 8 = WHILE |
BEGIN magicbuf 8 r@ read-file throw 8 = WHILE |
magicbuf s" Gforth3" tuck str= UNTIL |
magicbuf s" Gforth4" tuck str= UNTIL |
ELSE true abort" No magic found" THEN |
ELSE true abort" No magic found" THEN |
1 magicbuf 7 + c@ 5 rshift 3 and lshift tchars ! |
1 magicbuf 7 + c@ 5 rshift 3 and lshift tchars ! |
1 magicbuf 7 + c@ 1 rshift 3 and lshift tcell ! |
1 magicbuf 7 + c@ 1 rshift 3 and lshift tcell ! |
Line 169 Variable bitmap-chars
|
Line 169 Variable bitmap-chars
|
." INST_ADDR(" type ." )" |
." INST_ADDR(" type ." )" |
THEN |
THEN |
ELSE |
ELSE |
dup IF ." ((void*)image)+" THEN .08x |
dup IF ." ((void*)image)+" $10 - THEN .08x |
THEN |
THEN |
ELSE |
ELSE |
." (void*)" .08x |
." (void*)" .08x |