From cc7dfa82705b64d1cf43408244ef6c7dd930a6e9 Mon Sep 17 00:00:00 2001
From: Guillaume Bertholon
Date: Thu, 19 Jul 2018 13:33:17 +0200
Subject: Add primitive floats to 'vm_compute'

* This commit add float instructions to the VM, their encoding in bytecode
  and the interpretation of primitive float values after the reduction.

* The flag '-std=c99' could be added to the C compiler flags to ensure
  that float computation strictly follows the norm (ie. i387 80-bits
  format is not used as an optimization).

  Actually, we use '-fexcess-precision=standard' instead of '-std=c99'
  because the latter would disable GNU asm used in the VM.
---
 kernel/float64.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'kernel/float64.ml')

diff --git a/kernel/float64.ml b/kernel/float64.ml
index e74fd2e9f1..0b22e07e82 100644
--- a/kernel/float64.ml
+++ b/kernel/float64.ml
@@ -19,6 +19,8 @@ let is_nan f = f <> f
 let to_string f = if is_nan f then "nan" else string_of_float f
 let of_string = float_of_string
 
+let of_float f = f
+
 let opp = ( ~-. )
 let abs = abs_float
 
-- 
cgit v1.2.3