From 1b490f5c9f4a1ed12793ccd591f8e55f18bcd9b2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 2 Nov 2017 05:40:47 +0100
Subject: ortho_debug-disp: remove some trailing blanks in output.

---
 src/ortho/debug/ortho_debug-disp.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/ortho')

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 (" ");
-- 
cgit v1.2.3