diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2004-01-01 16:42:43 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2004-01-01 16:42:43 +0000 |
| commit | 5a678d29f58926a5cd7db0c9121c69cb603a77f9 (patch) | |
| tree | c8157238e17990d5d90f9eeb1c08506e253593bb /byterun/array.c | |
| parent | 331b2d89c3dc4fb7e1b51276a5a9e37a6c8c8b3a (diff) | |
| download | ocaml-5a678d29f58926a5cd7db0c9121c69cb603a77f9.tar.gz | |
depollution suite (PR#1914 et PR#1956)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6045 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/array.c')
| -rw-r--r-- | byterun/array.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/byterun/array.c b/byterun/array.c index 097607777f..29847c3b5d 100644 --- a/byterun/array.c +++ b/byterun/array.c @@ -143,13 +143,13 @@ CAMLprim value caml_make_vect(value len, value init) && Tag_val(init) == Double_tag) { d = Double_val(init); wsize = size * Double_wosize; - if (wsize > Max_wosize) invalid_argument("Array.make"); + if (wsize > Max_wosize) caml_invalid_argument("Array.make"); res = caml_alloc(wsize, Double_array_tag); for (i = 0; i < size; i++) { Store_double_field(res, i, d); } } else { - if (size > Max_wosize) invalid_argument("Array.make"); + if (size > Max_wosize) caml_invalid_argument("Array.make"); if (size < Max_young_wosize) { res = caml_alloc_small(size, 0); for (i = 0; i < size; i++) Field(res, i) = init; |