diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-12-06 07:41:39 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-12-06 07:43:56 +0100 |
| commit | 93cb47c448978def5fc72674fae13a2622190695 (patch) | |
| tree | a07ed2b3f613b9f20f0184f2ec3b666ef103e6ce /src/file_comments.adb | |
| parent | 3173d9e0bc3fc3a6b6abe1296190867c3154cf5a (diff) | |
| download | ghdl-93cb47c448978def5fc72674fae13a2622190695.tar.gz ghdl-93cb47c448978def5fc72674fae13a2622190695.tar.bz2 ghdl-93cb47c448978def5fc72674fae13a2622190695.zip | |
file_comments: reset comments when starting a new file
Diffstat (limited to 'src/file_comments.adb')
| -rw-r--r-- | src/file_comments.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/file_comments.adb b/src/file_comments.adb index 246a7ad7b..ef292c43f 100644 --- a/src/file_comments.adb +++ b/src/file_comments.adb @@ -38,8 +38,10 @@ package body File_Comments is Comments_Table.Append (File_Comments_Table'(Table => null, Priv => <>)); end loop; - File_Comments_Tables.Init (Comments_Table.Table (Ctxt.File), 16); end if; + + -- Always reset the table. + File_Comments_Tables.Init (Comments_Table.Table (Ctxt.File), 16); end Comment_Init_Scan; procedure Comment_Close_Scan is |