diff options
Diffstat (limited to 'src/ortho/debug/ortho_debug-disp.adb')
-rw-r--r-- | src/ortho/debug/ortho_debug-disp.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/ortho/debug/ortho_debug-disp.adb b/src/ortho/debug/ortho_debug-disp.adb index 465de8f7e..a7bbbe907 100644 --- a/src/ortho/debug/ortho_debug-disp.adb +++ b/src/ortho/debug/ortho_debug-disp.adb @@ -366,6 +366,8 @@ package body Ortho_Debug.Disp is return "function call"; when OE_Convert_Ov => return "convert_ov"; + when OE_Convert => + return "convert"; when OE_Address => return "address"; when OE_Unchecked_Address => @@ -755,6 +757,11 @@ package body Ortho_Debug.Disp is Put (")"); when OE_Convert_Ov => Disp_Tnode_Name (E.Rtype); + Put ("'conv# ("); + Disp_Enode (E.Conv, O_Tnode_Null); + Put (')'); + when OE_Convert => + Disp_Tnode_Name (E.Rtype); Put ("'conv ("); Disp_Enode (E.Conv, O_Tnode_Null); Put (')'); |