Compiler: fix for OCaml 5.4

Author: hhugo

compiler/lib/magic_number.ml

@@ -73,11 +73,12 @@ let v =
   | 5 :: 01 :: _ -> 33
   | 5 :: 02 :: _ -> 34
   | 5 :: 03 :: _ -> 35
+  | 5 :: 04 :: _ -> 36
   | _ ->
       if Ocaml_version.compare current [ 4; 13 ] < 0
       then failwith "OCaml version unsupported. Upgrade to OCaml 4.13 or newer."
       else (
-        assert (Ocaml_version.compare current [ 5; 4 ] >= 0);
+        assert (Ocaml_version.compare current [ 5; 5 ] >= 0);
         failwith "OCaml version unsupported. Upgrade js_of_ocaml.")
 
 let current_exe = "Caml1999X", v

compiler/tests-check-prim/gen_dune.ml

@@ -8,6 +8,7 @@ type version =
   | `V5_2
   | `V5_3
   | `V5_4
+  | `V5_5
   ]
 
 let string_of_version : version -> string = function
@@ -18,6 +19,7 @@ let string_of_version : version -> string = function
   | `V5_2 -> "5.2"
   | `V5_3 -> "5.3"
   | `V5_4 -> "5.4"
+  | `V5_5 -> "5.5"
 
 let next_version : version -> version option = function
   | `V4_13 -> Some `V4_14
@@ -26,7 +28,8 @@ let next_version : version -> version option = function
   | `V5_1 -> Some `V5_2
   | `V5_2 -> Some `V5_3
   | `V5_3 -> Some `V5_4
-  | `V5_4 -> None
+  | `V5_4 -> Some `V5_5
+  | `V5_5 -> None
 
 type os_type =
   | Unix

tools/toplevel_expect/gen.ml

@@ -53,5 +53,6 @@ let () =
       assert (min >= 11);
       dump_file "toplevel_expect_test.ml-4.11"
   | 5, 0 | 5, 1 | 5, 2 -> dump_file "toplevel_expect_test.ml-4.11"
-  | 5, _ -> dump_file "toplevel_expect_test.ml-5.3"
+  | 5, 3 -> dump_file "toplevel_expect_test.ml-5.3"
+  | 5, 4 -> dump_file "toplevel_expect_test.ml-5.4"
   | _ -> failwith ("unsupported version " ^ Sys.ocaml_version)