mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-08-29 09:02:30 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #418 from ahungry/bugfix/Fix-double-free-fclose

Browse Source 
Fix for double free on fclose due to GC not knowing it failed
This commit is contained in:
Calvin Rose
2020-05-28 17:24:09 -04:00
committed by GitHub
parent fff66649aa ee94828355
commit 4056b94e01
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/core/io.c
View File

@@ -279,7 +279,10 @@ static Janet cfun_io_fclose(int32_t argc, Janet *argv) {
return janet_wrap_integer(WEXITSTATUS(status)); return janet_wrap_integer(WEXITSTATUS(status));
#endif #endif
} else { } else {
if (fclose(iof->file)) janet_panic("could not close file"); if (fclose(iof->file)) {
iof->flags |= JANET_FILE_NOT_CLOSEABLE;
janet_panic("could not close file");
}
iof->flags |= JANET_FILE_CLOSED; iof->flags |= JANET_FILE_CLOSED;
return janet_wrap_nil(); return janet_wrap_nil();
} }