diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-11-13 09:32:26 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-11-13 09:32:26 -0200 |
| commit | 2f91f95d94d3a27fee6b45c31ea9ab631924a8bf (patch) | |
| tree | bbc605f6643b4958f45536dc5f5f84297eda70c2 /ldo.c | |
| parent | 42dd080a2e3e8fb6887ca1e066f53bb8fd23c9e7 (diff) | |
| download | lua-2f91f95d94d3a27fee6b45c31ea9ab631924a8bf.tar.gz lua-2f91f95d94d3a27fee6b45c31ea9ab631924a8bf.tar.bz2 lua-2f91f95d94d3a27fee6b45c31ea9ab631924a8bf.zip | |
better control over GCObjects
Diffstat (limited to 'ldo.c')
| -rw-r--r-- | ldo.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 1.198 2002/11/06 19:08:00 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.199 2002/11/07 15:37:10 roberto Exp roberto $ |
| 3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -105,7 +105,7 @@ static void correctstack (lua_State *L, TObject *oldstack) { | |||
| 105 | GCObject *up; | 105 | GCObject *up; |
| 106 | L->top = (L->top - oldstack) + L->stack; | 106 | L->top = (L->top - oldstack) + L->stack; |
| 107 | for (up = L->openupval; up != NULL; up = up->gch.next) | 107 | for (up = L->openupval; up != NULL; up = up->gch.next) |
| 108 | (&up->uv)->v = ((&up->uv)->v - oldstack) + L->stack; | 108 | gcotouv(up)->v = (gcotouv(up)->v - oldstack) + L->stack; |
| 109 | for (ci = L->base_ci; ci <= L->ci; ci++) { | 109 | for (ci = L->base_ci; ci <= L->ci; ci++) { |
| 110 | ci->base = (ci->base - oldstack) + L->stack; | 110 | ci->base = (ci->base - oldstack) + L->stack; |
| 111 | ci->top = (ci->top - oldstack) + L->stack; | 111 | ci->top = (ci->top - oldstack) + L->stack; |