Skip to content

Commit

Permalink
15255 loader: replace nbsp in forth scripts by space
Browse files Browse the repository at this point in the history
Reviewed by: Andy Stormont <andyjstormont@gmail.com>
Reviewed by: Marcel Telka <marcel@telka.sk>
Approved by: Robert Mustacchi <rm@fingolfin.org>
  • Loading branch information
tsoome committed Dec 22, 2022
1 parent 83163ba commit 2870314
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 6 deletions.
4 changes: 2 additions & 2 deletions usr/src/boot/forth/beadm.4th
Original file line number Diff line number Diff line change
Expand Up @@ -107,7 +107,7 @@ variable page_remainder
drop
;

\ we are called with strings be_name menu_file, to simplify the stack
\ we are called with strings be_name menu_file, to simplify the stack
\ management, we open the menu and free the menu_file.
: beadm_bootfs ( be_addr be_len maddr mlen -- addr len taddr tlen flag | flag )
0 to end_of_file?
Expand Down Expand Up @@ -450,7 +450,7 @@ builtin: beadm
\ set device name
name_buffer strget s" chain" compare
0= if
\ for chain, use the value as is
\ for chain, use the value as is
value_buffer strget
else
\ check last char in the name
Expand Down
8 changes: 4 additions & 4 deletions usr/src/boot/forth/support.4th
Original file line number Diff line number Diff line change
Expand Up @@ -1246,8 +1246,8 @@ string current_file_name_ref \ used to print the file name
then
( addr len addr' len' total taddr )
dup rot ( addr len addr' len' taddr taddr total )
swap ! ( addr len addr' len' taddr ) \ store length
dup >r \ save reference
swap ! ( addr len addr' len' taddr ) \ store length
dup >r \ save reference
cell+ \ point to string area
2dup 2>r ( addr len addr' len' taddr' ) ( R: taddr len' taddr' )
swap move ( addr len )
Expand Down Expand Up @@ -1700,9 +1700,9 @@ also builtins
1 ['] load catch dup if
( addr0 len0 addr1 len1 ... args 1 error )
>r \ error code to R
drop \ drop 1
drop \ drop 1
0 do 2drop loop \ drop addr len pairs
r> \ set flag for while
r> \ set flag for while
then
while
dup 0=
Expand Down

0 comments on commit 2870314

Please sign in to comment.