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

Remove package finding code that finds unrelated packages

Browse Source 
git-svn-id: svn://coreboot.org/openbios/openbios-devel@232 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
Blue Swirl
2008-08-30 10:55:33 +00:00
parent a7188cc237
commit b7d48e0105
1 changed files with 1 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
forth/device/package.fs
View File

@@ -119,17 +119,7 @@ defer find-dev
" /packages" find-dev 0= if 2drop false exit then " /packages" find-dev 0= if 2drop false exit then
find-rel-dev 0= if false exit then find-rel-dev 0= if false exit then
\ Find the most recent node that match. One could make life true
\ simple and add nodes at the head but I prefer it this way.
>r
" name" r@ get-package-property if " " then
r@ begin >dn.peer @ dup while
3dup
" name" rot get-package-property if " " then
strcmp
0= if r> drop dup >r then
repeat 3drop
r> true
; ;
: open-package ( arg-str arg-len phandle -- ihandle | 0 ) : open-package ( arg-str arg-len phandle -- ihandle | 0 )