diff options
Diffstat (limited to 'src/files_map.adb')
| -rw-r--r-- | src/files_map.adb | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/src/files_map.adb b/src/files_map.adb index 45e35586b..e93934ce2 100644 --- a/src/files_map.adb +++ b/src/files_map.adb @@ -354,17 +354,12 @@ package body Files_Map is Coord_To_Position (File, Line_Pos, Offset, Name, Col); end Location_To_Position; - procedure Location_To_Coord (Location : Location_Type; - File : out Source_File_Entry; + procedure File_Pos_To_Coord (File : Source_File_Entry; + Pos : Source_Ptr; Line_Pos : out Source_Ptr; Line : out Positive; - Offset : out Natural) - is - Pos : Source_Ptr; + Offset : out Natural) is begin - -- Get FILE and position POS in the file. - Location_To_File_Pos (Location, File, Pos); - case Source_Files.Table (File).Kind is when Source_File_File => Location_To_Coord (Source_Files.Table (File), Pos, @@ -382,6 +377,19 @@ package body Files_Map is Line_Pos, Line, Offset); end; end case; + end File_Pos_To_Coord; + + procedure Location_To_Coord (Location : Location_Type; + File : out Source_File_Entry; + Line_Pos : out Source_Ptr; + Line : out Positive; + Offset : out Natural) + is + Pos : Source_Ptr; + begin + -- Get FILE and position POS in the file. + Location_To_File_Pos (Location, File, Pos); + File_Pos_To_Coord (File, Pos, Line_Pos, Line, Offset); end Location_To_Coord; function Location_File_To_Pos |