r583 - trunk/openbios-devel/forth/debugging

Author: laurent
Date: 2009-09-20 21:32:30 +0200 (Sun, 20 Sep 2009)
New Revision: 583

Modified:
   trunk/openbios-devel/forth/debugging/client.fs
Log:
When "load" is used, correctly set bootpath and bootargs.

Signed-off-by: Laurent Vivier

Modified: trunk/openbios-devel/forth/debugging/client.fs
===================================================================
--- trunk/openbios-devel/forth/debugging/client.fs	2009-09-20 04:20:48 UTC (rev 582)
+++ trunk/openbios-devel/forth/debugging/client.fs	2009-09-20 19:32:30 UTC (rev 583)
@@ -276,16 +276,19 @@
   then
   ;

-: encode-bootpath ( str len -- )
-  \ FIXME: need to extract bootargs from bootpath and set it in /chosen
+: (encode-bootpath) ( "{params}<cr>" -- bootpath-str bootpath-len)
+  bl parse 2dup
   " /chosen" (find-dev) if
     " bootpath" rot (property)
   then
+  linefeed parse
+  " /chosen" (find-dev) if
+    " bootargs" rot (property)
+  then
 ;

: load    ( "{params}<cr>" -- )
-  linefeed parse ( str len )
-  2dup encode-bootpath
+  (encode-bootpath)
   open-dev ( ihandle )
   dup 0= if
     drop