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

Fixed a bug of %allocate

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-06 17:20:01 +09:00
parent 7f06ce6600
commit fdefd16eda
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
bootstrap.fs
View file

@ -2130,18 +2130,15 @@ codegen-target @ s" no-codegen" str= not [if]
then drop
;
( === Heap Memory === )
need-defined allocate
\ allocate heap memory
: %allocate ( align size -- addr e )
over + allocate ?dup if
\ ( align addr e )
>r 2drop 0 >r
else
swap 1- & success
then
over + allocate throw
swap 1- invert and success
;
( === Buffered File I/O === )