gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-07 23:24:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add missing GC steps for io.* functions.

Browse Source
This commit is contained in:
Mike Pall 2013-03-03 21:18:22 +01:00
parent 78c97bc5a1
commit dac2825e9d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib_io.c
View File

@ -17,6 +17,7 @@
#include "lualib.h" #include "lualib.h"
#include "lj_obj.h" #include "lj_obj.h"
#include "lj_gc.h"
#include "lj_err.h" #include "lj_err.h"
#include "lj_str.h" #include "lj_str.h"
#include "lj_state.h" #include "lj_state.h"
@ -152,6 +153,7 @@ static int io_file_readline(lua_State *L, FILE *fp, MSize chop)
if (n >= m - 64) m += m; if (n >= m - 64) m += m;
} }
setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n));
lj_gc_check(L);
return (int)ok; return (int)ok;
} }
@ -163,6 +165,7 @@ static void io_file_readall(lua_State *L, FILE *fp)
n += (MSize)fread(buf+n, 1, m-n, fp); n += (MSize)fread(buf+n, 1, m-n, fp);
if (n != m) { if (n != m) {
setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n));
lj_gc_check(L);
return; return;
} }
} }
@ -174,6 +177,7 @@ static int io_file_readlen(lua_State *L, FILE *fp, MSize m)
char *buf = lj_str_needbuf(L, &G(L)->tmpbuf, m); char *buf = lj_str_needbuf(L, &G(L)->tmpbuf, m);
MSize n = (MSize)fread(buf, 1, m, fp); MSize n = (MSize)fread(buf, 1, m, fp);
setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n)); setstrV(L, L->top++, lj_str_new(L, buf, (size_t)n));
lj_gc_check(L);
return (n > 0 || m == 0); return (n > 0 || m == 0);
} else { } else {
int c = getc(fp); int c = getc(fp);