diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2003-07-08 14:07:35 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2003-07-08 14:07:35 +0000 |
| commit | 7bc0c73eb8372005228326ad48ad5bd43e10cb13 (patch) | |
| tree | a2cacb9474a2f6f61305c7ca4e25f4d62dd814cc /otherlibs | |
| parent | 1b52a29d9440882ebbf77ff28d773f97153cb76e (diff) | |
| download | ocaml-7bc0c73eb8372005228326ad48ad5bd43e10cb13.tar.gz | |
Export de alloc_bigarray (PR#1519)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5673 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs')
| -rw-r--r-- | otherlibs/bigarray/bigarray.h | 4 | ||||
| -rw-r--r-- | 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 361f8917cd..76a45a9c78 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 5606fc8f97..8eab5429e7 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]; |