aboutsummaryrefslogtreecommitdiff
path: root/lvm.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2001-06-26 10:20:45 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2001-06-26 10:20:45 -0300
commit37f3a1c0452439bce1f5c2069ca015af148bf62f (patch)
tree0ad887fb08400103904dab1954695d28aece0500 /lvm.c
parent9559c111a32479794acc59fba2cbeab365a567f3 (diff)
downloadlua-37f3a1c0452439bce1f5c2069ca015af148bf62f.tar.gz
lua-37f3a1c0452439bce1f5c2069ca015af148bf62f.tar.bz2
lua-37f3a1c0452439bce1f5c2069ca015af148bf62f.zip
too much optimization to "break" keys in tables; keep them as TObjects...
Diffstat (limited to 'lvm.c')
-rw-r--r--lvm.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/lvm.c b/lvm.c
index c3972b7e..7a92fab7 100644
--- a/lvm.c
+++ b/lvm.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lvm.c,v 1.186 2001/06/15 20:36:57 roberto Exp roberto $ 2** $Id: lvm.c,v 1.187 2001/06/20 17:22:46 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*/
@@ -41,7 +41,7 @@ static void luaV_checkGC (lua_State *L, StkId top) {
41const TObject *luaV_tonumber (const TObject *obj, TObject *n) { 41const TObject *luaV_tonumber (const TObject *obj, TObject *n) {
42 if (ttype(obj) == LUA_TNUMBER) return obj; 42 if (ttype(obj) == LUA_TNUMBER) return obj;
43 if (ttype(obj) == LUA_TSTRING && luaO_str2d(svalue(obj), &nvalue(n))) { 43 if (ttype(obj) == LUA_TSTRING && luaO_str2d(svalue(obj), &nvalue(n))) {
44 ttype(n) = LUA_TNUMBER; 44 setttype(n, LUA_TNUMBER);
45 return n; 45 return n;
46 } 46 }
47 else 47 else
@@ -617,7 +617,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
617 if (n != -1) { /* repeat loop? */ 617 if (n != -1) { /* repeat loop? */
618 Node *node = node(t, n); 618 Node *node = node(t, n);
619 setnvalue(ra+1, n); /* index */ 619 setnvalue(ra+1, n); /* index */
620 setkey2obj(ra+2, node); 620 setobj(ra+2, key(node));
621 setobj(ra+3, val(node)); 621 setobj(ra+3, val(node));
622 dojump(pc, i); /* repeat loop */ 622 dojump(pc, i); /* repeat loop */
623 } 623 }