From a1f06f016be512c21cb475491ec9924eea7ff288 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 22 Jun 2010 06:28:37 +0000
Subject: Protection against anomaly when loading a state with bad magic
 number.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13175 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/system.ml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib/system.ml')

diff --git a/lib/system.ml b/lib/system.ml
index 854c5dbdb0..e0ec7b3ea3 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -255,6 +255,13 @@ let extern_intern ?(warn=true) magic suffix =
   in
   (extern_state,intern_state)
 
+let with_magic_number_check f a =
+  try f a
+  with Bad_magic_number fname ->
+    errorlabstrm "with_magic_number_check"
+    (str"File " ++ str fname ++ strbrk" has bad magic number." ++ spc () ++ 
+    strbrk "It is corrupted or was compiled with another version of Coq.")
+
 (* Communication through files with another executable *)
 
 let connect writefun readfun com =
-- 
cgit v1.2.3