From 95c20bc6aece97adee9adc812fc8ac29a52552f3 Mon Sep 17 00:00:00 2001 From: Fabrice Le Fessant Date: Tue, 6 Nov 2012 17:03:34 +0000 Subject: PR#5762: Add primitives for fast access to bigarray dimensions git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13069 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/bigarray/bigarray_stubs.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'otherlibs/bigarray/bigarray_stubs.c') diff --git a/otherlibs/bigarray/bigarray_stubs.c b/otherlibs/bigarray/bigarray_stubs.c index 567a72deba..4af0bfde65 100644 --- a/otherlibs/bigarray/bigarray_stubs.c +++ b/otherlibs/bigarray/bigarray_stubs.c @@ -475,6 +475,21 @@ CAMLprim value caml_ba_dim(value vb, value vn) return Val_long(b->dim[n]); } +CAMLprim value caml_ba_dim_1(value vb) +{ + return caml_ba_dim(vb, Val_int(0)); +} + +CAMLprim value caml_ba_dim_2(value vb) +{ + return caml_ba_dim(vb, Val_int(1)); +} + +CAMLprim value caml_ba_dim_3(value vb) +{ + return caml_ba_dim(vb, Val_int(2)); +} + /* Return the kind of a big array */ CAMLprim value caml_ba_kind(value vb) -- cgit v1.2.1