diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-02 05:40:47 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-02 05:40:47 +0100 |
| commit | 1b490f5c9f4a1ed12793ccd591f8e55f18bcd9b2 (patch) | |
| tree | dab4ab65ed042383d175e41929f65a0d57b49d03 /src/ortho | |
| parent | 0b950a4ceec7501c680f45b43ff001fc35f927f0 (diff) | |
| download | ghdl-1b490f5c9f4a1ed12793ccd591f8e55f18bcd9b2.tar.gz ghdl-1b490f5c9f4a1ed12793ccd591f8e55f18bcd9b2.tar.bz2 ghdl-1b490f5c9f4a1ed12793ccd591f8e55f18bcd9b2.zip | |
ortho_debug-disp: remove some trailing blanks in output.
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 (" "); |