aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/lapi.js6
-rw-r--r--src/lobject.js3
-rw-r--r--src/luaconf.js2
-rw-r--r--src/lvm.js6
4 files changed, 8 insertions, 9 deletions
diff --git a/src/lapi.js b/src/lapi.js
index 3520b15..d1ca02f 100644
--- a/src/lapi.js
+++ b/src/lapi.js
@@ -652,11 +652,7 @@ const lua_stringtonumber = function(L, s) {
// TODO: pisnum
const lua_tointegerx = function(L, idx) {
- let o = index2addr(L, idx);
- let res = lvm.tointeger(o);
- if (res === false)
- res = 0; /* call to 'tointeger' may change 'n' even if it fails */
- return res;
+ return lvm.tointeger(index2addr(L, idx));
};
const f_call = function(L, ud) {
diff --git a/src/lobject.js b/src/lobject.js
index 3cbde26..bdbccb9 100644
--- a/src/lobject.js
+++ b/src/lobject.js
@@ -342,7 +342,8 @@ const l_str2dloc = function(s, mode) {
};
const l_str2d = function(s) {
- let pidx = /[.xXnN]/g.exec(s).index;
+ let pidx = /[.xXnN]/g.exec(s);
+ pidx = pidx ? pidx.index : null;
let pmode = pidx ? s[pidx] : null;
let mode = pmode ? pmode.toLowerCase() : 0;
if (mode === 'n') /* reject 'inf' and 'nan' */
diff --git a/src/luaconf.js b/src/luaconf.js
index a965954..190893a 100644
--- a/src/luaconf.js
+++ b/src/luaconf.js
@@ -17,7 +17,7 @@ const LUAI_MAXSTACK = 1000000;
const LUA_IDSIZE = 60;
const lua_numbertointeger = function(n) {
- return n;
+ return n >= Number.MIN_SAFE_INTEGER && n < -Number.MIN_SAFE_INTEGER ? n : 0;
};
const LUA_INTEGER_FRMLEN = "";
diff --git a/src/lvm.js b/src/lvm.js
index 372c241..c5628cf 100644
--- a/src/lvm.js
+++ b/src/lvm.js
@@ -6,6 +6,7 @@ const assert = require('assert');
const BytecodeParser = require('./lundump.js');
const OC = require('./lopcodes.js');
const lua = require('./lua.js');
+const luaconf = require('./luaconf.js');
const CT = lua.constant_types;
const LUA_MULTRET = lua.LUA_MULTRET;
const lobject = require('./lobject.js');
@@ -843,7 +844,7 @@ const forlimit = function(obj, step) {
const luaV_tointeger = function(obj, mode) {
if (obj.ttisfloat()) {
let n = obj.value;
- let f = n;
+ let f = Math.floor(n);
if (n !== f) { /* not an integral value? */
if (mode === 0)
@@ -852,7 +853,8 @@ const luaV_tointeger = function(obj, mode) {
f += 1; /* convert floor to ceil (remember: n !== f) */
}
- return f;
+ let res = luaconf.lua_numbertointeger(f);
+ return res !== 0 ? res : (n === 0 ? 0 : false);
} else if (obj.ttisinteger()) {
return obj.value;
} else if (obj.ttisstring()) {