aboutsummaryrefslogtreecommitdiff
path: root/pretyping
diff options
context:
space:
mode:
authorcoq2003-10-07 15:36:10 +0000
committercoq2003-10-07 15:36:10 +0000
commite7f9bc39ab4e879b521439901ed99bf3382bd40a (patch)
tree763aa02aaa6cacdf72ed13f56eae4ab243608f99 /pretyping
parent12d83b6915b3a4c76c18cc612ad8628cec787c68 (diff)
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
Diffstat (limited to 'pretyping')
-rwxr-xr-xpretyping/classops.ml1
-rwxr-xr-xpretyping/recordops.ml1
-rw-r--r--pretyping/tacred.ml2
3 files changed, 4 insertions, 0 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml
index 03a0da56ac..536e292fcc 100755
--- a/pretyping/classops.ml
+++ b/pretyping/classops.ml
@@ -203,6 +203,7 @@ let _ =
{ Summary.freeze_function = freeze;
Summary.unfreeze_function = unfreeze;
Summary.init_function = init;
+ Summary.survive_module = false;
Summary.survive_section = false }
(* classe d'un terme *)
diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml
index b0c3df6076..03028dcf35 100755
--- a/pretyping/recordops.ml
+++ b/pretyping/recordops.ml
@@ -172,4 +172,5 @@ let _ =
{ Summary.freeze_function = freeze;
Summary.unfreeze_function = unfreeze;
Summary.init_function = init;
+ Summary.survive_module = false;
Summary.survive_section = false }
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml
index 13fefd3066..1e25cc195b 100644
--- a/pretyping/tacred.ml
+++ b/pretyping/tacred.ml
@@ -45,6 +45,7 @@ let _ =
{ Summary.freeze_function = Conv_oracle.freeze;
Summary.unfreeze_function = Conv_oracle.unfreeze;
Summary.init_function = Conv_oracle.init;
+ Summary.survive_module = false;
Summary.survive_section = false }
let is_evaluable env ref =
@@ -141,6 +142,7 @@ let _ =
{ Summary.freeze_function = freeze;
Summary.unfreeze_function = unfreeze;
Summary.init_function = init;
+ Summary.survive_module = false;
Summary.survive_section = false }