The branch stable/12 has been updated by kevans: URL: https://cgit.FreeBSD.org/src/commit/?id=a5c44db625cb1bf34b86573411d6ce1f1b8f3fed
commit a5c44db625cb1bf34b86573411d6ce1f1b8f3fed Author: Toomas Soome <[email protected]> AuthorDate: 2019-09-17 18:05:33 +0000 Commit: Kyle Evans <[email protected]> CommitDate: 2021-10-08 08:05:18 +0000 loader: provide u> and xemit words if needed We have external interpreter (userboot.so) which may be lagging behind with updates and may be missing u> xemit words. (cherry picked from commit 68861a62f5363e6984ba96efe6463e882a9c4896) --- stand/forth/loader.4th | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/stand/forth/loader.4th b/stand/forth/loader.4th index df532440e26a..89ea9efc4171 100644 --- a/stand/forth/loader.4th +++ b/stand/forth/loader.4th @@ -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]
