diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-02-02 13:13:05 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-02-02 13:13:05 -0200 |
| commit | 426d3e43bdec4b1ab2b0aed1844396c27f64872f (patch) | |
| tree | 659b73e1e9720fb85c66a481b476c96671eef734 /lvm.c | |
| parent | 8823f371a2a63f634121a0c16cb1d02e5ce9f5c5 (diff) | |
| download | lua-426d3e43bdec4b1ab2b0aed1844396c27f64872f.tar.gz lua-426d3e43bdec4b1ab2b0aed1844396c27f64872f.tar.bz2 lua-426d3e43bdec4b1ab2b0aed1844396c27f64872f.zip | |
lock/unlock may use L + better structure for internal debug stuff
Diffstat (limited to 'lvm.c')
| -rw-r--r-- | lvm.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lvm.c,v 1.162 2001/02/01 16:03:38 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 1.163 2001/02/01 17:39:55 roberto Exp roberto $ |
| 3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -159,7 +159,7 @@ void luaV_settable (lua_State *L, StkId t, StkId key, StkId top) { | |||
| 159 | } | 159 | } |
| 160 | else { /* try a `settable' tag method */ | 160 | else { /* try a `settable' tag method */ |
| 161 | Closure *tm = luaT_gettmbyObj(G(L), t, TM_SETTABLE); | 161 | Closure *tm = luaT_gettmbyObj(G(L), t, TM_SETTABLE); |
| 162 | L->top = top; | 162 | lua_assert(L->top == top); |
| 163 | if (tm == NULL) /* no tag method? */ | 163 | if (tm == NULL) /* no tag method? */ |
| 164 | luaG_typeerror(L, t, "index"); | 164 | luaG_typeerror(L, t, "index"); |
| 165 | else { | 165 | else { |
| @@ -206,7 +206,7 @@ void luaV_setglobal (lua_State *L, TString *s, StkId top) { | |||
| 206 | setobj(oldvalue, top-1); /* raw set */ | 206 | setobj(oldvalue, top-1); /* raw set */ |
| 207 | } | 207 | } |
| 208 | else { /* call tag method */ | 208 | else { /* call tag method */ |
| 209 | L->top = top; | 209 | lua_assert(L->top == top); |
| 210 | luaD_checkstack(L, 3); | 210 | luaD_checkstack(L, 3); |
| 211 | setobj(top+2, top-1); /* new value */ | 211 | setobj(top+2, top-1); /* new value */ |
| 212 | setobj(top+1, oldvalue); /* old value */ | 212 | setobj(top+1, oldvalue); /* old value */ |