version 1.141, 2003/08/15 14:07:04
|
version 1.142, 2003/08/24 09:56:09
|
Line 1173 variable tail-nextp2 \ xt to execute for
|
Line 1173 variable tail-nextp2 \ xt to execute for
|
: print-item { n stack -- } |
: print-item { n stack -- } |
\ print nth stack item name |
\ print nth stack item name |
stack stack-type @ type-c-name 2@ type space |
stack stack-type @ type-c-name 2@ type space |
." _" stack stack-pointer 2@ type n 0 .r ; |
." MAYBE_UNUSED _" stack stack-pointer 2@ type n 0 .r ; |
|
|
: print-declarations-combined ( -- ) |
: print-declarations-combined ( -- ) |
max-stacks 0 ?do |
max-stacks 0 ?do |