diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-03-14 07:07:34 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-03-14 07:07:34 +0100 |
| commit | 4290b2aa786561367165c51c1fce59be99f2c470 (patch) | |
| tree | edfa4a2c2ac5c317c471b9441e63b52e44f305d7 /src/ortho | |
| parent | 9562150e6b335bdf749c809a9c3636e9f3682134 (diff) | |
| download | ghdl-4290b2aa786561367165c51c1fce59be99f2c470.tar.gz ghdl-4290b2aa786561367165c51c1fce59be99f2c470.tar.bz2 ghdl-4290b2aa786561367165c51c1fce59be99f2c470.zip | |
Fix crash in ortho for llvm (unreach in new_convert_ov)
Diffstat (limited to 'src/ortho')
| -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 => |