diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-11-20 20:01:14 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-11-20 20:01:14 +0100 |
commit | f722f900f4211bbddc0f432ce652e68313807ee0 (patch) | |
tree | b91ab3b2768acb6b5323fa1b9aebfecc163662fc /src/vhdl/vhdl-comments.adb | |
parent | a4f4840bfee3adf2eff26ffb9e5c68182d034dd4 (diff) | |
download | ghdl-f722f900f4211bbddc0f432ce652e68313807ee0.tar.gz ghdl-f722f900f4211bbddc0f432ce652e68313807ee0.tar.bz2 ghdl-f722f900f4211bbddc0f432ce652e68313807ee0.zip |
pyGHDL: add file_comments.py
Diffstat (limited to 'src/vhdl/vhdl-comments.adb')
-rw-r--r-- | src/vhdl/vhdl-comments.adb | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-comments.adb b/src/vhdl/vhdl-comments.adb index bc7a3e2e8..c7b98509e 100644 --- a/src/vhdl/vhdl-comments.adb +++ b/src/vhdl/vhdl-comments.adb @@ -20,8 +20,7 @@ -- Since the names are not prefixed, this package is expected to be with'ed -- but not to be use'd. -with Types; use Types; -with File_Comments; use File_Comments; +with Files_Map; with Vhdl.Scanner; use Vhdl.Scanner; @@ -30,4 +29,12 @@ package body Vhdl.Comments is begin Gather_Comments (Get_Current_Source_File, Uns32 (N)); end Gather_Comments; + + function Find_First_Comment (File : Source_File_Entry; N : Node) + return Comment_Index + is + pragma Assert (Files_Map.Location_To_File (Get_Location (N)) = File); + begin + return Find_First_Comment (File, Uns32 (N)); + end Find_First_Comment; end Vhdl.Comments; |