aboutsummaryrefslogtreecommitdiff
path: root/lib/objFile.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-07-10 18:41:30 +0200
committerPierre-Marie Pédrot2020-07-10 18:45:46 +0200
commit763c71ec355b85ecfb8df3de07cce730f8947cb7 (patch)
tree18f441e61ae293b44dccb5edb0dea6e53bc744b0 /lib/objFile.ml
parent511d2caaffb8d412d1645f0a83c9b0a2bbc41411 (diff)
Fix #12513: coq no longer reports mismatched version numbers.
Diffstat (limited to 'lib/objFile.ml')
-rw-r--r--lib/objFile.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/objFile.ml b/lib/objFile.ml
index 96db51a010..26367aaffa 100644
--- a/lib/objFile.ml
+++ b/lib/objFile.ml
@@ -182,7 +182,7 @@ let open_in ~file =
let version = input_int32 ch in
let () =
if not (Int32.equal magic magic_number) then
- let e = { filename = file; actual = version; expected = magic_number } in
+ let e = { filename = file; actual = magic; expected = magic_number } in
raise (Bad_magic_number e)
in
let () =