Deleted Added
full compact
loader.4th (66346) loader.4th (66871)
1\ Copyright (c) 1999 Daniel C. Sobral <dcs@freebsd.org>
2\ All rights reserved.
3\
4\ Redistribution and use in source and binary forms, with or without
5\ modification, are permitted provided that the following conditions
6\ are met:
7\ 1. Redistributions of source code must retain the above copyright
8\ notice, this list of conditions and the following disclaimer.

--- 8 unchanged lines hidden (view full) ---

17\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23\ SUCH DAMAGE.
24\
1\ Copyright (c) 1999 Daniel C. Sobral <dcs@freebsd.org>
2\ All rights reserved.
3\
4\ Redistribution and use in source and binary forms, with or without
5\ modification, are permitted provided that the following conditions
6\ are met:
7\ 1. Redistributions of source code must retain the above copyright
8\ notice, this list of conditions and the following disclaimer.

--- 8 unchanged lines hidden (view full) ---

17\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23\ SUCH DAMAGE.
24\
25\ $FreeBSD: head/sys/boot/forth/loader.4th 66346 2000-09-25 11:18:02Z dcs $
25\ $FreeBSD: head/sys/boot/forth/loader.4th 66871 2000-10-09 11:29:40Z dcs $
26
27s" arch-alpha" environment? [if] [if]
28 s" loader_version" environment? [if]
29 11 < [if]
30 .( Loader version 1.1+ required) cr
31 abort
32 [then]
33 [else]

--- 26 unchanged lines hidden (view full) ---

60 0= if ( interpreted ) get_arguments then
61
62 \ Unload only if a path was passed
63 dup if
64 >r over r> swap
65 c@ [char] - <> if
66 0 1 unload drop
67 else
26
27s" arch-alpha" environment? [if] [if]
28 s" loader_version" environment? [if]
29 11 < [if]
30 .( Loader version 1.1+ required) cr
31 abort
32 [then]
33 [else]

--- 26 unchanged lines hidden (view full) ---

60 0= if ( interpreted ) get_arguments then
61
62 \ Unload only if a path was passed
63 dup if
64 >r over r> swap
65 c@ [char] - <> if
66 0 1 unload drop
67 else
68 s" kernelname" getenv? 0= if ( no kernel has been loaded )
69 load_kernel_and_modules
70 ?dup if exit then
68 s" kernelname" getenv? if ( a kernel has been loaded )
69 1 boot exit
71 then
70 then
71 load_kernel_and_modules
72 ?dup if exit then
72 0 1 boot exit
73 then
74 else
73 0 1 boot exit
74 then
75 else
75 s" kernelname" getenv? 0= if ( no kernel has been loaded )
76 load_kernel_and_modules
77 ?dup if exit then
76 s" kernelname" getenv? if ( a kernel has been loaded )
77 1 boot exit
78 then
78 then
79 load_kernel_and_modules
80 ?dup if exit then
79 0 1 boot exit
80 then
81 load_kernel_and_modules
82 ?dup 0= if 0 1 boot then
83;
84
85: boot-conf
86 0= if ( interpreted ) get_arguments then

--- 218 unchanged lines hidden ---
81 0 1 boot exit
82 then
83 load_kernel_and_modules
84 ?dup 0= if 0 1 boot then
85;
86
87: boot-conf
88 0= if ( interpreted ) get_arguments then

--- 218 unchanged lines hidden ---