From 0a3d6025705af50f1a8a1072407cac1b761f1fc6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Wed, 9 Oct 1996 04:02:03 +0200
Subject: [PATCH] unlink_string added

Rev: src/stralloc.c:1.3
---
 src/stralloc.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/stralloc.c b/src/stralloc.c
index ee04da58a7..ac7b4f1210 100644
--- a/src/stralloc.c
+++ b/src/stralloc.c
@@ -272,13 +272,18 @@ int my_strcmp(struct pike_string *a,struct pike_string *b)
   return low_binary_strcmp(a->str,a->len,b->str,b->len);
 }
 
-void really_free_string(struct pike_string *s)
+void unlink_pike_string(struct pike_string *s)
 {
   int h;
 
   h=StrHash(s->str,s->len);
   propagate_shared_string(s,h);
   base_table[h]=s->next;
+}
+
+void really_free_string(struct pike_string *s)
+{
+  unlink_pike_string(s);
   free((char *)s);
 }
 
-- 
GitLab