From 331b2d89c3dc4fb7e1b51276a5a9e37a6c8c8b3a Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Wed, 31 Dec 2003 14:20:40 +0000 Subject: depollution suite (PR#1914, PR#1956) git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6044 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- byterun/alloc.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'byterun/alloc.c') diff --git a/byterun/alloc.c b/byterun/alloc.c index 3784b1391..c25e53b4f 100644 --- a/byterun/alloc.c +++ b/byterun/alloc.c @@ -44,9 +44,9 @@ CAMLexport value caml_alloc (mlsize_t wosize, tag_t tag) for (i = 0; i < wosize; i++) Field (result, i) = 0; } }else{ - result = alloc_shr (wosize, tag); + result = caml_alloc_shr (wosize, tag); if (tag < No_scan_tag) memset (Bp_val (result), 0, Bsize_wsize (wosize)); - result = check_urgent_gc (result); + result = caml_check_urgent_gc (result); } return result; } @@ -76,8 +76,8 @@ CAMLexport value caml_alloc_string (mlsize_t len) if (wosize <= Max_young_wosize) { Alloc_small (result, wosize, String_tag); }else{ - result = alloc_shr (wosize, String_tag); - result = check_urgent_gc (result); + result = caml_alloc_shr (wosize, String_tag); + result = caml_check_urgent_gc (result); } Field (result, wosize - 1) = 0; offset_index = Bsize_wsize (wosize) - 1; @@ -121,7 +121,7 @@ CAMLexport value caml_alloc_array(value (*funct)(char const *), order (don't take the address &Field(result, n) before calling funct, which may cause a GC and move result). */ v = funct(arr[n]); - modify(&Field(result, n), v); + caml_modify(&Field(result, n), v); } CAMLreturn (result); } @@ -160,6 +160,6 @@ CAMLprim value caml_update_dummy(value dummy, value newval) Assert (size == Wosize_val(dummy)); Tag_val(dummy) = Tag_val(newval); for (i = 0; i < size; i++) - modify(&Field(dummy, i), Field(newval, i)); + caml_modify(&Field(dummy, i), Field(newval, i)); return Val_unit; } -- cgit v1.2.3-70-g09d2