diff options
Diffstat (limited to 'byterun/ints.c')
-rw-r--r-- | byterun/ints.c | 10 |
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; } |