Safer Safe_String_val implementation

grain-lang · Jul 21, 2020 · 182e88d · 182e88d
1 parent c925d64
commit 182e88d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ocaml_helpers.h b/src/ocaml_helpers.h
@@ -27,7 +27,7 @@ static struct custom_operations binaryen_ops;
 #define Is_none(v) ((v) == Val_none)
 #define Is_some(v) Is_block(v)
 
-#define Safe_String_val(v) strdup(String_val(v))
+#define Safe_String_val(v) memcpy(malloc(caml_string_length(v) + 1), String_val(v), caml_string_length(v) + 1)
 
 CAMLprim value
 caml_alloc_some(value v);