Misc: switch to ocaml.5.01

ocsigen · Aug 11, 2023 · 0c10bff · 0c10bff
1 parent 2b429e5
commit 0c10bff
Show file tree

Hide file tree

Showing 9 changed files with 114 additions and 87 deletions.
diff --git a/compiler/tests-check-prim/main.output5 b/compiler/tests-check-prim/main.output5
@@ -155,13 +155,9 @@ caml_obj_set_tag
 caml_obj_truncate
 
 From +runtime_events.js:
-caml_custom_event_index
 caml_runtime_events_create_cursor
 caml_runtime_events_free_cursor
 caml_runtime_events_read_poll
-caml_runtime_events_user_register
-caml_runtime_events_user_resolve
-caml_runtime_events_user_write
 
 From +stdlib.js:
 caml_build_symbols
@@ -187,7 +183,6 @@ caml_set_static_env
 caml_spacetime_enabled
 caml_spacetime_only_works_for_native_code
 caml_sys_const_naked_pointers_checked
-caml_sys_is_regular_file
 
 From +unix.js:
 caml_unix_cleanup

diff --git a/compiler/tests-check-prim/unix-unix.output5 b/compiler/tests-check-prim/unix-unix.output5
@@ -264,13 +264,9 @@ caml_obj_set_tag
 caml_obj_truncate
 
 From +runtime_events.js:
-caml_custom_event_index
 caml_runtime_events_create_cursor
 caml_runtime_events_free_cursor
 caml_runtime_events_read_poll
-caml_runtime_events_user_register
-caml_runtime_events_user_resolve
-caml_runtime_events_user_write
 
 From +stdlib.js:
 caml_build_symbols
@@ -296,7 +292,6 @@ caml_set_static_env
 caml_spacetime_enabled
 caml_spacetime_only_works_for_native_code
 caml_sys_const_naked_pointers_checked
-caml_sys_is_regular_file
 
 From +unix.js:
 caml_unix_cleanup

diff --git a/compiler/tests-compiler/effects_continuations.ml b/compiler/tests-compiler/effects_continuations.ml
@@ -201,7 +201,7 @@ let%expect_test "test-compiler/lib-effects/test1.ml" =
     }
     //end
     function loop3(param, cont){
-     var _f_ = Stdlib_List[9];
+     var _f_ = Stdlib_List[10];
      return caml_cps_call2
              (_f_,
               _e_,

diff --git a/compiler/tests-compiler/gh1007.ml b/compiler/tests-compiler/gh1007.ml
@@ -492,9 +492,9 @@ let ()  = M.run ()
       var _e_ = i + 1 | 0;
       if(4 === i){
        var
-        _c_ = caml_call1(Stdlib_List[9], delayed[1]),
+        _c_ = caml_call1(Stdlib_List[10], delayed[1]),
         _d_ = function(f){return caml_call1(f, 0);};
-       return caml_call2(Stdlib_List[17], _d_, _c_);
+       return caml_call2(Stdlib_List[18], _d_, _c_);
       }
       var i = _e_;
      }
@@ -617,9 +617,9 @@ let ()  = M.run ()
         var _g_ = i + 1 | 0;
         if(4 !== i){var i = _g_; break;}
         var
-         _e_ = caml_call1(Stdlib_List[9], delayed[1]),
+         _e_ = caml_call1(Stdlib_List[10], delayed[1]),
          _f_ = function(f){return caml_call1(f, 0);};
-        return caml_call2(Stdlib_List[17], _f_, _e_);
+        return caml_call2(Stdlib_List[18], _f_, _e_);
        }
        var f = param$0[2], param$0 = f(0);
       }

diff --git a/compiler/tests-compiler/loops.ml b/compiler/tests-compiler/loops.ml
@@ -36,9 +36,9 @@ let%expect_test "rec-fun" =
      for(;;){
       if(! param$0){
        var
-        _a_ = caml_call1(Stdlib_List[9], acc$0),
-        _b_ = caml_call1(Stdlib_List[9], _a_);
-       return caml_call1(Stdlib_List[9], _b_);
+        _a_ = caml_call1(Stdlib_List[10], acc$0),
+        _b_ = caml_call1(Stdlib_List[10], _a_);
+       return caml_call1(Stdlib_List[10], _b_);
       }
       var
        xs = param$0[2],
@@ -78,9 +78,9 @@ let rec fun_with_loop acc = function
      for(;;){
       if(! param$0){
        var
-        _c_ = caml_call1(Stdlib_List[9], acc$0),
-        _d_ = caml_call1(Stdlib_List[9], _c_);
-       return caml_call1(Stdlib_List[9], _d_);
+        _c_ = caml_call1(Stdlib_List[10], acc$0),
+        _d_ = caml_call1(Stdlib_List[10], _c_);
+       return caml_call1(Stdlib_List[10], _d_);
       }
       var x = param$0[1];
       if(1 === x && ! param$0[2]){
@@ -476,7 +476,7 @@ let add_substitute =
            var
             match$0 =
               [0,
-               caml_call3(Stdlib_String[15], s, start$0, stop$0 - start$0 | 0),
+               caml_call3(Stdlib_String[16], s, start$0, stop$0 - start$0 | 0),
                stop$0];
            break a;
           }
@@ -500,7 +500,7 @@ let add_substitute =
              match$0 =
                [0,
                 caml_call3
-                 (Stdlib_String[15], s, new_start, (stop - start$0 | 0) - 1 | 0),
+                 (Stdlib_String[16], s, new_start, (stop - start$0 | 0) - 1 | 0),
                 stop + 1 | 0];
             break;
            }

diff --git a/compiler/tests-compiler/mutable_closure.ml b/compiler/tests-compiler/mutable_closure.ml
@@ -162,7 +162,7 @@ let%expect_test _ =
        var
         _c_ = indirect[1],
         _d_ = function(f){return caml_call1(f, 0);},
-        indirect$0 = caml_call2(Stdlib_List[19], _d_, _c_),
+        indirect$0 = caml_call2(Stdlib_List[20], _d_, _c_),
         direct$0 = direct[1];
        if(runtime.caml_equal(indirect$0, direct$0)) return 0;
        throw caml_maybe_attach_backtrace([0, Assert_failure, _b_], 1);

diff --git a/compiler/tests-toplevel/test_toplevel.reference b/compiler/tests-toplevel/test_toplevel.reference
@@ -1,5 +1,6 @@
 hello
 Line 3, characters 2-4:
 Error: Syntax error
+
 Line 4, characters 0-16:
 Error: Unbound module Missing_module