From d135b02a31b0ec84b61726a3d0aa7301b08a48ad Mon Sep 17 00:00:00 2001
From: mdenes <mdenes@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Sat, 6 Jul 2013 23:55:57 +0000
Subject: 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
---
 kernel/nativelambda.ml | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'kernel/nativelambda.ml')

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 *)
 
-- 
cgit v1.2.3