From 07a9eab23ac073362f231ddc7215688cf221ff45 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 25 Aug 2023 15:55:14 -0300
Subject: Cannot use 'getshrstr' before setting 'shrlen'

---
 lstring.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lstring.c b/lstring.c
index 1032ad86..e921dd0f 100644
--- a/lstring.c
+++ b/lstring.c
@@ -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++;
-- 
cgit v1.2.3-55-g6feb