Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Export de alloc_bigarray (PR#1519) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5673 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2003-07-08 14:07:35 +00:00
parent 1b52a29d94
commit 7bc0c73eb8
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
otherlibs/bigarray/bigarray.h
View File

@ -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

4
otherlibs/bigarray/bigarray_stubs.c
View File

@ -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];