GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-14 05:43:00 +08:00
Code Issues Projects Releases Wiki Activity

Always use unsigned int for indexing table-arrays

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2024-10-24 15:33:25 -03:00
parent e3ce88c9e8
commit 25a2dac2bc
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ltable.c
View File

@ -951,7 +951,7 @@ lu_byte luaH_getint (Table *t, lua_Integer key, TValue *res) {
if (keyinarray(t, key)) {
lu_byte tag = *getArrTag(t, key - 1);
if (!tagisempty(tag))
farr2val(t, key - 1, tag, res);
farr2val(t, cast_uint(key) - 1, tag, res);
return tag;
}
else
@ -1062,7 +1062,7 @@ int luaH_psetint (Table *t, lua_Integer key, TValue *val) {
if (keyinarray(t, key)) {
lu_byte *tag = getArrTag(t, key - 1);
if (!tagisempty(*tag) || checknoTM(t->metatable, TM_NEWINDEX)) {
fval2arr(t, key - 1, tag, val);
fval2arr(t, cast_uint(key) - 1, tag, val);
return HOK; /* success */
}
else
@ -1118,7 +1118,7 @@ void luaH_finishset (lua_State *L, Table *t, const TValue *key,
}
else { /* array entry */
hres = ~hres; /* real index */
obj2arr(t, hres, value);
obj2arr(t, cast_uint(hres), value);
}
}
@ -1140,7 +1140,7 @@ void luaH_set (lua_State *L, Table *t, const TValue *key, TValue *value) {
*/
void luaH_setint (lua_State *L, Table *t, lua_Integer key, TValue *value) {
if (keyinarray(t, key))
obj2arr(t, key - 1, value);
obj2arr(t, cast_uint(key) - 1, value);
else {
int ok = rawfinishnodeset(getintfromhash(t, key), value);
if (!ok) {

2
ltests.c
View File

@ -1043,7 +1043,7 @@ static int table_query (lua_State *L) {
}
else if (cast_uint(i) < asize) {
lua_pushinteger(L, i);
arr2obj(t, i, s2v(L->top.p));
arr2obj(t, cast_uint(i), s2v(L->top.p));
api_incr_top(L);
lua_pushnil(L);
}