From 7bc0c73eb8372005228326ad48ad5bd43e10cb13 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Tue, 8 Jul 2003 14:07:35 +0000 Subject: [PATCH] Export de alloc_bigarray (PR#1519) git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5673 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/bigarray/bigarray.h | 4 ++-- otherlibs/bigarray/bigarray_stubs.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/otherlibs/bigarray/bigarray.h b/otherlibs/bigarray/bigarray.h index 361f8917c..76a45a9c7 100644 --- a/otherlibs/bigarray/bigarray.h +++ b/otherlibs/bigarray/bigarray.h @@ -68,8 +68,8 @@ struct caml_bigarray { #define Data_bigarray_val(v) (Bigarray_val(v)->data) -extern value alloc_bigarray(int flags, int num_dims, void * data, long * dim); -extern value alloc_bigarray_dims(int flags, int num_dims, void * data, +CAMLextern value alloc_bigarray(int flags, int num_dims, void * data, long * dim); +CAMLextern value alloc_bigarray_dims(int flags, int num_dims, void * data, ... /*dimensions, with type long */); #endif diff --git a/otherlibs/bigarray/bigarray_stubs.c b/otherlibs/bigarray/bigarray_stubs.c index 5606fc8f9..8eab5429e 100644 --- a/otherlibs/bigarray/bigarray_stubs.c +++ b/otherlibs/bigarray/bigarray_stubs.c @@ -85,7 +85,7 @@ static struct custom_operations bigarray_ops = { [data] cannot point into the Caml heap. [dim] may point into an object in the Caml heap. */ -value alloc_bigarray(int flags, int num_dims, void * data, long * dim) +CAMLexport value alloc_bigarray(int flags, int num_dims, void * data, long * dim) { long num_elts, size; int i; @@ -121,7 +121,7 @@ value alloc_bigarray(int flags, int num_dims, void * data, long * dim) /* Same as alloc_bigarray, but dimensions are passed as a list of arguments */ -value alloc_bigarray_dims(int flags, int num_dims, void * data, ...) +CAMLexport value alloc_bigarray_dims(int flags, int num_dims, void * data, ...) { va_list ap; long dim[MAX_NUM_DIMS];