From e7f9bc39ab4e879b521439901ed99bf3382bd40a Mon Sep 17 00:00:00 2001
From: coq
Date: Tue, 7 Oct 2003 15:36:10 +0000
Subject: Correction du bug 335 et Export/Require Export dans un module

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

(limited to 'interp')

diff --git a/interp/reserve.ml b/interp/reserve.ml
index d2c84abdf5..dc7393c671 100644
--- a/interp/reserve.ml
+++ b/interp/reserve.ml
@@ -21,6 +21,7 @@ let _ =
     { 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 }
 
 let declare_reserved_type id t = 
diff --git a/interp/symbols.ml b/interp/symbols.ml
index 3ddb8644ff..d1d2d0c84b 100644
--- a/interp/symbols.ml
+++ b/interp/symbols.ml
@@ -589,4 +589,5 @@ let _ =
     { freeze_function = freeze;
       unfreeze_function = unfreeze;
       init_function = init;
+      survive_module = false;
       survive_section = false }
diff --git a/interp/syntax_def.ml b/interp/syntax_def.ml
index 69094507d2..4b9c32e4f1 100644
--- a/interp/syntax_def.ml
+++ b/interp/syntax_def.ml
@@ -26,6 +26,7 @@ let _ = Summary.declare_summary
 	  { 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 }
 
 let add_syntax_constant kn c =
-- 
cgit v1.2.3