jimzah/freebsd-src
1
0
Fork 0
mirror of https://github.com/freebsd/freebsd-src.git synced 2024-11-29 17:32:43 +00:00
Code Issues Actions 2 Packages Projects Releases Wiki Activity

Solve a name clash.

Browse Source 
Add something to help debugging.
This commit is contained in:
Daniel C. Sobral 2000-09-16 20:20:44 +00:00
parent cb4d93cdbf
commit df3c7d3993
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=65945
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sys/boot/forth/loader.4th
View File

@ -66,26 +66,26 @@ only forth also support-functions also builtins definitions
0 1 unload drop
else
s" kernelname" getenv? 0= if ( no kernel has been loaded )
load_conf
load_kernel_and_modules
?dup if exit then
then
1 boot exit
then
else
s" kernelname" getenv? 0= if ( no kernel has been loaded )
load_conf
load_kernel_and_modules
?dup if exit then
then
1 boot exit
then
load_conf
load_kernel_and_modules
?dup 0= if 0 1 boot then
;
: boot-conf
0= if ( interpreted ) get-arguments then
0 1 unload drop
load_conf
load_kernel_and_modules
?dup 0= if 0 1 autoboot then
;

10
sys/boot/forth/support.4th
View File

@ -1286,7 +1286,13 @@ also builtins
begin
parse-; 2>r
2over 2r>
r@ clip_args 1 load
r@ clip_args
s" DEBUG" getenv? if
s" echo Module_path: ${module_path}" evaluate
." Kernel : " >r 2dup type r> cr
dup 2 = if ." Flags : " >r 2over type r> cr then
then
1 load
while
dup 0=
until
@ -1595,7 +1601,7 @@ also builtins
drop ( empty string )
;
: load_conf ( args -- flag )
: load_kernel_and_modules ( args -- flag )
set-tempoptions
argc >r
s" temp_options" getenv dup -1 <> if