|
|
|
|
diff -up lua-5.4.2/src/ldebug.c.orig lua-5.4.2/src/ldebug.c
|
|
|
|
|
--- lua-5.4.2/src/ldebug.c.orig 2020-11-13 16:32:00.000000000 +0100
|
|
|
|
|
+++ lua-5.4.2/src/ldebug.c 2022-10-21 14:35:02.200941813 +0200
|
|
|
|
|
@@ -772,8 +772,11 @@ l_noret luaG_runerror (lua_State *L, con
|
|
|
|
|
va_start(argp, fmt);
|
|
|
|
|
msg = luaO_pushvfstring(L, fmt, argp); /* format message */
|
|
|
|
|
va_end(argp);
|
|
|
|
|
- if (isLua(ci)) /* if Lua function, add source:line information */
|
|
|
|
|
+ if (isLua(ci)) { /* if Lua function, add source:line information */
|
|
|
|
|
luaG_addinfo(L, msg, ci_func(ci)->p->source, getcurrentline(ci));
|
|
|
|
|
+ setobjs2s(L, L->top - 2, L->top - 1); /* remove 'msg' from the stack */
|
|
|
|
|
+ L->top--;
|
|
|
|
|
+ }
|
|
|
|
|
luaG_errormsg(L);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
diff -up lua-5.4.2/src/lvm.c.orig lua-5.4.2/src/lvm.c
|
|
|
|
|
--- lua-5.4.2/src/lvm.c.orig 2020-11-13 16:32:02.000000000 +0100
|
|
|
|
|
+++ lua-5.4.2/src/lvm.c 2022-10-21 14:35:31.713755890 +0200
|
|
|
|
|
@@ -641,7 +641,7 @@ void luaV_concat (lua_State *L, int tota
|
|
|
|
|
int n = 2; /* number of elements handled in this pass (at least 2) */
|
|
|
|
|
if (!(ttisstring(s2v(top - 2)) || cvt2str(s2v(top - 2))) ||
|
|
|
|
|
!tostring(L, s2v(top - 1)))
|
|
|
|
|
- luaT_tryconcatTM(L);
|
|
|
|
|
+ luaT_tryconcatTM(L); /* may invalidate 'top' */
|
|
|
|
|
else if (isemptystr(s2v(top - 1))) /* second operand is empty? */
|
|
|
|
|
cast_void(tostring(L, s2v(top - 2))); /* result is first operand */
|
|
|
|
|
else if (isemptystr(s2v(top - 2))) { /* first operand is empty string? */
|
|
|
|
|
@@ -654,8 +654,10 @@ void luaV_concat (lua_State *L, int tota
|
|
|
|
|
/* collect total length and number of strings */
|
|
|
|
|
for (n = 1; n < total && tostring(L, s2v(top - n - 1)); n++) {
|
|
|
|
|
size_t l = vslen(s2v(top - n - 1));
|
|
|
|
|
- if (l_unlikely(l >= (MAX_SIZE/sizeof(char)) - tl))
|
|
|
|
|
+ if (l_unlikely(l >= (MAX_SIZE/sizeof(char)) - tl)) {
|
|
|
|
|
+ L->top = top - total; /* pop strings to avoid wasting stack */
|
|
|
|
|
luaG_runerror(L, "string length overflow");
|
|
|
|
|
+ }
|
|
|
|
|
tl += l;
|
|
|
|
|
}
|
|
|
|
|
if (tl <= LUAI_MAXSHORTLEN) { /* is result a short string? */
|
|
|
|
|
@@ -669,8 +671,8 @@ void luaV_concat (lua_State *L, int tota
|
|
|
|
|
}
|
|
|
|
|
setsvalue2s(L, top - n, ts); /* create result */
|
|
|
|
|
}
|
|
|
|
|
- total -= n-1; /* got 'n' strings to create 1 new */
|
|
|
|
|
- L->top -= n-1; /* popped 'n' strings and pushed one */
|
|
|
|
|
+ total -= n - 1; /* got 'n' strings to create one new */
|
|
|
|
|
+ L->top -= n - 1; /* popped 'n' strings and pushed one */
|
|
|
|
|
} while (total > 1); /* repeat until only 1 result left */
|
|
|
|
|
}
|
|
|
|
|
|
