diff options
| author | Daniel C. Sobral <dcs@FreeBSD.org> | 2000-09-16 20:20:44 +0000 |
|---|---|---|
| committer | Daniel C. Sobral <dcs@FreeBSD.org> | 2000-09-16 20:20:44 +0000 |
| commit | df3c7d3993ca92f32920e520a2d69ed75aa118b6 (patch) | |
| tree | 81cbace63ba29eeef6797816a83b5ef1c57b1462 /sys/boot/forth | |
| parent | cb4d93cdbfe7b2da074a8a93137e3ae4054c463a (diff) | |
Notes
Diffstat (limited to 'sys/boot/forth')
| -rw-r--r-- | sys/boot/forth/loader.4th | 8 | ||||
| -rw-r--r-- | sys/boot/forth/support.4th | 10 |
2 files changed, 12 insertions, 6 deletions
diff --git a/sys/boot/forth/loader.4th b/sys/boot/forth/loader.4th index 69a16143c65b..3ac4bf7c853e 100644 --- a/sys/boot/forth/loader.4th +++ b/sys/boot/forth/loader.4th @@ -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 ; diff --git a/sys/boot/forth/support.4th b/sys/boot/forth/support.4th index 20f18735caca..a1c6f68cb91e 100644 --- a/sys/boot/forth/support.4th +++ b/sys/boot/forth/support.4th @@ -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 |