From ac8b59a97ec9090d83963fe6c9d2cdb7098d3fd6 Mon Sep 17 00:00:00 2001
From: Sebastien Briais <sebastien.briais@lexifi.com>
Date: Thu, 2 Jul 2015 13:15:41 +0200
Subject: [PATCH] Fix for windows.

---
 compiler/js_lexer.mll | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/js_lexer.mll b/compiler/js_lexer.mll
index ef12d9f1b0..02c2509a9f 100644
--- a/compiler/js_lexer.mll
+++ b/compiler/js_lexer.mll
@@ -181,7 +181,7 @@ rule initial tokinfo prev = parse
   | "0" ['X''x'] hexa+ {
       let s = tok lexbuf in
       let info = tokinfo lexbuf in
-      T_NUMBER (s, float_of_string s, info)
+      T_NUMBER (s, Int64.(to_float (of_string s)), info)
     }
   | '0'['0'-'7']+ {
       let s = tok lexbuf in