Virtualization
/
openbios
mirror of https://gitlab.com/qemu-project/openbios.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Display more information when ?fcode-verbose enabled (Mark Cave-Ayland) 

git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@484 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
Blue Swirl 2009-04-13 17:05:41 +00:00
parent 604f68deaf
commit 7948face2b
2 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
forth/device/fcode.fs
View File

@ -135,6 +135,11 @@ defer fcode-c@ \ get byte
else else
fcode-num8-signed fcode-num8-signed
then then
\ Display offset in verbose mode
?fcode-verbose if
dup ." (offset) " . cr
then
; ;
\ fcode-string \ fcode-string
@ -147,6 +152,11 @@ defer fcode-c@ \ get byte
2dup bounds ?do 2dup bounds ?do
fcode-num8 i c! fcode-num8 i c!
loop loop
\ Display string in verbose mode
?fcode-verbose if
2dup ." (const) " type cr
then
; ;
\ fcode-header \ fcode-header
@ -171,7 +181,13 @@ defer fcode-c@ \ get byte
\ \
: fcode! ( F:FCode# -- ) : fcode! ( F:FCode# -- )
here fcode# fcode-ptr ! here fcode#
\ Display fcode# in verbose mode
?fcode-verbose if
dup ." (fcode#) " . cr
then
fcode-ptr !
; ;

7
forth/device/feval.fs
View File

@ -25,6 +25,13 @@ defer init-fcode-table
; ;
: (debug-feval) ( fcode# -- fcode# ) : (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 fcode>xt cell - lfa2name type
dup ." [ 0x" . ." ]" cr dup ." [ 0x" . ." ]" cr
; ;