Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-14 08:01:27 +01:00
Code Issues Projects Releases Packages Wiki Activity

nearlest -> nearest

Browse source
This commit is contained in:
Ethan Blanton 2021-01-20 10:51:45 -05:00
parent bc7be89175
commit 971afae59a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bootstrap.fs
View file

@ -210,7 +210,7 @@ cm i,
'e, l! 'e, l!
\ 'a' ( c-addr -- a-addr ) ALIGNED \ 'a' ( c-addr -- a-addr ) ALIGNED
\ Round up to a nearlest multiple of CELL \ Round up to a nearest multiple of CELL
ca i, ca i,
'L, Ck1k0--, '+, \ ( a+CELL-1 ) 'L, Ck1k0--, '+, \ ( a+CELL-1 )
'L, k0k0-C-, \ ( a+CELL-1 ~(CELL-1) ) 'L, k0k0-C-, \ ( a+CELL-1 ~(CELL-1) )
@ -218,7 +218,7 @@ ca i,
'e, l! 'e, l!
\ 'A' ( -- ) ALIGN \ 'A' ( -- ) ALIGN
\ Round up 'here' to a nearlest multiple of CELL \ Round up 'here' to a nearest multiple of CELL
cA i, 'h, '@, 'a, 'h, '!, 'e, l! cA i, 'h, '@, 'a, 'h, '!, 'e, l!
\ 'E' ( c-addr1 c-addr2 -- flag ) STR= \ 'E' ( c-addr1 c-addr2 -- flag ) STR=