Recognize OCaml 5.0 cmi magic number

And add an assertion that we can recognize our own magic number that we got compiled with. Fixes ocaml#1553 Signed-off-by: Edwin Török <[email protected]>
voodoos · May 2, 2024 · 4acd5b8 · 4acd5b8
1 parent e264c39
commit 4acd5b8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/ocaml/typing/magic_numbers.ml b/src/ocaml/typing/magic_numbers.ml
@@ -22,8 +22,11 @@ module Cmi = struct
     | "Caml1999I029" -> Some "4.12"
     | "Caml1999I030" -> Some "4.13"
     | "Caml1999I031" -> Some "4.14"
+    | "Caml1999I032" -> Some "5.0"
     | _ -> None
 
+  let () = assert (to_version_opt Config.cmi_magic_number <> None)
+
   open Format
 
   let report_error ppf = function