diff options
| author | filliatr | 2000-06-21 16:43:38 +0000 |
|---|---|---|
| committer | filliatr | 2000-06-21 16:43:38 +0000 |
| commit | 5a4b200626300200ec34f4713940465cdc96bebb (patch) | |
| tree | 3c3ea3ada33f7f17fc7d8db5deabbddafbf08d6c /toplevel | |
| parent | 5378cd45ac34551ea4d265f41b489ff386ea1a49 (diff) | |
bug discharge STRUCTURE; FrozenState supprimmes dans les ClosedSection -> .vo plus petits
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@514 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/discharge.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 820100f6fc..da223b541a 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -190,12 +190,14 @@ let expmod_constant_value opaque oldenv modlist = function | None -> None | Some { contents = Cooked c } -> if opaque then - Some (ref (Recipe (fun () -> expmod_constr oldenv modlist c))) + (* None *) + Some (ref (Recipe (fun () -> expmod_constr oldenv modlist c))) else Some (ref (Cooked (expmod_constr oldenv modlist c))) | Some { contents = Recipe f } -> Some (ref (Recipe (fun () -> expmod_constr oldenv modlist (f ())))) + (* Discharge of inductive types. *) let process_inductive osecsp nsecsp oldenv (ids_to_discard,modlist) mib = @@ -324,7 +326,7 @@ let process_object oldenv sec_sp (ops,ids_to_discard,work_alist) (sp,lobj) = | "STRUCTURE" -> let ((sp,i),info) = outStruc lobj in let newsp = recalc_sp sp in - let mib = Environ.lookup_mind newsp oldenv in + let mib = Environ.lookup_mind sp oldenv in let strobj = { s_CONST = info.s_CONST; s_PARAM = mib.mind_nparams; |