diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 22:15:02 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 22:15:02 +0000 |
| commit | 31943bac1db3351118c7f911db99bd567f02a883 (patch) | |
| tree | 053244070a0a7f612d637a0547f0d851a2dd024a /byterun/fail.c | |
| parent | dbf40e0b61af6f34d4a2736be1f0562ee5e8a52f (diff) | |
depollution suite (PR#1914 et PR#1956); byterun/weak.c: PR#1929 suite
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6041 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/fail.c')
| -rw-r--r-- | byterun/fail.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/byterun/fail.c b/byterun/fail.c index b19c4f90b..b8faa8ee6 100644 --- a/byterun/fail.c +++ b/byterun/fail.c @@ -46,7 +46,7 @@ CAMLexport void raise_constant(value tag) CAMLparam1 (tag); CAMLlocal1 (bucket); - bucket = alloc_small (1, 0); + bucket = caml_alloc_small (1, 0); Field(bucket, 0) = tag; mlraise(bucket); } @@ -56,7 +56,7 @@ CAMLexport void raise_with_arg(value tag, value arg) CAMLparam2 (tag, arg); CAMLlocal1 (bucket); - bucket = alloc_small (2, 0); + bucket = caml_alloc_small (2, 0); Field(bucket, 0) = tag; Field(bucket, 1) = arg; mlraise(bucket); @@ -67,7 +67,7 @@ CAMLexport void raise_with_string(value tag, char *msg) CAMLparam1 (tag); CAMLlocal1 (vmsg); - vmsg = copy_string(msg); + vmsg = caml_copy_string(msg); raise_with_arg(tag, vmsg); } @@ -98,7 +98,8 @@ static struct { CAMLexport void raise_out_of_memory(void) { if (out_of_memory_bucket.exn == 0) - fatal_error("Fatal error: out of memory while raising Out_of_memory\n"); + caml_fatal_error + ("Fatal error: out of memory while raising Out_of_memory\n"); mlraise((value) &(out_of_memory_bucket.exn)); } |