diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2015-09-09 10:44:07 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2015-09-09 10:44:07 -0300 |
commit | b91bc93fd33f2158745b37c9e091c6fa4d1a4fd5 (patch) | |
tree | 5a8d2dd59066cb610534a694db8f94d45ecd3931 /lvm.h | |
parent | 53be1451a850c28b9bc1e4583dccd4ecbb4478b6 (diff) | |
download | lua-github-b91bc93fd33f2158745b37c9e091c6fa4d1a4fd5.tar.gz |
'setobj2t' incorporated into 'luaV_fastset' + 'invalidateTMcache'
is not needed in the fast track (as it does not create new
entries)
Diffstat (limited to 'lvm.h')
-rw-r--r-- | lvm.h | 32 |
1 files changed, 21 insertions, 11 deletions
@@ -1,5 +1,5 @@ /* -** $Id: lvm.h,v 2.37 2015/08/03 19:50:49 roberto Exp roberto $ +** $Id: lvm.h,v 2.38 2015/08/03 20:40:26 roberto Exp roberto $ ** Lua virtual machine ** See Copyright Notice in lua.h */ @@ -70,17 +70,27 @@ else luaV_finishget(L,t,k,v,aux); } -#define luaV_fastset(L,t,k,aux,f,v) \ +/* +** Fast track for set table. If 't' is a table and 't[k]' is not nil, +** call GC barrier, do a raw 't[k]=v', and return true; otherwise, +** return false with 'slot' equal to NULL (if 't' is not a table) or +** 'nil'. (This is needed by 'luaV_finishget'.) Note that, if the macro +** returns true, there is no need to 'invalidateTMcache', because the +** call is not creating a new entry. +*/ +#define luaV_fastset(L,t,k,slot,f,v) \ (!ttistable(t) \ - ? (aux = NULL, 0) \ - : (aux = f(hvalue(t), k), \ - ttisnil(aux) ? 0 \ - : (luaC_barrierback(L, hvalue(t), v), 1))) - -#define luaV_settable(L,t,k,v) { const TValue *aux; \ - if (luaV_fastset(L,t,k,aux,luaH_get,v)) \ - { invalidateTMcache(hvalue(t)); setobj2t(L, cast(TValue *,aux), v); } \ - else luaV_finishset(L,t,k,v,aux); } + ? (slot = NULL, 0) \ + : (slot = f(hvalue(t), k), \ + ttisnil(slot) ? 0 \ + : (luaC_barrierback(L, hvalue(t), v), \ + setobj2t(L, cast(TValue *,slot), v), \ + 1))) + + +#define luaV_settable(L,t,k,v) { const TValue *slot; \ + if (!luaV_fastset(L,t,k,slot,luaH_get,v)) \ + luaV_finishset(L,t,k,v,slot); } |