diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-05-25 21:28:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-05-25 21:28:19 +0200 |
| commit | 3d79dd237f5573130980a87aa581baa2cb649bc5 (patch) | |
| tree | 9f259461777594befdbdf3eae863f984719d868d /src/vhdl | |
| parent | 9a1b98eeeda9e998a9e3898fb979fe874c8a15e2 (diff) | |
| download | ghdl-3d79dd237f5573130980a87aa581baa2cb649bc5.tar.gz ghdl-3d79dd237f5573130980a87aa581baa2cb649bc5.tar.bz2 ghdl-3d79dd237f5573130980a87aa581baa2cb649bc5.zip | |
vhdl-disp_vhdl: refactoring.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/vhdl-disp_vhdl.adb | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/vhdl/vhdl-disp_vhdl.adb b/src/vhdl/vhdl-disp_vhdl.adb index 360fa9846..cdcce46a3 100644 --- a/src/vhdl/vhdl-disp_vhdl.adb +++ b/src/vhdl/vhdl-disp_vhdl.adb @@ -694,8 +694,8 @@ package body Vhdl.Disp_Vhdl is Reindent := False; else Disp_Token (Ctxt, Tok_Colon); - Disp_Subtype_Indication - (Ctxt, Or_Else (El_Subtype, Get_Type (El))); + Disp_Subtype_Indication (Ctxt, Or_Else (El_Subtype, + Get_Type (El))); Disp_Token (Ctxt, Tok_Semi_Colon); Close_Hbox (Ctxt); Reindent := True; @@ -800,15 +800,13 @@ package body Vhdl.Disp_Vhdl is Start_Hbox (Ctxt); Disp_Token (Ctxt, Tok_Type); Disp_Name_Of (Ctxt, Decl); - if Def = Null_Iir - or else Get_Kind (Def) = Iir_Kind_Incomplete_Type_Definition + if Def /= Null_Iir + and then Get_Kind (Def) /= Iir_Kind_Incomplete_Type_Definition then - Disp_Token (Ctxt, Tok_Semi_Colon); - else Disp_Token (Ctxt, Tok_Is); Disp_Type_Definition (Ctxt, Def); - Disp_Token (Ctxt, Tok_Semi_Colon); end if; + Disp_Token (Ctxt, Tok_Semi_Colon); Close_Hbox (Ctxt); end Disp_Type_Declaration; |