diff options
Diffstat (limited to 'src/files_map.ads')
| -rw-r--r-- | src/files_map.ads | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/files_map.ads b/src/files_map.ads index c7c5da447..a29159db2 100644 --- a/src/files_map.ads +++ b/src/files_map.ads @@ -141,6 +141,15 @@ package Files_Map is function Location_File_To_Pos (Location : Location_Type; File : Source_File_Entry) return Source_Ptr; + -- Convert LOCATION and FILE to a line number. + function Location_File_To_Line + (Location : Location_Type; File : Source_File_Entry) return Natural; + + -- Get logical column (with HT expanded) from LOC, FILE and LINE. + function Location_File_Line_To_Col + (Loc : Location_Type; File : Source_File_Entry; Line : Natural) + return Natural; + -- Convert LOCATION into a source file FILE and an offset POS in the -- file. procedure Location_To_File_Pos (Location : Location_Type; @@ -202,4 +211,10 @@ package Files_Map is -- Free all memory and reinitialize. procedure Initialize; + +private + -- Debug procedures. + + -- Disp info about all source files + procedure Debug_Source_Files; end Files_Map; |