diff options
author | mdenes <mdenes@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-06 23:55:57 +0000 |
---|---|---|
committer | mdenes <mdenes@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-06 23:55:57 +0000 |
commit | d135b02a31b0ec84b61726a3d0aa7301b08a48ad (patch) | |
tree | 64779e6811d76df70a8c07738756f4e825dde031 /kernel/nativelambda.ml | |
parent | 931bd73212b0095d8c50e0355ee66faa32bf8db6 (diff) |
Fixing a bug in the native compiler, introduced by r16363, leading to undefined
variables in the generated code.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16619 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/nativelambda.ml')
-rw-r--r-- | kernel/nativelambda.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml index 8058eb0aa..cfb128d50 100644 --- a/kernel/nativelambda.ml +++ b/kernel/nativelambda.ml @@ -90,17 +90,15 @@ let get_mind_prefix env mind = let mib = lookup_mind mind env in match !(mib.mind_native_name) with | NotLinked -> "" - | Linked s -> s - | LinkedLazy s -> s - | LinkedInteractive s -> s + | Linked (s,_) -> s + | LinkedInteractive (s,_) -> s let get_const_prefix env c = let cb = lookup_constant c env in match !(cb.const_native_name) with | NotLinked -> "" - | Linked s -> s - | LinkedLazy s -> s - | LinkedInteractive s -> s + | Linked (s,_) -> s + | LinkedInteractive (s,_) -> s (* A generic map function *) |