rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

must check GC every time it can create new objects

This commit is contained in:
Roberto Ierusalimschy 2002-11-21 12:16:52 -02:00
parent d404f0c276
commit 1648674653
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lapi.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 1.219 2002/11/14 11:51:50 roberto Exp roberto $ ** $Id: lapi.c,v 1.220 2002/11/14 16:15:53 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -131,6 +131,7 @@ LUA_API lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf) {
LUA_API lua_State *lua_newthread (lua_State *L) { LUA_API lua_State *lua_newthread (lua_State *L) {
lua_State *L1; lua_State *L1;
lua_lock(L); lua_lock(L);
luaC_checkGC(L);
L1 = luaE_newthread(L); L1 = luaE_newthread(L);
setthvalue(L->top, L1); setthvalue(L->top, L1);
api_incr_top(L); api_incr_top(L);
@ -309,6 +310,7 @@ LUA_API const char *lua_tostring (lua_State *L, int index) {
const char *s; const char *s;
lua_lock(L); /* `luaV_tostring' may create a new string */ lua_lock(L); /* `luaV_tostring' may create a new string */
s = (luaV_tostring(L, o) ? svalue(o) : NULL); s = (luaV_tostring(L, o) ? svalue(o) : NULL);
luaC_checkGC(L);
lua_unlock(L); lua_unlock(L);
return s; return s;
} }
@ -394,6 +396,7 @@ LUA_API void lua_pushnumber (lua_State *L, lua_Number n) {
LUA_API void lua_pushlstring (lua_State *L, const char *s, size_t len) { LUA_API void lua_pushlstring (lua_State *L, const char *s, size_t len) {
lua_lock(L); lua_lock(L);
luaC_checkGC(L);
setsvalue2s(L->top, luaS_newlstr(L, s, len)); setsvalue2s(L->top, luaS_newlstr(L, s, len));
api_incr_top(L); api_incr_top(L);
lua_unlock(L); lua_unlock(L);
@ -412,6 +415,7 @@ LUA_API const char *lua_pushvfstring (lua_State *L, const char *fmt,
va_list argp) { va_list argp) {
const char *ret; const char *ret;
lua_lock(L); lua_lock(L);
luaC_checkGC(L);
ret = luaO_pushvfstring(L, fmt, argp); ret = luaO_pushvfstring(L, fmt, argp);
lua_unlock(L); lua_unlock(L);
return ret; return ret;
@ -422,6 +426,7 @@ LUA_API const char *lua_pushfstring (lua_State *L, const char *fmt, ...) {
const char *ret; const char *ret;
va_list argp; va_list argp;
lua_lock(L); lua_lock(L);
luaC_checkGC(L);
va_start(argp, fmt); va_start(argp, fmt);
ret = luaO_pushvfstring(L, fmt, argp); ret = luaO_pushvfstring(L, fmt, argp);
va_end(argp); va_end(argp);
@ -433,6 +438,7 @@ LUA_API const char *lua_pushfstring (lua_State *L, const char *fmt, ...) {
LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) { LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) {
Closure *cl; Closure *cl;
lua_lock(L); lua_lock(L);
luaC_checkGC(L);
api_checknelems(L, n); api_checknelems(L, n);
cl = luaF_newCclosure(L, n); cl = luaF_newCclosure(L, n);
cl->c.f = fn; cl->c.f = fn;
@ -499,6 +505,7 @@ LUA_API void lua_rawgeti (lua_State *L, int index, int n) {
LUA_API void lua_newtable (lua_State *L) { LUA_API void lua_newtable (lua_State *L) {
lua_lock(L); lua_lock(L);
luaC_checkGC(L);
sethvalue(L->top, luaH_new(L, 0, 0)); sethvalue(L->top, luaH_new(L, 0, 0));
api_incr_top(L); api_incr_top(L);
lua_unlock(L); lua_unlock(L);
@ -753,11 +760,11 @@ LUA_API int lua_next (lua_State *L, int index) {
LUA_API void lua_concat (lua_State *L, int n) { LUA_API void lua_concat (lua_State *L, int n) {
lua_lock(L); lua_lock(L);
luaC_checkGC(L);
api_checknelems(L, n); api_checknelems(L, n);
if (n >= 2) { if (n >= 2) {
luaV_concat(L, n, L->top - L->ci->base - 1); luaV_concat(L, n, L->top - L->ci->base - 1);
L->top -= (n-1); L->top -= (n-1);
luaC_checkGC(L);
} }
else if (n == 0) { /* push empty string */ else if (n == 0) { /* push empty string */
setsvalue2s(L->top, luaS_newlstr(L, NULL, 0)); setsvalue2s(L->top, luaS_newlstr(L, NULL, 0));
@ -771,6 +778,7 @@ LUA_API void lua_concat (lua_State *L, int n) {
LUA_API void *lua_newuserdata (lua_State *L, size_t size) { LUA_API void *lua_newuserdata (lua_State *L, size_t size) {
Udata *u; Udata *u;
lua_lock(L); lua_lock(L);
luaC_checkGC(L);
u = luaS_newudata(L, size); u = luaS_newudata(L, size);
setuvalue(L->top, u); setuvalue(L->top, u);
api_incr_top(L); api_incr_top(L);