diff options
| author |  mdenes <mdenes@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-22 17:37:00 +0000 |
|---|---|---|
| committer | mdenes <mdenes@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-22 17:37:00 +0000 |
| commit | 6b908b5185a55a27a82c2b0fce4713812adde156 (patch) | |
| tree | c2857724d8b22ae3d7a91b3a683a57206caf9b54 /toplevel/autoinstance.ml | |
| parent | 62ce65dadb0afb8815b26069246832662846c7ec (diff) | |
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
Diffstat (limited to 'toplevel/autoinstance.ml')
| -rw-r--r-- | toplevel/autoinstance.ml | 8 |
1 files changed, 5 insertions, 3 deletions
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 |