diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-08-30 16:09:21 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-08-30 16:09:21 -0300 |
| commit | fdafd4f4a88d1584dea900517445a17d87f8b82f (patch) | |
| tree | 52e38e886d569e77c1df82ebe2bcfbaafd4c6f75 /ldo.c | |
| parent | beeff4ccafe5877d00119cb3d93f1f937d46dcfb (diff) | |
| download | lua-fdafd4f4a88d1584dea900517445a17d87f8b82f.tar.gz lua-fdafd4f4a88d1584dea900517445a17d87f8b82f.tar.bz2 lua-fdafd4f4a88d1584dea900517445a17d87f8b82f.zip | |
new structure for collectable objects, sharing a common header
Diffstat (limited to 'ldo.c')
| -rw-r--r-- | ldo.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 1.191 2002/08/07 19:22:39 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.192 2002/08/07 20:55:00 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 | */ |
| @@ -101,10 +101,10 @@ static void restore_stack_limit (lua_State *L) { | |||
| 101 | 101 | ||
| 102 | static void correctstack (lua_State *L, TObject *oldstack) { | 102 | static void correctstack (lua_State *L, TObject *oldstack) { |
| 103 | CallInfo *ci; | 103 | CallInfo *ci; |
| 104 | UpVal *up; | 104 | GCObject *up; |
| 105 | L->top = (L->top - oldstack) + L->stack; | 105 | L->top = (L->top - oldstack) + L->stack; |
| 106 | for (up = L->openupval; up != NULL; up = up->next) | 106 | for (up = L->openupval; up != NULL; up = up->gch.next) |
| 107 | up->v = (up->v - oldstack) + L->stack; | 107 | (&up->uv)->v = ((&up->uv)->v - oldstack) + L->stack; |
| 108 | for (ci = L->base_ci; ci <= L->ci; ci++) { | 108 | for (ci = L->base_ci; ci <= L->ci; ci++) { |
| 109 | ci->base = (ci->base - oldstack) + L->stack; | 109 | ci->base = (ci->base - oldstack) + L->stack; |
| 110 | ci->top = (ci->top - oldstack) + L->stack; | 110 | ci->top = (ci->top - oldstack) + L->stack; |