From 4290b2aa786561367165c51c1fce59be99f2c470 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 14 Mar 2015 07:07:34 +0100
Subject: Fix crash in ortho for llvm (unreach in new_convert_ov)

---
 src/ortho/llvm/ortho_llvm.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/ortho')

diff --git a/src/ortho/llvm/ortho_llvm.adb b/src/ortho/llvm/ortho_llvm.adb
index 8925c26cb..848cb2c6e 100644
--- a/src/ortho/llvm/ortho_llvm.adb
+++ b/src/ortho/llvm/ortho_llvm.adb
@@ -1474,6 +1474,9 @@ package body Ortho_LLVM is
          --  Same underlying LLVM type: nothing to do.
          return Val;
       end if;
+      if Unreach then
+         return O_Enode'(LLVM => Val.LLVM, Etype => Rtype);
+      end if;
 
       case Rtype.Kind is
          when ON_Integer_Types =>
-- 
cgit v1.2.3