diff options
| author | barras | 2004-11-17 15:10:26 +0000 |
|---|---|---|
| committer | barras | 2004-11-17 15:10:26 +0000 |
| commit | deadb6055aeca7a2ed944deabb96a5d9ebdbd114 (patch) | |
| tree | 28cc3cf9f9797d2e9f69c96e5c81371b9aef4476 /kernel/modops.ml | |
| parent | fb5036b81d8eac2bfb1c32d31409489941fd2551 (diff) | |
bug module M:=N avec vm
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6321 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/modops.ml')
| -rw-r--r-- | kernel/modops.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index 9aba4d5606..0a18978327 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -195,7 +195,9 @@ let strengthen_const env mp l cb = let const_subs = Some (Declarations.from_val const) in {cb with const_body = const_subs; - const_opaque = false + const_opaque = false; + const_body_code = Cemitcodes.from_val + (Cbytegen.compile_constant_body env const_subs false false) } let strengthen_mind env mp l mib = match mib.mind_equiv with |