upstream/opnsense-src
1
0
Fork 0
mirror of https://github.com/opnsense/src.git synced 2026-05-28 04:12:45 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

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$
s" arch-alpha" environment? [if]
s" loader_version" environment? 3 < abort" Loader version 0.3+ required"
[then]
s" arch-alpha" environment? [if] [if]
s" loader_version" environment? [if]
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" loader_version" environment? 8 < abort" Loader version 0.8+ required"
[then]
s" arch-i386" environment? [if] [if]
s" loader_version" environment? [if]
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