From 90ffb78c6dac5bc2220bb9276df34cf8f3b80a15 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 22 Nov 2022 07:54:29 +0100
Subject: vhdl-parse: gather comments for subprograms

---
 src/vhdl/vhdl-parse.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src')

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;
-- 
cgit v1.2.3