diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-12-27 15:33:22 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-12-27 15:33:22 -0200 |
| commit | acdb0b741e31adebfa4f608f8bf23e65fa68d741 (patch) | |
| tree | a4f3bb695c4b2ae03ef8e02d15953bc12de25a9d /lgc.c | |
| parent | 5b08fcd5a1392a7440cae91e68f350a44b136806 (diff) | |
| download | lua-acdb0b741e31adebfa4f608f8bf23e65fa68d741.tar.gz lua-acdb0b741e31adebfa4f608f8bf23e65fa68d741.tar.bz2 lua-acdb0b741e31adebfa4f608f8bf23e65fa68d741.zip | |
comments.
Diffstat (limited to 'lgc.c')
| -rw-r--r-- | lgc.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lgc.c,v 1.37 1999/12/21 18:04:41 roberto Exp roberto $ | 2 | ** $Id: lgc.c,v 1.38 1999/12/23 18:19:57 roberto Exp roberto $ |
| 3 | ** Garbage Collector | 3 | ** Garbage Collector |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -181,7 +181,7 @@ static void clear_global_list (lua_State *L, int limit) { | |||
| 181 | ** with limit=MAX_INT, that means all elements. | 181 | ** with limit=MAX_INT, that means all elements. |
| 182 | */ | 182 | */ |
| 183 | static void collectstring (lua_State *L, int limit) { | 183 | static void collectstring (lua_State *L, int limit) { |
| 184 | TObject o; /* to call userdata 'gc' tag method */ | 184 | TObject o; /* to call userdata `gc' tag method */ |
| 185 | int i; | 185 | int i; |
| 186 | ttype(&o) = LUA_T_USERDATA; | 186 | ttype(&o) = LUA_T_USERDATA; |
| 187 | clear_global_list(L, limit); | 187 | clear_global_list(L, limit); |
| @@ -254,7 +254,7 @@ void luaC_collect (lua_State *L, int all) { | |||
| 254 | 254 | ||
| 255 | 255 | ||
| 256 | long lua_collectgarbage (lua_State *L, long limit) { | 256 | long lua_collectgarbage (lua_State *L, long limit) { |
| 257 | unsigned long recovered = L->nblocks; /* to subtract nblocks after gc */ | 257 | unsigned long recovered = L->nblocks; /* to subtract `nblocks' after gc */ |
| 258 | markall(L); | 258 | markall(L); |
| 259 | luaR_invalidaterefs(L); | 259 | luaR_invalidaterefs(L); |
| 260 | luaC_collect(L, 0); | 260 | luaC_collect(L, 0); |