nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use goto to implement a tail call in 'reallymarkobject'

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2013-12-13 13:17:00 -02:00
parent 16493b777f
commit c8585efc78
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lgc.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lgc.c,v 2.165 2013/09/13 16:21:52 roberto Exp roberto $ ** $Id: lgc.c,v 2.166 2013/09/17 15:40:06 roberto Exp roberto $
** Garbage Collector ** Garbage Collector
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -227,6 +227,7 @@ GCObject *luaC_newobj (lua_State *L, int tt, size_t sz) {
*/ */
static void reallymarkobject (global_State *g, GCObject *o) { static void reallymarkobject (global_State *g, GCObject *o) {
lu_mem size; lu_mem size;
reentry:
white2gray(o); white2gray(o);
switch (gch(o)->tt) { switch (gch(o)->tt) {
case LUA_TSHRSTR: case LUA_TSHRSTR:
@@ -237,9 +238,13 @@ static void reallymarkobject (global_State *g, GCObject *o) {
case LUA_TUSERDATA: { case LUA_TUSERDATA: {
Table *mt = gco2u(o)->metatable; Table *mt = gco2u(o)->metatable;
markobject(g, mt); markobject(g, mt);
markobject(g, gco2u(o)->env); gray2black(o);
size = sizeudata(gco2u(o)); g->GCmemtrav += sizeudata(gco2u(o));
break; /* markobject(g, gco2u(o)->env); */
o = obj2gco(gco2u(o)->env);
if (o && iswhite(o))
goto reentry;
return;
} }
case LUA_TLCL: { case LUA_TLCL: {
gco2lcl(o)->gclist = g->gray; gco2lcl(o)->gclist = g->gray;