diff options
| -rw-r--r-- | src/ortho/llvm/ortho_llvm.adb | 3 |
1 files changed, 3 insertions, 0 deletions
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 => |