Author: blueswirl Date: 2009-04-13 19:05:41 +0200 (Mon, 13 Apr 2009) New Revision: 484
Modified: trunk/openbios-devel/forth/device/fcode.fs trunk/openbios-devel/forth/device/feval.fs Log: Display more information when ?fcode-verbose enabled (Mark Cave-Ayland)
Modified: trunk/openbios-devel/forth/device/fcode.fs =================================================================== --- trunk/openbios-devel/forth/device/fcode.fs 2009-04-12 18:53:37 UTC (rev 483) +++ trunk/openbios-devel/forth/device/fcode.fs 2009-04-13 17:05:41 UTC (rev 484) @@ -135,6 +135,11 @@ else fcode-num8-signed then + + \ Display offset in verbose mode + ?fcode-verbose if + dup ." (offset) " . cr + then ;
\ fcode-string @@ -147,6 +152,11 @@ 2dup bounds ?do fcode-num8 i c! loop + + \ Display string in verbose mode + ?fcode-verbose if + 2dup ." (const) " type cr + then ;
\ fcode-header @@ -171,7 +181,13 @@ \
: fcode! ( F:FCode# -- ) - here fcode# fcode-ptr ! + here fcode# + + \ Display fcode# in verbose mode + ?fcode-verbose if + dup ." (fcode#) " . cr + then + fcode-ptr ! ;
Modified: trunk/openbios-devel/forth/device/feval.fs =================================================================== --- trunk/openbios-devel/forth/device/feval.fs 2009-04-12 18:53:37 UTC (rev 483) +++ trunk/openbios-devel/forth/device/feval.fs 2009-04-13 17:05:41 UTC (rev 484) @@ -25,6 +25,13 @@ ;
: (debug-feval) ( fcode# -- fcode# ) + \ Address + fcode-stream 1 - . ." : " + + \ Indicate if word is compiled + state @ 0<> if + ." (compile) " + then dup fcode>xt cell - lfa2name type dup ." [ 0x" . ." ]" cr ;