From 79a25a71dd3519d8e7a6bd9f3a004c7c0da3a1b5 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 13 Aug 2009 19:10:11 +0000
Subject: Death of "survive_module" and "survive_section" (the first one was
 only used to allow a module to be ended before the summaries were restored
 what can be solved by moving upwards the place where the summaries are
 restored).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12275 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/notation.ml   | 4 +---
 interp/reserve.ml    | 4 +---
 interp/syntax_def.ml | 4 +---
 3 files changed, 3 insertions(+), 9 deletions(-)

(limited to 'interp')

diff --git a/interp/notation.ml b/interp/notation.ml
index 2857f9ad8a..08936759dd 100644
--- a/interp/notation.ml
+++ b/interp/notation.ml
@@ -768,6 +768,4 @@ let _ =
   declare_summary "symbols"
     { freeze_function = freeze;
       unfreeze_function = unfreeze;
-      init_function = init;
-      survive_module = false;
-      survive_section = false }
+      init_function = init }
diff --git a/interp/reserve.ml b/interp/reserve.ml
index f49c42a55d..93fc60dfb2 100644
--- a/interp/reserve.ml
+++ b/interp/reserve.ml
@@ -31,9 +31,7 @@ let _ =
   Summary.declare_summary "reserved-type"
     { Summary.freeze_function = (fun () -> !reserve_table);
       Summary.unfreeze_function = (fun r -> reserve_table := r);
-      Summary.init_function = (fun () -> reserve_table := Idmap.empty);
-      Summary.survive_module = false;
-      Summary.survive_section = false }
+      Summary.init_function = (fun () -> reserve_table := Idmap.empty) }
 
 let declare_reserved_type (loc,id) t = 
   if id <> root_of_id id then
diff --git a/interp/syntax_def.ml b/interp/syntax_def.ml
index ef5ecf62a2..1619bad278 100644
--- a/interp/syntax_def.ml
+++ b/interp/syntax_def.ml
@@ -26,9 +26,7 @@ let _ = Summary.declare_summary
 	  "SYNTAXCONSTANT"
 	  { Summary.freeze_function = (fun () -> !syntax_table);
 	    Summary.unfreeze_function = (fun ft -> syntax_table := ft);
-	    Summary.init_function = (fun () -> syntax_table := KNmap.empty);
-	    Summary.survive_module = false;
-	    Summary.survive_section = false }
+	    Summary.init_function = (fun () -> syntax_table := KNmap.empty) }
 
 let add_syntax_constant kn c =
   syntax_table := KNmap.add kn c !syntax_table
-- 
cgit v1.2.3