From 95c20bc6aece97adee9adc812fc8ac29a52552f3 Mon Sep 17 00:00:00 2001
From: Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr>
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
---
 bytecomp/printlambda.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'bytecomp/printlambda.ml')

diff --git a/bytecomp/printlambda.ml b/bytecomp/printlambda.ml
index 4ecf2df38..e6d84309d 100644
--- a/bytecomp/printlambda.ml
+++ b/bytecomp/printlambda.ml
@@ -182,6 +182,7 @@ let primitive ppf = function
       print_bigarray "get" unsafe kind ppf layout
   | Pbigarrayset(unsafe, n, kind, layout) ->
       print_bigarray "set" unsafe kind ppf layout
+  | Pbigarraydim(n) -> fprintf ppf "Bigarray.dim_%i" n
 
 let rec lam ppf = function
   | Lvar id ->
-- 
cgit v1.2.3-70-g09d2