Permalink
Browse files

[debug] objectFiles: allowing to bypass version checks

  • Loading branch information...
1 parent eb67589 commit 2e5e18a6c0d34c8cba3451984b097584cfbf58a3 Valentin Gatien-Baron committed Jun 22, 2011
Showing with 4 additions and 2 deletions.
  1. +4 −2 compilerlib/objectFiles.ml
@@ -814,8 +814,10 @@ struct
try
let channel = open_in_bin name in
let l1 = input_line channel in
- if l1 <> this_file_version then
- error "The package %s was compiled with a different version of the compiler." package_name;
+ #<If$contains "noerror"> () #<Else>
+ if l1 <> this_file_version then
+ error "The package %s was compiled with a different version of the compiler." package_name
+ #<End>;
let v = (Marshal.from_channel channel : t) in
close_in channel;
v

0 comments on commit 2e5e18a

Please sign in to comment.