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 (')');