diff options
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index 10f4da4c1..532e6c8f8 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -8457,6 +8457,11 @@ package body Vhdl.Parse is Set_Location (Subprg); Set_Implicit_Definition (Subprg, Iir_Predefined_None); + -- Comments for the subprogram. + if Flag_Gather_Comments then + Gather_Comments (Subprg); + end if; + case Current_Token is when Tok_Procedure => null; |