diff options
| -rw-r--r-- | otherlibs/bigarray/bigarray.ml | 12 | ||||
| -rw-r--r-- | otherlibs/bigarray/bigarray.mli | 12 |
2 files changed, 12 insertions, 12 deletions
diff --git a/otherlibs/bigarray/bigarray.ml b/otherlibs/bigarray/bigarray.ml index 5b97769e9..f649fad1d 100644 --- a/otherlibs/bigarray/bigarray.ml +++ b/otherlibs/bigarray/bigarray.ml @@ -90,8 +90,8 @@ module Array1 = struct type ('a, 'b, 'c) t = ('a, 'b, 'c) Genarray.t let create kind layout dim = Genarray.create kind layout [|dim|] - external get: ('a, 'b, 'c) t -> int -> 'a = "bigarray_get_1" - external set: ('a, 'b, 'c) t -> int -> 'a -> unit = "bigarray_set_1" + external get: ('a, 'b, 'c) t -> int -> 'a = "%bigarray_ref_1" + external set: ('a, 'b, 'c) t -> int -> 'a -> unit = "%bigarray_set_1" let dim a = Genarray.nth_dim a 0 external sub: ('a, 'b, 'c) t -> int -> int -> ('a, 'b, 'c) t = "bigarray_sub" external blit: ('a, 'b, 'c) t -> ('a, 'b, 'c) t -> unit = "bigarray_blit" @@ -109,8 +109,8 @@ module Array2 = struct type ('a, 'b, 'c) t = ('a, 'b, 'c) Genarray.t let create kind layout dim1 dim2 = Genarray.create kind layout [|dim1; dim2|] - external get: ('a, 'b, 'c) t -> int -> int -> 'a = "bigarray_get_2" - external set: ('a, 'b, 'c) t -> int -> int -> 'a -> unit = "bigarray_set_2" + external get: ('a, 'b, 'c) t -> int -> int -> 'a = "%bigarray_ref_2" + external set: ('a, 'b, 'c) t -> int -> int -> 'a -> unit = "%bigarray_set_2" let dim1 a = Genarray.nth_dim a 0 let dim2 a = Genarray.nth_dim a 1 external sub_left: ('a, 'b, c_layout) t -> int -> int -> ('a, 'b, c_layout) t = "bigarray_sub" @@ -141,8 +141,8 @@ module Array3 = struct type ('a, 'b, 'c) t = ('a, 'b, 'c) Genarray.t let create kind layout dim1 dim2 dim3 = Genarray.create kind layout [|dim1; dim2; dim3|] - external get: ('a, 'b, 'c) t -> int -> int -> int -> 'a = "bigarray_get_3" - external set: ('a, 'b, 'c) t -> int -> int -> int -> 'a -> unit = "bigarray_set_3" + external get: ('a, 'b, 'c) t -> int -> int -> int -> 'a = "%bigarray_ref_3" + external set: ('a, 'b, 'c) t -> int -> int -> int -> 'a -> unit = "%bigarray_set_3" let dim1 a = Genarray.nth_dim a 0 let dim2 a = Genarray.nth_dim a 1 let dim3 a = Genarray.nth_dim a 2 diff --git a/otherlibs/bigarray/bigarray.mli b/otherlibs/bigarray/bigarray.mli index 8bc709100..c30fc52f9 100644 --- a/otherlibs/bigarray/bigarray.mli +++ b/otherlibs/bigarray/bigarray.mli @@ -369,14 +369,14 @@ module Array1: sig val dim: ('a, 'b, 'c) t -> int (* Return the size (dimension) of the given one-dimensional big array. *) - external get: ('a, 'b, 'c) t -> int -> 'a = "bigarray_get_1" + external get: ('a, 'b, 'c) t -> int -> 'a = "%bigarray_ref_1" (* [Array1.get a x], or alternatively [a.{x}], returns the element of [a] at index [x]. [x] must be greater or equal than [0] and strictly less than [Array1.dim a] if [a] has C layout. If [a] has Fortran layout, [x] must be greater or equal than [1] and less or equal than [Array1.dim a]. Otherwise, [Invalid_arg] is raised. *) - external set: ('a, 'b, 'c) t -> int -> 'a -> unit = "bigarray_set_1" + external set: ('a, 'b, 'c) t -> int -> 'a -> unit = "%bigarray_set_1" (* [Array1.set a x v], also written [a.{x} <- v], stores the value [v] at index [x] in [a]. [x] must be inside the bounds of [a] as described in [Array1.get]; @@ -425,13 +425,13 @@ module Array2: sig val dim2: ('a, 'b, 'c) t -> int (* Return the second dimension of the given two-dimensional big array. *) - external get: ('a, 'b, 'c) t -> int -> int -> 'a = "bigarray_get_2" + external get: ('a, 'b, 'c) t -> int -> int -> 'a = "%bigarray_ref_2" (* [Array2.get a x y], also written [a.{x,y}], returns the element of [a] at coordinates ([x], [y]). [x] and [y] must be within the bounds of [a], as described for [Genarray.get]; otherwise, [Invalid_arg] is raised. *) - external set: ('a, 'b, 'c) t -> int -> int -> 'a -> unit = "bigarray_set_2" + external set: ('a, 'b, 'c) t -> int -> int -> 'a -> unit = "%bigarray_set_2" (* [Array2.set a x y v], or alternatively [a.{x,y} <- v], stores the value [v] at coordinates ([x], [y]) in [a]. [x] and [y] must be within the bounds of [a], @@ -507,13 +507,13 @@ module Array3: sig val dim3: ('a, 'b, 'c) t -> int (* Return the third dimension of the given three-dimensional big array. *) - external get: ('a, 'b, 'c) t -> int -> int -> int -> 'a = "bigarray_get_3" + external get: ('a, 'b, 'c) t -> int -> int -> int -> 'a = "%bigarray_ref_3" (* [Array3.get a x y z], also written [a.{x,y,z}], returns the element of [a] at coordinates ([x], [y], [z]). [x], [y] and [z] must be within the bounds of [a], as described for [Genarray.get]; otherwise, [Invalid_arg] is raised. *) - external set: ('a, 'b, 'c) t -> int -> int -> int -> 'a -> unit = "bigarray_set_3" + external set: ('a, 'b, 'c) t -> int -> int -> int -> 'a -> unit = "%bigarray_set_3" (* [Array3.set a x y v], or alternatively [a.{x,y,z} <- v], stores the value [v] at coordinates ([x], [y], [z]) in [a]. [x], [y] and [z] must be within the bounds of [a], |