mirror of
https://github.com/lua/lua
synced 2024-11-22 04:41:23 +03:00
Bug: Buffer overflow in string concatenation
Even if the string fits in size_t, the whole size of the TString object can overflow when we add the header.
This commit is contained in:
parent
842a83f09c
commit
5853c37a83
@ -224,7 +224,7 @@ TString *luaS_newlstr (lua_State *L, const char *str, size_t l) {
|
||||
return internshrstr(L, str, l);
|
||||
else {
|
||||
TString *ts;
|
||||
if (l_unlikely(l >= (MAX_SIZE - sizeof(TString))/sizeof(char)))
|
||||
if (l_unlikely(l * sizeof(char) >= (MAX_SIZE - sizeof(TString))))
|
||||
luaM_toobig(L);
|
||||
ts = luaS_createlngstrobj(L, l);
|
||||
memcpy(getlngstr(ts), str, l * sizeof(char));
|
||||
|
2
lvm.c
2
lvm.c
@ -661,7 +661,7 @@ void luaV_concat (lua_State *L, int total) {
|
||||
/* collect total length and number of strings */
|
||||
for (n = 1; n < total && tostring(L, s2v(top - n - 1)); n++) {
|
||||
size_t l = tsslen(tsvalue(s2v(top - n - 1)));
|
||||
if (l_unlikely(l >= (MAX_SIZE/sizeof(char)) - tl)) {
|
||||
if (l_unlikely(l >= MAX_SIZE - sizeof(TString) - tl)) {
|
||||
L->top.p = top - total; /* pop strings to avoid wasting stack */
|
||||
luaG_runerror(L, "string length overflow");
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user