From 4290b2aa786561367165c51c1fce59be99f2c470 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
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')
diff --git a/src/ortho/llvm/ortho_llvm.adb b/src/ortho/llvm/ortho_llvm.adb
index 8925c26..848cb2c 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