diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-11-22 07:54:29 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-11-22 07:54:29 +0100 |
commit | 90ffb78c6dac5bc2220bb9276df34cf8f3b80a15 (patch) | |
tree | 1369e5a7bdac1523fc39e99b80d09a0d27fbbfc1 | |
parent | 4684c81aaa27f177931bb8ffe837e9edc8a4dca0 (diff) | |
download | ghdl-90ffb78c6dac5bc2220bb9276df34cf8f3b80a15.tar.gz ghdl-90ffb78c6dac5bc2220bb9276df34cf8f3b80a15.tar.bz2 ghdl-90ffb78c6dac5bc2220bb9276df34cf8f3b80a15.zip |
vhdl-parse: gather comments for subprograms
-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; |