Now I see the error of my ways.
Previous revision of this file changed the "boot" commands to take no arguments from the stack. This is only valid in the case where a kernel has not been loaded. In that case, load_kernel_and_modules will be called, which takes a list of arguments from the stack. When a kernel is presently loaded, though, the list of arguments must be passed to the boot command, which was the behaviour before the last revision. Fix things for both cases. Noticed by: S-Max and others on that chat room
This commit is contained in:
parent
733c8d0bf2
commit
3851401454
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=66871
@ -65,17 +65,19 @@ only forth also support-functions also builtins definitions
|
||||
c@ [char] - <> if
|
||||
0 1 unload drop
|
||||
else
|
||||
s" kernelname" getenv? 0= if ( no kernel has been loaded )
|
||||
load_kernel_and_modules
|
||||
?dup if exit then
|
||||
s" kernelname" getenv? if ( a kernel has been loaded )
|
||||
1 boot exit
|
||||
then
|
||||
load_kernel_and_modules
|
||||
?dup if exit then
|
||||
0 1 boot exit
|
||||
then
|
||||
else
|
||||
s" kernelname" getenv? 0= if ( no kernel has been loaded )
|
||||
load_kernel_and_modules
|
||||
?dup if exit then
|
||||
s" kernelname" getenv? if ( a kernel has been loaded )
|
||||
1 boot exit
|
||||
then
|
||||
load_kernel_and_modules
|
||||
?dup if exit then
|
||||
0 1 boot exit
|
||||
then
|
||||
load_kernel_and_modules
|
||||
|
Loading…
Reference in New Issue
Block a user