[OpenBIOS] r484 - trunk/openbios-devel/forth/device
svn at openbios.org
svn at openbios.org
Mon Apr 13 19:05:41 CEST 2009
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
;
More information about the OpenBIOS
mailing list