From 7f4906f565ab9f8b1125107a3abae3d759f3ecf2 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Wed, 8 Nov 2023 13:24:38 -0300
Subject: Towards external strings

Long strings have a pointer to string contents.
---
 lgc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lgc.c')

diff --git a/lgc.c b/lgc.c
index e4f8e396..e3fcaa3e 100644
--- a/lgc.c
+++ b/lgc.c
@@ -808,12 +808,12 @@ static void freeobj (lua_State *L, GCObject *o) {
     case LUA_VSHRSTR: {
       TString *ts = gco2ts(o);
       luaS_remove(L, ts);  /* remove it from hash table */
-      luaM_freemem(L, ts, sizelstring(ts->shrlen));
+      luaM_freemem(L, ts, sizestrshr(ts->shrlen));
       break;
     }
     case LUA_VLNGSTR: {
       TString *ts = gco2ts(o);
-      luaM_freemem(L, ts, sizelstring(ts->u.lnglen));
+      luaM_freemem(L, ts, sizestrlng(ts->u.lnglen));
       break;
     }
     default: lua_assert(0);
-- 
cgit v1.2.3-55-g6feb