diff options
| author | Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr> | 2012-11-06 17:03:34 +0000 |
|---|---|---|
| committer | Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr> | 2012-11-06 17:03:34 +0000 |
| commit | 95c20bc6aece97adee9adc812fc8ac29a52552f3 (patch) | |
| tree | f54f9d5b97a87a1ef400a1ada77d64c1f17248e1 /bytecomp/printlambda.ml | |
| parent | f1fb961192acd95eed1dd15580b1051e7be61b2c (diff) | |
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
Diffstat (limited to 'bytecomp/printlambda.ml')
| -rw-r--r-- | bytecomp/printlambda.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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 -> |