From f722f900f4211bbddc0f432ce652e68313807ee0 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 20 Nov 2022 20:01:14 +0100 Subject: pyGHDL: add file_comments.py --- src/vhdl/vhdl-comments.adb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'src/vhdl/vhdl-comments.adb') 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; -- cgit v1.2.3