From 81295dc08948e0cf103b4597580ed95a9cc25813 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 23 Nov 2022 07:55:07 +0100 Subject: file_comments: add comments_range to support deferred gathering For processes. --- src/vhdl/vhdl-parse.adb | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'src/vhdl/vhdl-parse.adb') diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index 532e6c8f8..d24cde24d 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -8562,15 +8562,27 @@ package body Vhdl.Parse is Res: Iir; Sensitivity_List : Iir_List; Start_Loc, Begin_Loc, End_Loc : Location_Type; + Comments_Rng : File_Comments.Comments_Range_Type; begin Start_Loc := Get_Token_Location; + -- Attach comments now, as 'process' may appear alone, followed + -- by a comment for the next declaration. + if Flag_Gather_Comments then + Save_Comments (Comments_Rng); + end if; + -- Skip 'process' Scan; if Current_Token = Tok_Left_Paren then Res := Create_Iir (Iir_Kind_Sensitized_Process_Statement); + -- Comments for the process. + if Flag_Gather_Comments then + Gather_Comments (Comments_Rng, Res); + end if; + -- Skip '(' Scan; @@ -8589,6 +8601,11 @@ package body Vhdl.Parse is Expect_Scan (Tok_Right_Paren); else Res := Create_Iir (Iir_Kind_Process_Statement); + + -- Comments for the process. + if Flag_Gather_Comments then + Gather_Comments (Comments_Rng, Res); + end if; end if; Set_Location (Res, Loc); -- cgit v1.2.3