diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2018-02-19 17:06:56 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2018-02-19 17:06:56 -0300 |
| commit | 1afd5a152dc8b3a304236dc4e07bca38ea5eb53a (patch) | |
| tree | 7c4f880b09a023a3fe527d7d2cbcec9f11c09302 /lapi.c | |
| parent | 422318f6777d8d3bac13ade797d9c8eaa38686b6 (diff) | |
| download | lua-1afd5a152dc8b3a304236dc4e07bca38ea5eb53a.tar.gz lua-1afd5a152dc8b3a304236dc4e07bca38ea5eb53a.tar.bz2 lua-1afd5a152dc8b3a304236dc4e07bca38ea5eb53a.zip | |
more generic way to handle 'gclist'
Diffstat (limited to 'lapi.c')
| -rw-r--r-- | lapi.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lapi.c,v 2.282 2018/01/29 16:21:35 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 2.283 2018/02/05 17:10:52 roberto Exp roberto $ |
| 3 | ** Lua API | 3 | ** Lua API |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -828,7 +828,7 @@ LUA_API void lua_rawset (lua_State *L, int idx) { | |||
| 828 | slot = luaH_set(L, hvalue(o), s2v(L->top - 2)); | 828 | slot = luaH_set(L, hvalue(o), s2v(L->top - 2)); |
| 829 | setobj2t(L, slot, s2v(L->top - 1)); | 829 | setobj2t(L, slot, s2v(L->top - 1)); |
| 830 | invalidateTMcache(hvalue(o)); | 830 | invalidateTMcache(hvalue(o)); |
| 831 | luaC_barrierback(L, hvalue(o), s2v(L->top - 1)); | 831 | luaC_barrierback(L, gcvalue(o), s2v(L->top - 1)); |
| 832 | L->top -= 2; | 832 | L->top -= 2; |
| 833 | lua_unlock(L); | 833 | lua_unlock(L); |
| 834 | } | 834 | } |
| @@ -841,7 +841,7 @@ LUA_API void lua_rawseti (lua_State *L, int idx, lua_Integer n) { | |||
| 841 | o = index2value(L, idx); | 841 | o = index2value(L, idx); |
| 842 | api_check(L, ttistable(o), "table expected"); | 842 | api_check(L, ttistable(o), "table expected"); |
| 843 | luaH_setint(L, hvalue(o), n, s2v(L->top - 1)); | 843 | luaH_setint(L, hvalue(o), n, s2v(L->top - 1)); |
| 844 | luaC_barrierback(L, hvalue(o), s2v(L->top - 1)); | 844 | luaC_barrierback(L, gcvalue(o), s2v(L->top - 1)); |
| 845 | L->top--; | 845 | L->top--; |
| 846 | lua_unlock(L); | 846 | lua_unlock(L); |
| 847 | } | 847 | } |
| @@ -857,7 +857,7 @@ LUA_API void lua_rawsetp (lua_State *L, int idx, const void *p) { | |||
| 857 | setpvalue(&k, cast_voidp(p)); | 857 | setpvalue(&k, cast_voidp(p)); |
| 858 | slot = luaH_set(L, hvalue(o), &k); | 858 | slot = luaH_set(L, hvalue(o), &k); |
| 859 | setobj2t(L, slot, s2v(L->top - 1)); | 859 | setobj2t(L, slot, s2v(L->top - 1)); |
| 860 | luaC_barrierback(L, hvalue(o), s2v(L->top - 1)); | 860 | luaC_barrierback(L, gcvalue(o), s2v(L->top - 1)); |
| 861 | L->top--; | 861 | L->top--; |
| 862 | lua_unlock(L); | 862 | lua_unlock(L); |
| 863 | } | 863 | } |
