diff options
Diffstat (limited to 'src/file_comments.adb')
| -rw-r--r-- | src/file_comments.adb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/file_comments.adb b/src/file_comments.adb index 183b17144..505a4ee79 100644 --- a/src/file_comments.adb +++ b/src/file_comments.adb @@ -166,6 +166,24 @@ package body File_Comments is Last := Fc.Comments.Table (Idx).Last; end Get_Comment; + function Get_Comment_Start (File : Source_File_Entry; + Idx : Comment_Index) return Source_Ptr + is + Start, Last : Source_Ptr; + begin + Get_Comment (File, Idx, Start, Last); + return Start; + end Get_Comment_Start; + + function Get_Comment_Last (File : Source_File_Entry; + Idx : Comment_Index) return Source_Ptr + is + Start, Last : Source_Ptr; + begin + Get_Comment (File, Idx, Start, Last); + return Last; + end Get_Comment_Last; + function Get_Next_Comment (File : Source_File_Entry; Idx : Comment_Index) return Comment_Index is |