diff options
Diffstat (limited to 'src/vhdl/vhdl-formatters.adb')
-rw-r--r-- | src/vhdl/vhdl-formatters.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-formatters.adb b/src/vhdl/vhdl-formatters.adb index b40615f99..03c72dbaa 100644 --- a/src/vhdl/vhdl-formatters.adb +++ b/src/vhdl/vhdl-formatters.adb @@ -846,9 +846,12 @@ package body Vhdl.Formatters is is use Format_Disp_Ctxt; Sfe : constant Source_File_Entry := Get_Design_File_Source (F); + Prev_Flag_Gather_Comments : constant Boolean := + Flags.Flag_Gather_Comments; begin Scanner.Flag_Comment := True; Scanner.Flag_Newline := True; + Flags.Flag_Gather_Comments := False; Set_File (Sfe); Scan; @@ -859,6 +862,7 @@ package body Vhdl.Formatters is Close_File; Scanner.Flag_Comment := False; Scanner.Flag_Newline := False; + Flags.Flag_Gather_Comments := Prev_Flag_Gather_Comments; Append_Eof (Ctxt); end Format_Init; |