aboutsummaryrefslogtreecommitdiff
path: root/lvm.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2018-06-01 13:51:34 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2018-06-01 13:51:34 -0300
commitfb8fa661366e15e98c60d8929feaab9e551a02f9 (patch)
treeb3eb16fcfe3eab8f4b07ccaa71c55011016ad005 /lvm.c
parentb3970649550fe8471c55bfae57aa3752ddfa97a9 (diff)
downloadlua-fb8fa661366e15e98c60d8929feaab9e551a02f9.tar.gz
lua-fb8fa661366e15e98c60d8929feaab9e551a02f9.tar.bz2
lua-fb8fa661366e15e98c60d8929feaab9e551a02f9.zip
no more 'luaH_emptyobject' and comparisons of addresses of global variables
(instead, use a different kind of nil to signal the fake entry returned when a key is not found in a table)
Diffstat (limited to 'lvm.c')
-rw-r--r--lvm.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/lvm.c b/lvm.c
index 36c7699f..3fed2a27 100644
--- a/lvm.c
+++ b/lvm.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lvm.c,v 2.355 2018/05/22 12:02:36 roberto Exp roberto $ 2** $Id: lvm.c,v 2.356 2018/05/30 14:25:52 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*/
@@ -227,9 +227,9 @@ void luaV_finishget (lua_State *L, const TValue *t, TValue *key, StkId val,
227/* 227/*
228** Finish a table assignment 't[key] = val'. 228** Finish a table assignment 't[key] = val'.
229** If 'slot' is NULL, 't' is not a table. Otherwise, 'slot' points 229** If 'slot' is NULL, 't' is not a table. Otherwise, 'slot' points
230** to the entry 't[key]', or to 'luaH_emptyobject' if there is no such 230** to the entry 't[key]', or to a value with an absent key if there
231** entry. (The value at 'slot' must be empty, otherwise 'luaV_fastget' 231** is no such entry. (The value at 'slot' must be empty, otherwise
232** would have done the job.) 232** 'luaV_fastget' would have done the job.)
233*/ 233*/
234void luaV_finishset (lua_State *L, const TValue *t, TValue *key, 234void luaV_finishset (lua_State *L, const TValue *t, TValue *key,
235 TValue *val, const TValue *slot) { 235 TValue *val, const TValue *slot) {
@@ -241,7 +241,7 @@ void luaV_finishset (lua_State *L, const TValue *t, TValue *key,
241 lua_assert(isempty(slot)); /* slot must be empty */ 241 lua_assert(isempty(slot)); /* slot must be empty */
242 tm = fasttm(L, h->metatable, TM_NEWINDEX); /* get metamethod */ 242 tm = fasttm(L, h->metatable, TM_NEWINDEX); /* get metamethod */
243 if (tm == NULL) { /* no metamethod? */ 243 if (tm == NULL) { /* no metamethod? */
244 if (slot == luaH_emptyobject) /* no previous entry? */ 244 if (isabstkey(slot)) /* no previous entry? */
245 slot = luaH_newkey(L, h, key); /* create one */ 245 slot = luaH_newkey(L, h, key); /* create one */
246 /* no metamethod and (now) there is an entry with given key */ 246 /* no metamethod and (now) there is an entry with given key */
247 setobj2t(L, cast(TValue *, slot), val); /* set its new value */ 247 setobj2t(L, cast(TValue *, slot), val); /* set its new value */