From 786f3b7d2d5cfdf3a5643192e5103863a8a04b1c Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 26 Oct 2020 12:49:12 +0100
Subject: Yet another normal / neutral bug in primitive conversion.

By no means a float is a neutral value. When put inside a Zprimitive context
it can trigger computation.
---
 kernel/cClosure.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel')

diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml
index 236ce42628..952237ab99 100644
--- a/kernel/cClosure.ml
+++ b/kernel/cClosure.ml
@@ -1165,7 +1165,7 @@ module FNativeEntries =
 
     let mkFloat env f =
       check_float env;
-      { mark = mark Norm KnownR; term = FFloat f }
+      { mark = mark Cstr KnownR; term = FFloat f }
 
     let mkBool env b =
       check_bool env;
-- 
cgit v1.2.3