d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

The word environment? returns a flag indicating whether the variable

Browse Source 
was found or not. Fix it's usage. Alas, it caused no problem before,
besides leaving garbage in the stack, because refill, used by [if]
[else] [then], was broken.
This commit is contained in:
Daniel C. Sobral 2000-06-12 16:45:01 +00:00
parent 23bab6002c
commit d742bdfc76
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,13 +24,29 @@
\ \
\ $FreeBSD$ \ $FreeBSD$
s" arch-alpha" environment? [if] s" arch-alpha" environment? [if] [if]
s" loader_version" environment? 3 < abort" Loader version 0.3+ required" s" loader_version" environment? [if]
[then] 3 < [if]
.( Loader version 0.3+ required) cr
abort
[then]
[else]
.( Could not get loader version!) cr
abort
[then]
[then] [then]
s" arch-i386" environment? [if] s" arch-i386" environment? [if] [if]
s" loader_version" environment? 8 < abort" Loader version 0.8+ required" s" loader_version" environment? [if]
[then] 8 < [if]
.( Loader version 0.8+ required) cr
abort
[then]
[else]
.( Could not get loader version!) cr
abort
[then]
[then] [then]
include /boot/support.4th include /boot/support.4th