diff options
Diffstat (limited to 'src/ortho')
-rw-r--r-- | src/ortho/debug/ortho_debug-disp.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ortho/debug/ortho_debug-disp.adb b/src/ortho/debug/ortho_debug-disp.adb index f5c76cca5..53e4a6767 100644 --- a/src/ortho/debug/ortho_debug-disp.adb +++ b/src/ortho/debug/ortho_debug-disp.adb @@ -694,7 +694,7 @@ package body Ortho_Debug.Disp is Disp_Ident (El.Ident); Put (": "); Disp_Tnode (El.Ftype, False); - Put_Line ("; "); + Put_Line (";"); El := El.Next; end loop; Rem_Tab; @@ -762,7 +762,7 @@ package body Ortho_Debug.Disp is end if; when ON_Record_Type => Put_Keyword ("record"); - Put_Line (" "); + New_Line; Disp_Fnodes (Atype.Elements); Put_Keyword ("end"); Put (" "); |