Fix for windows.

sbriais · sbriais · commit ac8b59a97ec9 · 2015-07-02T13:15:41.000+02:00
diff --git 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

Original file line number	Diff line number	Diff line change
`@@ -181,7 +181,7 @@ rule initial tokinfo prev = parse`
`181`	`181`	`\| "0" ['X''x'] hexa+ {`
`182`	`182`	`let s = tok lexbuf in`
`183`	`183`	`let info = tokinfo lexbuf in`
`184`		`- T_NUMBER (s, float_of_string s, info)`
	`184`	`+ T_NUMBER (s, Int64.(to_float (of_string s)), info)`
`185`	`185`	`}`
`186`	`186`	`\| '0'['0'-'7']+ {`
`187`	`187`	`let s = tok lexbuf in`