fix #6276: release the runtime in all stubs that might block

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14384 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 8 insertions, 0 deletions

diff --git a/byterun/memory.c b/byterun/memory.c
index 54d91c96d..529e5b248 100644
--- a/byterun/memory.c
+++ b/byterun/memory.c
@@ -581,6 +581,14 @@ CAMLexport void * caml_stat_alloc (asize_t sz)
   return result;
 }
 
+CAMLexport char * caml_stat_alloc_string(value str)
+{
+  mlsize_t sz = caml_string_length(str) + 1;
+  char * p = caml_stat_alloc(sz);
+  memcpy(p, String_val(str), sz);
+  return p;
+}
+
 CAMLexport void caml_stat_free (void * blk)
 {
   free (blk);