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

Merge pull request #14 from nineties/fix_memory_leak

Browse source 
fix memory leak in close-file
This commit is contained in:
Koichi NAKAMURA 2021-05-06 08:13:21 +09:00 committed by GitHub
commit 00fc7168c0
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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 ) : 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 === ) ( === File Include === )