aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel
diff options
context:
space:
mode:
authorGravatar barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7>2004-11-17 15:10:26 +0000
committerGravatar barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7>2004-11-17 15:10:26 +0000
commitdeadb6055aeca7a2ed944deabb96a5d9ebdbd114 (patch)
tree28cc3cf9f9797d2e9f69c96e5c81371b9aef4476 /kernel
parentfb5036b81d8eac2bfb1c32d31409489941fd2551 (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')
-rw-r--r--kernel/cbytegen.ml2
-rw-r--r--kernel/cbytegen.mli4
-rw-r--r--kernel/modops.ml4
-rw-r--r--kernel/term_typing.ml2
4 files changed, 7 insertions, 5 deletions
diff --git a/kernel/cbytegen.ml b/kernel/cbytegen.ml
index 022f913ba..108dadbb7 100644
--- a/kernel/cbytegen.ml
+++ b/kernel/cbytegen.ml
@@ -471,7 +471,7 @@ let compile env c =
init_code,!fun_code, Array.of_list fv
-let compile_constant_body env kn body opaque boxed =
+let compile_constant_body env body opaque boxed =
if opaque then BCconstant
else match body with
| None -> BCconstant
diff --git a/kernel/cbytegen.mli b/kernel/cbytegen.mli
index 407edea44..0e7434e53 100644
--- a/kernel/cbytegen.mli
+++ b/kernel/cbytegen.mli
@@ -11,6 +11,6 @@ val compile : env -> constr -> bytecodes * bytecodes * fv
(* init, fun, fv *)
val compile_constant_body :
- env -> constant -> constr_substituted option -> bool -> bool -> body_code
- (* opaque *) (* boxed *)
+ env -> constr_substituted option -> bool -> bool -> body_code
+ (* opaque *) (* boxed *)
diff --git a/kernel/modops.ml b/kernel/modops.ml
index 9aba4d560..0a1897832 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
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml
index 291c409e9..57c1710ff 100644
--- a/kernel/term_typing.ml
+++ b/kernel/term_typing.ml
@@ -102,7 +102,7 @@ let build_constant_declaration env kn (body,typ,cst,op,boxed) =
(global_vars_set env (Declarations.force b))
(global_vars_set env typ)
in
- let tps = from_val (compile_constant_body env kn body op boxed) in
+ let tps = from_val (compile_constant_body env body op boxed) in
let hyps = keep_hyps env ids in
{ const_hyps = hyps;
const_body = body;