diff options
Diffstat (limited to 'src/ortho/llvm4-nodebug')
| -rw-r--r-- | src/ortho/llvm4-nodebug/ortho_llvm.adb | 9 | ||||
| -rw-r--r-- | src/ortho/llvm4-nodebug/ortho_llvm.ads | 1 |
2 files changed, 8 insertions, 2 deletions
diff --git a/src/ortho/llvm4-nodebug/ortho_llvm.adb b/src/ortho/llvm4-nodebug/ortho_llvm.adb index e00e12aac..75d852428 100644 --- a/src/ortho/llvm4-nodebug/ortho_llvm.adb +++ b/src/ortho/llvm4-nodebug/ortho_llvm.adb @@ -1246,7 +1246,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 @@ -1337,11 +1337,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; ----------------- diff --git a/src/ortho/llvm4-nodebug/ortho_llvm.ads b/src/ortho/llvm4-nodebug/ortho_llvm.ads index df30a5d8d..029192790 100644 --- a/src/ortho/llvm4-nodebug/ortho_llvm.ads +++ b/src/ortho/llvm4-nodebug/ortho_llvm.ads @@ -329,6 +329,7 @@ package Ortho_LLVM is -- Allowed conversions are: -- FIXME: to write. 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; -- Get the address of LVALUE. -- ATYPE must be a type access whose designated type is the type of LVALUE. |