diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-05-23 08:07:35 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-05-23 08:07:35 +0200 |
| commit | 7c28c0c7ca48edcda4ff7c390c864cb1396eb1d8 (patch) | |
| tree | a08bafa5a5267320b2dbd2f282de1df02ff24e83 /src | |
| parent | 8ef3af5bfc135e63ac76315a863e71690f0b0b73 (diff) | |
| download | ghdl-7c28c0c7ca48edcda4ff7c390c864cb1396eb1d8.tar.gz ghdl-7c28c0c7ca48edcda4ff7c390c864cb1396eb1d8.tar.bz2 ghdl-7c28c0c7ca48edcda4ff7c390c864cb1396eb1d8.zip | |
files_map: adjust computation of column for tabs
Diffstat (limited to 'src')
| -rw-r--r-- | src/files_map.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/files_map.adb b/src/files_map.adb index 4cb6d82bf..df62f2155 100644 --- a/src/files_map.adb +++ b/src/files_map.adb @@ -175,9 +175,8 @@ package body Files_Map is for I in Line_Pos .. Line_Pos + Source_Ptr (Offset) - 1 loop if Source_File.Source (I) = ASCII.HT then Res := Res + Tab_Stop - Res mod Tab_Stop; - else - Res := Res + 1; end if; + Res := Res + 1; end loop; return Res; end if; |