diff options
Diffstat (limited to 'byterun/array.c')
| -rw-r--r-- | byterun/array.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/byterun/array.c b/byterun/array.c index 29847c3b5..c13c0fed7 100644 --- a/byterun/array.c +++ b/byterun/array.c @@ -26,7 +26,7 @@ CAMLprim value caml_array_get_addr(value array, value index) { long idx = Long_val(index); - if (idx < 0 || idx >= Wosize_val(array)) array_bound_error(); + if (idx < 0 || idx >= Wosize_val(array)) caml_array_bound_error(); return Field(array, idx); } @@ -37,7 +37,7 @@ CAMLprim value caml_array_get_float(value array, value index) value res; if (idx < 0 || idx >= Wosize_val(array) / Double_wosize) - array_bound_error(); + caml_array_bound_error(); d = Double_field(array, idx); #define Setup_for_gc #define Restore_after_gc @@ -59,7 +59,7 @@ CAMLprim value caml_array_get(value array, value index) CAMLprim value caml_array_set_addr(value array, value index, value newval) { long idx = Long_val(index); - if (idx < 0 || idx >= Wosize_val(array)) array_bound_error(); + if (idx < 0 || idx >= Wosize_val(array)) caml_array_bound_error(); Modify(&Field(array, idx), newval); return Val_unit; } @@ -68,7 +68,7 @@ CAMLprim value caml_array_set_float(value array, value index, value newval) { long idx = Long_val(index); if (idx < 0 || idx >= Wosize_val(array) / Double_wosize) - array_bound_error(); + caml_array_bound_error(); Store_double_field(array, idx, Double_val(newval)); return Val_unit; } |