diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-17 21:50:25 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-17 21:50:25 +0200 |
| commit | 473c83961abe4e2fb52c8812e46bf19a41fe52cf (patch) | |
| tree | 130b71c9e47b60837257ab7b104adf99d44152b8 /src/ortho/llvm-nodebug | |
| parent | 6581cce8c6ea51b5386156fa4d21bd8f1865f851 (diff) | |
| download | ghdl-473c83961abe4e2fb52c8812e46bf19a41fe52cf.tar.gz ghdl-473c83961abe4e2fb52c8812e46bf19a41fe52cf.tar.bz2 ghdl-473c83961abe4e2fb52c8812e46bf19a41fe52cf.zip | |
src/ortho: add new_convert.
Diffstat (limited to 'src/ortho/llvm-nodebug')
| -rw-r--r-- | src/ortho/llvm-nodebug/ortho_llvm.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/ortho/llvm-nodebug/ortho_llvm.adb b/src/ortho/llvm-nodebug/ortho_llvm.adb index 56b22f092..054cd93ea 100644 --- a/src/ortho/llvm-nodebug/ortho_llvm.adb +++ b/src/ortho/llvm-nodebug/ortho_llvm.adb @@ -1243,7 +1243,7 @@ package body Ortho_LLVM is -- New_Convert_Ov -- -------------------- - function New_Convert_Ov (Val : O_Enode; Rtype : O_Tnode) return O_Enode + function New_Convert (Val : O_Enode; Rtype : O_Tnode) return O_Enode is Res : ValueRef := Null_ValueRef; begin @@ -1334,11 +1334,16 @@ package body Ortho_LLVM is -- Set_Insn_Dbg (Res); return O_Enode'(LLVM => Res, Etype => Rtype); else - raise Program_Error with "New_Convert_Ov: not implemented for " + raise Program_Error with "New_Convert: not implemented for " & ON_Type_Kind'Image (Val.Etype.Kind) & " -> " & ON_Type_Kind'Image (Rtype.Kind); end if; + end New_Convert; + + function New_Convert_Ov (Val : O_Enode; Rtype : O_Tnode) return O_Enode is + begin + return New_Convert (Val, Rtype); end New_Convert_Ov; ----------------- |