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

fixed a bug

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-04 20:53:22 +09:00
parent bfd136f0ed
commit a28cbc259f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bootstrap.fs
View file

@ -2401,7 +2401,7 @@ BLOCK-SIZE remaining-size !
dup remaining-size @ <= if dup remaining-size @ <= if
( u addr ) ( u addr )
next-addr @ next-addr @
swap dup next-addr +! remaining-size -! swap aligned dup next-addr +! remaining-size -!
else else
drop -1 drop -1
then then