diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-12-21 20:56:15 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-12-21 20:56:15 +0100 |
| commit | db9290e7b92232440a93179c779cad4edeff9719 (patch) | |
| tree | 9a05f28cafdce98e79b30f710aedeaf42499fcb4 /src/vhdl/vhdl-prints.adb | |
| parent | d45f4a31e557d54314765265d8f488a45dc8fc30 (diff) | |
| download | ghdl-db9290e7b92232440a93179c779cad4edeff9719.tar.gz ghdl-db9290e7b92232440a93179c779cad4edeff9719.tar.bz2 ghdl-db9290e7b92232440a93179c779cad4edeff9719.zip | |
vhdl-parse: handle 'end for' in configuration specification.
Fix #2277
Diffstat (limited to 'src/vhdl/vhdl-prints.adb')
| -rw-r--r-- | src/vhdl/vhdl-prints.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index c77bef029..c339120ce 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -1786,9 +1786,18 @@ package body Vhdl.Prints is Disp_Instantiation_List (Ctxt, Get_Instantiation_List (Spec)); Disp_Token (Ctxt, Tok_Colon); Print (Ctxt, Get_Component_Name (Spec)); + Close_Hbox (Ctxt); + + Start_Vbox (Ctxt); + Start_Hbox (Ctxt); Disp_Binding_Indication (Ctxt, Get_Binding_Indication (Spec)); Disp_Token (Ctxt, Tok_Semi_Colon); Close_Hbox (Ctxt); + Close_Vbox (Ctxt); + + if Get_Has_End (Spec) then + Disp_End (Ctxt, Tok_For); + end if; end Disp_Configuration_Specification; procedure Disp_Disconnection_Specification |