fix test

Author: hhugo

compiler/tests-compiler/call_gen.ml

@@ -82,10 +82,14 @@ module M1 = struct
     function m(_e_,_f_){return k(_d_,_c_,_e_,_f_)}
     //end
     function caml_call1(f,a0)
-     {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])}
+     {return (f.l >= 0?f.l:f.l = f.length) == 1
+              ?f(a0)
+              :runtime.caml_call_gen(f,[a0])}
     //end
     function caml_call2(f,a0,a1)
-     {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])}
+     {return (f.l >= 0?f.l:f.l = f.length) == 2
+              ?f(a0,a1)
+              :runtime.caml_call_gen(f,[a0,a1])}
     //end
     |}]
 end

compiler/tests-compiler/gh1051.ml

@@ -35,6 +35,8 @@ let%expect_test _ =
     {|
     Warning: integer overflow: integer 0xffffffff (4294967295) truncated to 0xffffffff (-1); the generated code might be incorrect.
     function caml_call2(f,a0,a1)
-     {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])}
+     {return (f.l >= 0?f.l:f.l = f.length) == 2
+              ?f(a0,a1)
+              :runtime.caml_call_gen(f,[a0,a1])}
     //end |}];
   ()

compiler/tests-compiler/gh1354.ml

@@ -50,7 +50,9 @@ with Exit ->
          runtime=globalThis.jsoo_runtime,
          caml_wrap_exception=runtime.caml_wrap_exception;
         function caml_call2(f,a0,a1)
-         {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])}
+         {return (f.l >= 0?f.l:f.l = f.length) == 2
+                  ?f(a0,a1)
+                  :runtime.caml_call_gen(f,[a0,a1])}
         var
          global_data=runtime.caml_get_global_data(),
          Stdlib=global_data.Stdlib,
@@ -108,7 +110,9 @@ with Exit ->
          caml_string_of_jsbytes=runtime.caml_string_of_jsbytes,
          caml_wrap_exception=runtime.caml_wrap_exception;
         function caml_call3(f,a0,a1,a2)
-         {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])}
+         {return (f.l >= 0?f.l:f.l = f.length) == 3
+                  ?f(a0,a1,a2)
+                  :runtime.caml_call_gen(f,[a0,a1,a2])}
         var
          global_data=runtime.caml_get_global_data(),
          Stdlib=global_data.Stdlib,
@@ -179,7 +183,9 @@ with Exit ->
          caml_string_of_jsbytes=runtime.caml_string_of_jsbytes,
          caml_wrap_exception=runtime.caml_wrap_exception;
         function caml_call2(f,a0,a1)
-         {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])}
+         {return (f.l >= 0?f.l:f.l = f.length) == 2
+                  ?f(a0,a1)
+                  :runtime.caml_call_gen(f,[a0,a1])}
         var
          global_data=runtime.caml_get_global_data(),
          Stdlib=global_data.Stdlib,

compiler/tests-compiler/lambda_lifting.ml

@@ -35,7 +35,9 @@ Printf.printf "%d\n" (f 3)
                   :runtime.caml_trampoline_return(f,[a0,a1])}
         function caml_cps_call3(f,a0,a1,a2)
          {return runtime.caml_stack_check_depth()
-                  ?f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])
+                  ?(f.l >= 0?f.l:f.l = f.length) == 3
+                    ?f(a0,a1,a2)
+                    :runtime.caml_call_gen(f,[a0,a1,a2])
                   :runtime.caml_trampoline_return(f,[a0,a1,a2])}
         return runtime.caml_callback
                 (function(cont)

lib/tests/test_fun_call.ml

@@ -28,7 +28,7 @@ let s x =
     if(x === undefined)
       return "undefined"
     if(typeof x === "function")
-      return "function#" + x.length
+      return "function#" + x.length + "#" + x.l
     if(x.toString() == "[object Arguments]")
       return "(Arguments: " + Array.prototype.slice.call(x).toString() + ")";
     return x.toString()
@@ -96,7 +96,7 @@ let%expect_test "partial application, 0 argument call is treated like 1 argument
 let%expect_test _ =
   let plus = Js.wrap_callback (fun a b -> a + b) in
   call_and_log plus {| (function(f){ return f(1) }) |};
-  [%expect {| Result: function#0 |}];
+  [%expect {| Result: function#0#undefined |}];
   call_and_log plus {| (function(f){ return f(1)(2) }) |};
   [%expect {| Result: 3 |}];
   call_and_log plus {| (function(f){ return f(1,2) }) |};
@@ -147,7 +147,7 @@ let%expect_test "wrap_callback_strict" =
     (Js.Unsafe.callback_with_arity 2 cb3)
     {| (function(f){ return f(1,2,3) }) |};
   [%expect {|
-    Result: function#0 |}];
+    Result: function#1#1 |}];
   call_and_log
     (Js.Unsafe.callback_with_arity 2 cb3)
     ~cont:(fun g -> g 4)
@@ -164,7 +164,7 @@ let%expect_test "wrap_callback_strict" =
     Result: 0 |}];
   call_and_log (Js.Unsafe.callback_with_arity 2 cb3) {| (function(f){ return f(1,2) }) |};
   [%expect {|
-    Result: function#0 |}]
+    Result: function#1#1 |}]
 
 let%expect_test "wrap_callback_strict" =
   call_and_log
@@ -238,7 +238,7 @@ let%expect_test "partial application, 0 argument call is treated 1 argument (und
 let%expect_test _ =
   let plus = Js.wrap_meth_callback (fun _ a b -> a + b) in
   call_and_log plus {| (function(f){ return f(1) }) |};
-  [%expect {| Result: function#0 |}];
+  [%expect {| Result: function#0#undefined |}];
   call_and_log plus {| (function(f){ return f(1)(2) }) |};
   [%expect {| Result: 3 |}];
   call_and_log plus {| (function(f){ return f(1,2) }) |};
@@ -291,7 +291,7 @@ let%expect_test "wrap_meth_callback_strict" =
     (Js.Unsafe.meth_callback_with_arity 2 cb4)
     {| (function(f){ return f.apply("this",[1,2,3]) }) |};
   [%expect {|
-    Result: function#0 |}];
+    Result: function#1#1 |}];
   call_and_log
     (Js.Unsafe.meth_callback_with_arity 2 cb4)
     ~cont:(fun g -> g 4)
@@ -309,7 +309,7 @@ let%expect_test "wrap_meth_callback_strict" =
   call_and_log
     (Js.Unsafe.meth_callback_with_arity 2 cb4)
     {| (function(f){ return f.apply("this",[1,2]) }) |};
-  [%expect {| Result: function#0 |}]
+  [%expect {| Result: function#1#1 |}]
 
 let%expect_test "wrap_meth_callback_strict" =
   call_and_log
@@ -354,7 +354,7 @@ let%expect_test "partial application, extra arguments set to undefined" =
 let%expect_test _ =
   call_and_log cb3 ~cont:(fun g -> g 1) {| (function(f){ return f }) |};
   [%expect {|
-    Result: function#0 |}]
+    Result: function#2#2 |}]
 
 let%expect_test _ =
   call_and_log cb3 ~cont:(fun g -> g 1 2 3 4) {| (function(f){ return f }) |};
@@ -369,7 +369,7 @@ let%expect_test _ =
     | _ -> Printf.printf "Error: unknown"
   in
   f cb5;
-  [%expect {| Result: function#0 |}];
+  [%expect {| Result: function#1#1 |}];
   f cb4;
   [%expect {|
     got 1, 1, 2, 3, done
@@ -399,7 +399,7 @@ let%expect_test _ =
     Result: 0 |}];
   f (Obj.magic cb4);
   [%expect {|
-    Result: function#0 |}];
+    Result: function#1#1 |}];
   f (Obj.magic cb5);
   [%expect {|
-    Result: function#0 |}]
+    Result: function#2#2 |}]