| version 1.141, Fri Aug 15 14:07:04 2003 UTC | version 1.142, Sun Aug 24 09:56:09 2003 UTC | ||
|---|---|---|---|
|
|
||
| : 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 |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |