From a1f06f016be512c21cb475491ec9924eea7ff288 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
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
---
 library/states.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'library/states.ml')

diff --git a/library/states.ml b/library/states.ml
index ed13c3b7a..2cd8da982 100644
--- a/library/states.ml
+++ b/library/states.ml
@@ -22,7 +22,8 @@ let (extern_state,intern_state) =
     extern_intern Coq_config.state_magic_number ".coq" in
   (fun s -> raw_extern s (freeze())),
   (fun s ->
-    unfreeze (raw_intern (Library.get_load_paths ()) s);
+    unfreeze
+      (with_magic_number_check (raw_intern (Library.get_load_paths ())) s);
     Library.overwrite_library_filenames s)
 
 (* Rollback. *)
-- 
cgit v1.2.3