Virtualization/openbios
1
0
Fork 0
mirror of https://gitlab.com/qemu-project/openbios.git synced 2024-02-13 08:34:06 +08:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
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
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
fcode-num8-signed
then
\ Display offset in verbose mode
?fcode-verbose if
dup ." (offset) " . cr
then
;
\ fcode-string
@@ -147,6 +152,11 @@ defer fcode-c@ \ get byte
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 @@ defer fcode-c@ \ get byte
\
: fcode! ( F:FCode# -- )
here fcode# fcode-ptr !
here fcode#
\ Display fcode# in verbose mode
?fcode-verbose if
dup ." (fcode#) " . cr
then
fcode-ptr !
;