* lib.h (lazy_string): Fix incorrect comment.

* lib.c (split_str, split_str_set): It is necessary to protect input
parameters against GC, because we cache their internal pointers,
after which we no longer refer to the objects themselves. Moreover,
we perform object allocation, and then keep using the internal
pointers.

1 files changed, 12 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 99edd835..4d3c511a 100644
--- a/lib.c
+++ b/lib.c
@@ -999,6 +999,9 @@ val split_str(val str, val sep)
   const wchar_t *csep = c_str(sep);
   size_t len_sep = c_num(length_str(sep));
 
+  prot1(&str);
+  prot1(&sep);
+
   list_collect_decl (out, iter);
 
   for (; *cstr != 0; cstr += len_sep) {
@@ -1010,6 +1013,9 @@ val split_str(val str, val sep)
     cstr += span;
   }
 
+  rel1(&sep);
+  rel1(&str);
+
   return out;
 }
 
@@ -1019,6 +1025,9 @@ val split_str_set(val str, val set)
   const wchar_t *cset = c_str(set);
   list_collect_decl (out, iter);
 
+  prot1(&str);
+  prot1(&set);
+
   for (; *cstr != 0; cstr++) {
     size_t span = wcscspn(cstr, cset);
     val piece = mkustring(num(span));
@@ -1027,6 +1036,9 @@ val split_str_set(val str, val set)
     cstr += span;
   }
 
+  rel1(&set);
+  rel1(&str);
+
   return out;
 }