depollution suite (PR#1914, PR#1956)

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

1 files changed, 5 insertions, 5 deletions

diff --git a/byterun/ints.c b/byterun/ints.c
index edda1b736..345765364 100644
--- a/byterun/ints.c
+++ b/byterun/ints.c
@@ -163,7 +163,7 @@ static char * parse_format(value fmt,
   if (prec < FORMAT_BUFFER_SIZE)
     return default_format_buffer;
   else
-    return stat_alloc(prec + 1);
+    return caml_stat_alloc(prec + 1);
 }
 
 CAMLprim value format_int(value fmt, value arg)
@@ -184,7 +184,7 @@ CAMLprim value format_int(value fmt, value arg)
     break;
   }
   res = caml_copy_string(buffer);
-  if (buffer != default_format_buffer) stat_free(buffer);
+  if (buffer != default_format_buffer) caml_stat_free(buffer);
   return res;
 }
 
@@ -314,7 +314,7 @@ CAMLprim value int32_format(value fmt, value arg)
   buffer = parse_format(fmt, "", format_string, default_format_buffer, &conv);
   sprintf(buffer, format_string, (long) Int32_val(arg));
   res = caml_copy_string(buffer);
-  if (buffer != default_format_buffer) stat_free(buffer);
+  if (buffer != default_format_buffer) caml_stat_free(buffer);
   return res;
 }
 
@@ -509,7 +509,7 @@ CAMLprim value int64_format(value fmt, value arg)
                         format_string, default_format_buffer, &conv);
   I64_format(buffer, format_string, Int64_val(arg));
   res = caml_copy_string(buffer);
-  if (buffer != default_format_buffer) stat_free(buffer);
+  if (buffer != default_format_buffer) caml_stat_free(buffer);
   return res;
 }
 
@@ -715,7 +715,7 @@ CAMLprim value nativeint_format(value fmt, value arg)
   buffer = parse_format(fmt, "l", format_string, default_format_buffer, &conv);
   sprintf(buffer, format_string, (long) Nativeint_val(arg));
   res = caml_copy_string(buffer);
-  if (buffer != default_format_buffer) stat_free(buffer);
+  if (buffer != default_format_buffer) caml_stat_free(buffer);
   return res;
 }