From 7948face2b423b3a036efa7fc1f44603ccc02b28 Mon Sep 17 00:00:00 2001
From: Blue Swirl <blauwirbel@gmail.com>
Date: Mon, 13 Apr 2009 17:05:41 +0000
Subject: [PATCH] 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
---
 forth/device/fcode.fs | 18 +++++++++++++++++-
 forth/device/feval.fs |  7 +++++++
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/forth/device/fcode.fs b/forth/device/fcode.fs
index 526432c..85d4dda 100644
--- a/forth/device/fcode.fs
+++ b/forth/device/fcode.fs
@@ -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 !
   ;
 
   
diff --git a/forth/device/feval.fs b/forth/device/feval.fs
index e603da2..c614648 100644
--- a/forth/device/feval.fs
+++ b/forth/device/feval.fs
@@ -25,6 +25,13 @@ defer init-fcode-table
   ;
 
 : (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
   ;