Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix memory leak in close-file

Browse source
This commit is contained in:
Koichi Nakamura 2021-05-06 07:56:35 +09:00
parent 938d6fe1b6
commit 72edf5a953
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
bootstrap.fs
View file

@ -2500,7 +2500,14 @@ need-defined (read)
;
: close-file ( file -- e )
file>fd @ (close) 0= if success else CLOSE-FILE-ERROR then
dup file>fd @ swap
( fd file )
\ release heap objects
dup file>rbuf @ (free)
dup file>wbuf @ (free)
(free)
\ close file object
(close) 0= if success else CLOSE-FILE-ERROR then
;
( === File Include === )