From 6b908b5185a55a27a82c2b0fce4713812adde156 Mon Sep 17 00:00:00 2001 From: mdenes Date: Tue, 22 Jan 2013 17:37:00 +0000 Subject: New implementation of the conversion test, using normalization by evaluation to native OCaml code. Warning: the "retroknowledge" mechanism has not been ported to the native compiler, because integers and persistent arrays will ultimately be defined as primitive constructions. Until then, computation on numbers may be faster using the VM, since it takes advantage of machine integers. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16136 85f007b7-540e-0410-9357-904b9bb8a0f7 --- toplevel/autoinstance.ml | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'toplevel/autoinstance.ml') diff --git a/toplevel/autoinstance.ml b/toplevel/autoinstance.ml index 20d3b2c1e..3eb77bc06 100644 --- a/toplevel/autoinstance.ml +++ b/toplevel/autoinstance.ml @@ -182,7 +182,8 @@ let declare_record_instance gr ctx params = let ce = { const_entry_body= def; const_entry_secctx = None; const_entry_type=None; - const_entry_opaque=false } in + const_entry_opaque=false; + const_entry_inline_code = false } in let cst = Declare.declare_constant ident (DefinitionEntry ce,Decl_kinds.IsDefinition Decl_kinds.StructureComponent) in new_instance_message ident (Typeops.type_of_constant (Global.env()) cst) def @@ -197,8 +198,9 @@ let declare_class_instance gr ctx params = let ce = Entries.DefinitionEntry { const_entry_type = Some typ; const_entry_secctx = None; - const_entry_body= def; - const_entry_opaque=false } in + const_entry_body = def; + const_entry_opaque = false; + const_entry_inline_code = false } in try let cst = Declare.declare_constant ident (ce,Decl_kinds.IsDefinition Decl_kinds.Instance) in -- cgit v1.2.3