Cannot use 'getshrstr' before setting 'shrlen'

This commit is contained in:
Roberto Ierusalimschy 2023-08-25 15:55:14 -03:00
parent 9363a8b990
commit 07a9eab23a
1 changed files with 1 additions and 1 deletions

View File

@ -207,8 +207,8 @@ static TString *internshrstr (lua_State *L, const char *str, size_t l) {
list = &tb->hash[lmod(h, tb->size)]; /* rehash with new size */
}
ts = createstrobj(L, l, LUA_VSHRSTR, h);
memcpy(getshrstr(ts), str, l * sizeof(char));
ts->shrlen = cast_byte(l);
memcpy(getshrstr(ts), str, l * sizeof(char));
ts->u.hnext = *list;
*list = ts;
tb->nuse++;