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

loader: provide u> and xemit words if needed

Browse Source 
We have external interpreter (userboot.so) which may be lagging behind
with updates and may be missing u> xemit words.
This commit is contained in:
Toomas Soome 2019-09-17 18:05:33 +00:00
parent 100369071d
commit 68861a62f5
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=352454
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
stand/forth/loader.4th
View File

@ -27,6 +27,29 @@
only forth definitions
\ provide u> if needed
s" u>" sfind [if] drop [else]
drop
: u>
2dup u< if 2drop 0 exit then
swap u< if -1 exit then
0
;
[then]
\ provide xemit if needed
s" xemit" sfind [if] drop [else]
drop
: xemit
dup 0x80 u< if emit exit then
0 swap 0x3F
begin 2dup u> while
2/ >r dup 0x3F and 0x80 or swap 6 rshift r>
repeat 0x7F xor 2* or
begin dup 0x80 u< 0= while emit repeat drop
;
[then]
s" arch-i386" environment? [if] [if]
s" loader_version" environment? [if]
11 < [if]