From a561c00c7426477253e64dd921462f5d221200de Mon Sep 17 00:00:00 2001
From: Patrick Baudin <patrick.baudin@cea.fr>
Date: Fri, 15 Oct 2021 13:41:42 +0200
Subject: [PATCH] Removing Ocaml Warning 6: ommited label in the application of
function
---
src/libraries/utils/floating_point.ml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/libraries/utils/floating_point.ml b/src/libraries/utils/floating_point.ml
index 49be26a813e..863dd66e8b1 100644
--- a/src/libraries/utils/floating_point.ml
+++ b/src/libraries/utils/floating_point.ml
@@ -452,7 +452,7 @@ let nextafter_aux ~is_f32 fincr fdecr x y =
then y
else if isnan x || isnan y then nan
else if x = 0.0 (* or -0.0 *) then
- if x < y then min_denormal_float is_f32 else -. (min_denormal_float is_f32)
+ if x < y then min_denormal_float ~is_f32 else -. (min_denormal_float ~is_f32)
(* the following conditions might be simpler if we had unsigned ints
(uint32/uint64) *)
else if x = neg_infinity (* && y = neg_infinity *) then fdecr x
--
GitLab