From b31082bfb72bd97a29c717e6fe11b493bd226ebe Mon Sep 17 00:00:00 2001
From: charguer <arthur@chargueraud.org>
Date: Thu, 26 Nov 2015 17:45:11 +0100
Subject: [PATCH] comment_change
---
generator/Makefile | 10 ++++++++++
generator/tests/jsref/JsNumber.ml | 4 ++--
2 files changed, 12 insertions(+), 2 deletions(-)
diff --git a/generator/Makefile b/generator/Makefile
index 9e5a4f0..316e8d8 100644
--- a/generator/Makefile
+++ b/generator/Makefile
@@ -90,3 +90,13 @@ endif
ifeq ($(MAKECMDGOALS),tests/jsref)
-include $(ML_JSREF:.ml=.ml.d)
endif
+
+
+
+
+# TODO
+
+# or pattern -> see JsNumber
+# records -> replace warning with code
+# lazy -> use a function for fresh locations in copied extracted code
+# replace "char list" with strings.
diff --git a/generator/tests/jsref/JsNumber.ml b/generator/tests/jsref/JsNumber.ml
index bda4032..213e705 100644
--- a/generator/tests/jsref/JsNumber.ml
+++ b/generator/tests/jsref/JsNumber.ml
@@ -136,7 +136,7 @@ let classify_float n =
let to_int32 = fun n ->
match classify_float n with
- | FP_normal ->
+ | FP_normal -> (* ARTHUR hacked this from | FP_normal | FP_subnormal *)
let i32 = 2. ** 32. in
let i31 = 2. ** 31. in
let posint = (if n < 0. then (-1.) else 1.) *. (floor (abs_float n)) in
@@ -151,7 +151,7 @@ let to_int32 = fun n ->
let to_uint32 = fun n ->
match classify_float n with
- | FP_normal ->
+ | FP_normal -> (* ARTHUR hacked this from | FP_normal | FP_subnormal *)
let i32 = 2. ** 32. in
let posint = (if n < 0. then (-1.) else 1.) *. (floor (abs_float n)) in
let int32bit =
--
GitLab