Fix memory leak in egg_string_unicodesup_desurrogate()

Patch by: michaelortmann
eggheads · Jun 2, 2024 · 9068233 · 9068233
1 parent 39a582c
commit 9068233
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/tcl.c b/src/tcl.c
@@ -767,6 +767,7 @@ Tcl_Obj *egg_string_unicodesup_desurrogate(const char *oldstr, int len)
 {
   int stridx = 0, bufidx = 0;
   char *buf = nmalloc(len);
+  Tcl_Obj *o;
 
   while (stridx < len) {
     uint32_t low, high;
@@ -787,7 +788,10 @@ Tcl_Obj *egg_string_unicodesup_desurrogate(const char *oldstr, int len)
       }
     }
   }
-  return Tcl_NewStringObj(buf, bufidx);
+
+  o = Tcl_NewStringObj(buf, bufidx);
+  nfree(buf);
+  return o;
 }
 
 /* C function called for ::egg_tcl_tolower/toupper/totitle