Added the possibility to debug the "getprop" client interface calls

To analyze the behavior and requirements of boot loaders and OS clients, it's
crucial to know which properties they try to read from our device tree. Thus
we need the possibility to debug the "getprop" client interface call.

Signed-off-by: Thomas Huth <thuth@linux.vnet.ibm.com>

1 files changed, 15 insertions, 3 deletions

diff --git a/slof/fs/client.fs b/slof/fs/client.fs
index 7ffd506..6344085 100644
--- a/slof/fs/client.fs
+++ b/slof/fs/client.fs
@@ -125,9 +125,21 @@ ALSO client-voc DEFINITIONS
 ;
 
 : getprop ( phandle zstr buf len -- len' )
-  >r >r zcount rot get-property
-  0= IF r> swap dup r> min swap >r move r>
-  ELSE r> r> 2drop -1 THEN ;
+   >r >r zcount rot                     ( str-adr str-len phandle   R: len buf )
+   debug-client-interface? IF
+      ." ci: getprop " 3dup . ." '" type ." '"
+   THEN
+   get-property
+   debug-client-interface? IF
+      dup IF ."  ** not found **" THEN
+      cr
+   THEN
+   0= IF
+      r> swap dup r> min swap >r move r>
+   ELSE
+      r> r> 2drop -1
+   THEN
+;
 
 : getproplen ( phandle zstr -- len )
   zcount rot get-property 0= IF nip ELSE -1 THEN ;