version 1.66, 2010/04/11 15:37:22
|
version 1.69, 2010/04/18 16:39:55
|
Line 529 VARIABLE C-Pass
|
Line 529 VARIABLE C-Pass
|
ELSE 2drop |
ELSE 2drop |
THEN ; |
THEN ; |
|
|
[IFDEF] (does>) |
[IFDEF] !does |
: c-does> \ end of create part |
: c-does> \ end of create part |
Display? IF S" DOES> " Com# .string THEN ; |
Display? IF S" DOES> " Com# .string THEN ; |
\ maxaligned /does-handler + ; \ !! no longer needed for non-cross stuff |
\ maxaligned /does-handler + ; \ !! no longer needed for non-cross stuff |
Line 576 CREATE C-Table
|
Line 576 CREATE C-Table
|
[IFDEF] (abort") ' (abort") A, ' c-abort" A, [THEN] |
[IFDEF] (abort") ' (abort") A, ' c-abort" A, [THEN] |
\ only defined if compiler is loaded |
\ only defined if compiler is loaded |
[IFDEF] (compile) ' (compile) A, ' c-(compile) A, [THEN] |
[IFDEF] (compile) ' (compile) A, ' c-(compile) A, [THEN] |
[IFDEF] (does>) ' (does>) A, ' c-does> A, [THEN] |
[IFDEF] !does ' !does A, ' c-does> A, [THEN] |
0 , here 0 , |
0 , here 0 , |
|
|
avariable c-extender |
avariable c-extender |
Line 657 Defer xt-see-xt ( xt -- )
|
Line 657 Defer xt-see-xt ( xt -- )
|
space ; |
space ; |
|
|
Defer discode ( addr u -- ) \ gforth |
Defer discode ( addr u -- ) \ gforth |
\G hook for the disassembler: disassemble code at addr of length u |
\G hook for the disassembler: disassemble u bytes of code at addr |
' dump IS discode |
' dump IS discode |
|
|
: next-head ( addr1 -- addr2 ) \ gforth |
: next-head ( addr1 -- addr2 ) \ gforth |
Line 706 Defer discode ( addr u -- ) \ gforth
|
Line 706 Defer discode ( addr u -- ) \ gforth
|
then |
then |
over - discode |
over - discode |
." end-code" cr ; |
." end-code" cr ; |
|
: seeabicode ( xt -- ) |
|
dup s" ABI-Code" .defname |
|
>body dup dup next-head |
|
swap - discode |
|
." end-code" cr ; |
: seevar ( xt -- ) |
: seevar ( xt -- ) |
s" Variable" .defname cr ; |
s" Variable" .defname cr ; |
: seeuser ( xt -- ) |
: seeuser ( xt -- ) |
Line 771 Defer discode ( addr u -- ) \ gforth
|
Line 776 Defer discode ( addr u -- ) \ gforth
|
[IFDEF] dofield: |
[IFDEF] dofield: |
dofield: of seefield endof |
dofield: of seefield endof |
[THEN] |
[THEN] |
|
[IFDEF] doabicode: |
|
doabicode: of seeabicode endof |
|
[THEN] |
over of seecode endof \ direct threaded code words |
over of seecode endof \ direct threaded code words |
over >body of seecode endof \ indirect threaded code words |
over >body of seecode endof \ indirect threaded code words |
2drop abort" unknown word type" |
2drop abort" unknown word type" |