From 91224b08cd8b2f95f4eace522d5404455007d9f2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 23 Dec 2003 15:13:29 +0000
Subject: Changement numero magique; message d'erreur en cas de mauvaise
 syntaxe

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5130 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/library.ml | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/library/library.ml b/library/library.ml
index c450114b9e..fdf47526e6 100644
--- a/library/library.ml
+++ b/library/library.ml
@@ -288,10 +288,29 @@ let (in_import, out_import) =
 (************************************************************************)
 (*s Loading from disk to cache (preparation phase) *)
 
-let vo_magic_number = 0704 (* V7.4 *)
+let vo_magic_number7 = 0799 (* V8.0 old syntax *)
+let vo_magic_number8 = 0800 (* V8.0 new syntax *)
 
-let (raw_extern_library, raw_intern_library) =
-  System.raw_extern_intern vo_magic_number ".vo"
+let (raw_extern_library7, raw_intern_library7) =
+  System.raw_extern_intern vo_magic_number7 ".vo"
+
+let (raw_extern_library8, raw_intern_library8) =
+  System.raw_extern_intern vo_magic_number8 ".vo"
+
+let raw_intern_library a =
+  if !Options.v7 then
+    try raw_intern_library7 a
+    with System.Bad_magic_number fname ->
+      let _= raw_intern_library8 a in
+      error "Inconsistent compiled files: you probably want to use Coq in new syntax and remove the option -v7 or -translate"
+  else
+    try raw_intern_library8 a
+    with System.Bad_magic_number fname ->
+      let _= raw_intern_library7 a in
+      error "Inconsistent compiled files: you probably want to use Coq in old syntax by setting options -v7 or -translate"
+
+let raw_extern_library =
+  if !Options.v7 then raw_extern_library7 else raw_extern_library8
 
 (* cache for loaded libraries *)
 let compunit_cache = ref CompilingLibraryMap.empty
-- 
cgit v1.2.3