diff options
Diffstat (limited to 'byterun/alloc.c')
| -rw-r--r-- | byterun/alloc.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/byterun/alloc.c b/byterun/alloc.c index d664bd9419..e49fabd017 100644 --- a/byterun/alloc.c +++ b/byterun/alloc.c @@ -161,6 +161,7 @@ CAMLexport value caml_alloc_array(value (*funct)(char const *), /* [len] is a number of floats */ CAMLprim value caml_alloc_float_array(mlsize_t len) { +#ifdef FLAT_FLOAT_ARRAY mlsize_t wosize = len * Double_wosize; value result; /* For consistency with [caml_make_vect], which can't tell whether it should @@ -176,6 +177,9 @@ CAMLprim value caml_alloc_float_array(mlsize_t len) result = caml_check_urgent_gc (result); } return result; +#else + return caml_alloc (len, 0); +#endif } @@ -232,7 +236,7 @@ CAMLprim value caml_update_dummy(value dummy, value newval) if (tag == Double_array_tag){ size = Wosize_val (newval) / Double_wosize; for (i = 0; i < size; i++){ - Store_double_field (dummy, i, Double_field (newval, i)); + Store_double_flat_field (dummy, i, Double_flat_field (newval, i)); } }else{ for (i = 0; i < size; i++){ |