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

dir command cleanup

Browse Source 
git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@635 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
Laurent Vivier
2009-11-26 01:47:36 +00:00
parent fc0e681a57
commit 5e57ac49a0
2 changed files with 7 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
forth/debugging/client.fs
View File

@@ -308,20 +308,18 @@ variable bootinfo-size
;
: dir ( "{paths}<cr>" -- )
linefeed parse 2dup
linefeed parse
open-dev dup 0= if
3drop
drop
exit
then
dup >r
dup ihandle>phandle " dir" rot find-method ( xt 0|1 )
dup
" dir" rot ['] $call-method catch
if
swap call-package
else
3drop
cr ." Cannot find dir for this package"
then
r> close-dev
close-dev
;
: go ( -- )