diff options
author | Benoit Giannangeli <benoit.giannangeli@boursorama.fr> | 2017-03-02 11:31:05 +0100 |
---|---|---|
committer | Benoit Giannangeli <benoit.giannangeli@boursorama.fr> | 2017-03-02 11:31:05 +0100 |
commit | aee0f65dea0456635e96b4496f6597188526e647 (patch) | |
tree | 3afcb057b08b3a6b7ce091111e7be0db236ff3f4 /src | |
parent | eb838303ed7c3ddc2da0665ed0b5ca3843bf7b96 (diff) | |
download | fengari-aee0f65dea0456635e96b4496f6597188526e647.tar.gz fengari-aee0f65dea0456635e96b4496f6597188526e647.tar.bz2 fengari-aee0f65dea0456635e96b4496f6597188526e647.zip |
[Parsing tests] SETTABUP, GETTABUP
Diffstat (limited to 'src')
-rw-r--r-- | src/lcode.js | 8 | ||||
-rw-r--r-- | src/lua.js | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/src/lcode.js b/src/lcode.js index 64e890e..9380d1a 100644 --- a/src/lcode.js +++ b/src/lcode.js @@ -487,12 +487,12 @@ const addk = function(fs, key, v) { let idx = fs.ls.h.__index(fs.ls.h, key); /* index scanner table */ if (idx && !idx.ttisnil()) { /* is there an index there? */ /* correct value? (warning: must distinguish floats from integers!) */ - if (f.k[idx].ttype() === v.ttype() && f.k[idx].value === v.value) - return idx; /* reuse index */ + if (f.k[idx.value].ttype() === v.ttype() && f.k[idx.value].value === v.value) + return idx.value; /* reuse index */ } /* constant not found; create a new entry */ let k = fs.nk; - fs.ls.h.__newindex(fs.ls.h, key, k); + fs.ls.h.__newindex(fs.ls.h, key, new TValue(CT.LUA_TNUMINT, k)); f.k[k] = v; fs.nk++; return k; @@ -616,7 +616,7 @@ const luaK_dischargevars = function(fs, e) { op = OpCodesI.OP_GETTABUP; /* 't' is in an upvalue */ } e.u.info = luaK_codeABC(fs, op, 0, e.u.ind.t, e.u.ind.idx); - e.k = OpCodesI.VRELOCABLE; + e.k = ek.VRELOCABLE; break; } case ek.VVARARG: case ek.VCALL: { @@ -57,8 +57,6 @@ const constant_types = { LUA_NUMTAGS: 9 }; -const CT = constant_types; - constant_types.LUA_TSHRSTR = constant_types.LUA_TSTRING | (0 << 4); /* short strings */ constant_types.LUA_TLNGSTR = constant_types.LUA_TSTRING | (1 << 4); /* long strings */ @@ -69,6 +67,8 @@ constant_types.LUA_TLCL = constant_types.LUA_TFUNCTION | (0 << 4); /* Lua closu constant_types.LUA_TLCF = constant_types.LUA_TFUNCTION | (1 << 4); /* light C function */ constant_types.LUA_TCCL = constant_types.LUA_TFUNCTION | (2 << 4); /* C closure */ +const CT = constant_types; + /* ** Comparison and arithmetic functions */ |