From 7c56bd747e7d08f84b7de916ba067193043664f4 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 9 Apr 2018 08:46:36 -0500 Subject: [PATCH] fix: compatibility for CCArrayLabels --- src/core/CCArrayLabels.ml | 3 +++ src/core/CCArrayLabels.mli | 5 +++++ 2 files changed, 8 insertions(+) diff --git a/src/core/CCArrayLabels.ml b/src/core/CCArrayLabels.ml index deaf273a..f100fe0e 100644 --- a/src/core/CCArrayLabels.ml +++ b/src/core/CCArrayLabels.ml @@ -1,6 +1,9 @@ (* This file is free software, part of containers. See file "license" for more details. *) +(* fallback function *) +external make_float : int -> float array = "caml_make_float_vect" + include CCArray (*$inject diff --git a/src/core/CCArrayLabels.mli b/src/core/CCArrayLabels.mli index 653ef5e6..feac444a 100644 --- a/src/core/CCArrayLabels.mli +++ b/src/core/CCArrayLabels.mli @@ -13,6 +13,10 @@ type 'a printer = Format.formatter -> 'a -> unit (** {2 Arrays} *) +(**/**) +external make_float : int -> float array = "caml_make_float_vect" (* compat *) +(**/**) + include module type of struct include ArrayLabels end type 'a t = 'a array @@ -310,3 +314,4 @@ val sort_generic : (** Sort the array, without allocating (eats stack space though). Performance might be lower than {!Array.sort}. @since 0.14 *) +