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

1 files changed, 4 insertions, 4 deletions

diff --git a/byterun/obj.c b/byterun/obj.c
index f6001fbc3..d15bb75dd 100644
--- a/byterun/obj.c
+++ b/byterun/obj.c
@@ -73,7 +73,7 @@ CAMLprim value obj_block(value tag, value size)
   sz = Long_val(size);
   tg = Long_val(tag);
   if (sz == 0) return Atom(tg);
-  res = alloc(sz, tg);
+  res = caml_alloc(sz, tg);
   for (i = 0; i < sz; i++)
     Field(res, i) = Val_long(0);
 
@@ -91,10 +91,10 @@ CAMLprim value obj_dup(value arg)
   if (sz == 0) return arg;
   tg = Tag_val(arg);
   if (tg >= No_scan_tag) {
-    res = alloc(sz, tg);
+    res = caml_alloc(sz, tg);
     memcpy(Bp_val(res), Bp_val(arg), sz * sizeof(value));
   } else if (sz <= Max_young_wosize) {
-    res = alloc_small(sz, tg);
+    res = caml_alloc_small(sz, tg);
     for (i = 0; i < sz; i++) Field(res, i) = Field(arg, i);
   } else {
     res = alloc_shr(sz, tg);
@@ -173,7 +173,7 @@ CAMLprim value lazy_make_forward (value v)
   CAMLparam1 (v);
   CAMLlocal1 (res);
 
-  res = alloc_small (1, Forward_tag);
+  res = caml_alloc_small (1, Forward_tag);
   Modify (&Field (res, 0), v);
   CAMLreturn (res);
 }