Fix disk-label package to use proper instance path
This fixes booting from a path that has an explicitly specified unit address on a wildcard node Signed-off-by: Benjamin Herrenschmidt <benh@kernel.crashing.org>
This commit is contained in:
parent
0ac9a96d1f
commit
7251f5d1dd
|
@ -368,7 +368,7 @@ CONSTANT /partition-entry
|
||||||
|
|
||||||
: load-chrp-boot-file ( addr -- size )
|
: load-chrp-boot-file ( addr -- size )
|
||||||
\ Create bootinfo.txt path name and load that file:
|
\ Create bootinfo.txt path name and load that file:
|
||||||
my-parent ihandle>phandle node>path
|
my-parent instance>path
|
||||||
s" :\ppc\bootinfo.txt" $cat strdup ( addr str len )
|
s" :\ppc\bootinfo.txt" $cat strdup ( addr str len )
|
||||||
open-dev dup 0= IF 2drop 0 EXIT THEN
|
open-dev dup 0= IF 2drop 0 EXIT THEN
|
||||||
>r dup ( addr addr R:ihandle )
|
>r dup ( addr addr R:ihandle )
|
||||||
|
@ -387,7 +387,7 @@ CONSTANT /partition-entry
|
||||||
THEN
|
THEN
|
||||||
|
|
||||||
\ Create the full path to the boot loader:
|
\ Create the full path to the boot loader:
|
||||||
my-parent ihandle>phandle node>path ( addr fnstr fnlen nstr nlen )
|
my-parent instance>path ( addr fnstr fnlen nstr nlen )
|
||||||
s" :" $cat 2swap $cat strdup ( addr str len )
|
s" :" $cat 2swap $cat strdup ( addr str len )
|
||||||
\ Update the bootpath:
|
\ Update the bootpath:
|
||||||
2dup encode-string s" bootpath" set-chosen
|
2dup encode-string s" bootpath" set-chosen
|
||||||
|
|
Loading…
Reference in New Issue