diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-05-10 16:35:46 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-05-10 16:35:46 +0000 |
| commit | ae3a6c63018d5743c16ab388d3e1f9bfde0eb43d (patch) | |
| tree | c9d46bdf330f267430e679094c1a0e65051a378c /library | |
| parent | 7df139ca0834b0b93e6259eaecb05c0b8c5cbe99 (diff) | |
Correction bug #1842 + correction bug initialisation introduit dans
commit 10916
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10917 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/lib.ml | 12 | ||||
| -rw-r--r-- | library/lib.mli | 2 |
2 files changed, 8 insertions, 6 deletions
diff --git a/library/lib.ml b/library/lib.ml index 1db433c19..ae1a41ca1 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -489,15 +489,15 @@ let section_instance = function | IndRef (kn,_) | ConstructRef ((kn,_),_) -> KNmap.find kn (snd (pi2 (List.hd !sectab))) -let init () = sectab := [] -let freeze () = !sectab -let unfreeze s = sectab := s +let init_sectab () = sectab := [] +let freeze_sectab () = !sectab +let unfreeze_sectab s = sectab := s let _ = Summary.declare_summary "section-context" - { Summary.freeze_function = freeze; - Summary.unfreeze_function = unfreeze; - Summary.init_function = init; + { Summary.freeze_function = freeze_sectab; + Summary.unfreeze_function = unfreeze_sectab; + Summary.init_function = init_sectab; Summary.survive_module = false; Summary.survive_section = false } diff --git a/library/lib.mli b/library/lib.mli index ba04fa1b7..da8ace048 100644 --- a/library/lib.mli +++ b/library/lib.mli @@ -157,6 +157,8 @@ type frozen val freeze : unit -> frozen val unfreeze : frozen -> unit +val init : unit -> unit + val declare_initial_state : unit -> unit val reset_initial : unit -> unit |