diff options
| author | mdenes | 2013-07-10 12:22:21 +0000 |
|---|---|---|
| committer | mdenes | 2013-07-10 12:22:21 +0000 |
| commit | e97e56bcb2e7312d27232117180dbb7bddd67fe7 (patch) | |
| tree | bdb3e3b17cafea4676d943deef1741ab6d933d48 /library | |
| parent | 0f281377613d77752289f5d9ce100a25d724df61 (diff) | |
Added a Register Inline command for the native compiler. Will be ported to the VM
too. Almost only a new grammar entry since the inlining machinery was already
implemented.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16623 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 3 | ||||
| -rw-r--r-- | library/global.mli | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/library/global.ml b/library/global.ml index f120ef1951..28b6917697 100644 --- a/library/global.ml +++ b/library/global.ml @@ -162,4 +162,5 @@ let register field value by_clause = let senv = Safe_typing.register !global_env field entry by_clause in global_env := senv - +let register_inline c = + global_env := Safe_typing.register_inline c !global_env diff --git a/library/global.mli b/library/global.mli index 531526846c..3238294f2e 100644 --- a/library/global.mli +++ b/library/global.mli @@ -104,3 +104,5 @@ val env_of_context : Environ.named_context_val -> Environ.env (** spiwack: register/unregister function for retroknowledge *) val register : Retroknowledge.field -> constr -> constr -> unit + +val register_inline : constant -> unit |