diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-11 08:49:23 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-11 18:13:39 +0200 |
commit | 516a716de3bdee436de54a17f1ec5b794677e076 (patch) | |
tree | 31aac612d825cc9aeee02e58a6eec75f35d531e9 /src/files_map.ads | |
parent | b90428658802f4aafb8c77e96937383f849bec34 (diff) | |
download | ghdl-516a716de3bdee436de54a17f1ec5b794677e076.tar.gz ghdl-516a716de3bdee436de54a17f1ec5b794677e076.tar.bz2 ghdl-516a716de3bdee436de54a17f1ec5b794677e076.zip |
files_map: add location_to_coord.
Diffstat (limited to 'src/files_map.ads')
-rw-r--r-- | src/files_map.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/files_map.ads b/src/files_map.ads index 1e69ed572..a5a05e30e 100644 --- a/src/files_map.ads +++ b/src/files_map.ads @@ -195,6 +195,13 @@ package Files_Map is Line : out Positive; Offset : out Natural); + -- Convert FILE and POS to coordinate. + procedure File_Pos_To_Coord (File : Source_File_Entry; + Pos : Source_Ptr; + Line_Pos : out Source_Ptr; + Line : out Positive; + Offset : out Natural); + -- Convert a physical column to a logical column. -- A physical column is the offset in byte from the first byte of the line. -- A logical column is the position of the character when displayed. |