diff options
| author | mdenes | 2013-01-22 17:37:00 +0000 |
|---|---|---|
| committer | mdenes | 2013-01-22 17:37:00 +0000 |
| commit | 6b908b5185a55a27a82c2b0fce4713812adde156 (patch) | |
| tree | c2857724d8b22ae3d7a91b3a683a57206caf9b54 /toplevel/record.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/record.ml')
| -rw-r--r-- | toplevel/record.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/toplevel/record.ml b/toplevel/record.ml index 17b07005e3..7926aecbd7 100644 --- a/toplevel/record.ml +++ b/toplevel/record.ml @@ -201,7 +201,8 @@ let declare_projections indsp ?(kind=StructureComponent) ?name coers fieldimpls const_entry_body = proj; const_entry_secctx = None; const_entry_type = Some projtyp; - const_entry_opaque = false } in + const_entry_opaque = false; + const_entry_inline_code = false } in let k = (DefinitionEntry cie,IsDefinition kind) in let kn = declare_constant ~internal:KernelSilent fid k in Declare.definition_message fid; @@ -304,7 +305,8 @@ let declare_class finite def infer id idbuild paramimpls params arity fieldimpls { const_entry_body = class_body; const_entry_secctx = None; const_entry_type = class_type; - const_entry_opaque = false } + const_entry_opaque = false; + const_entry_inline_code = false } in let cst = Declare.declare_constant (snd id) (DefinitionEntry class_entry, IsDefinition Definition) @@ -316,7 +318,8 @@ let declare_class finite def infer id idbuild paramimpls params arity fieldimpls { const_entry_body = proj_body; const_entry_secctx = None; const_entry_type = Some proj_type; - const_entry_opaque = false } + const_entry_opaque = false; + const_entry_inline_code = false } in let proj_cst = Declare.declare_constant proj_name (DefinitionEntry proj_entry, IsDefinition Definition) |