diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-10-03 05:46:34 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-10-03 05:46:34 +0200 |
commit | dfe367903f66c566f9f2b2e075d6c65e7126cb3a (patch) | |
tree | 66efe2544a463a63716b706a4c9fb0abcd631cf2 /src/files_map.ads | |
parent | 1c1cdc4f5f7420f88a1ac4bc2df35a31cf45a892 (diff) | |
download | ghdl-dfe367903f66c566f9f2b2e075d6c65e7126cb3a.tar.gz ghdl-dfe367903f66c566f9f2b2e075d6c65e7126cb3a.tar.bz2 ghdl-dfe367903f66c566f9f2b2e075d6c65e7126cb3a.zip |
Minor refactoring to simplify interfacing.
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; |