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 Laurent@Vivier.eu
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