diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-03-14 07:02:02 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-03-14 07:02:02 +0100 |
| commit | f6f792afaab6f8a58a06dcbfd67f0c2bcb1dbe3a (patch) | |
| tree | 1e716aca163b681dd053506d3293e8fb186e04b1 /src/ghdldrv | |
| parent | a9f8777e0fbb1b4ff5d8f6f7219a07782d755a4a (diff) | |
| download | ghdl-f6f792afaab6f8a58a06dcbfd67f0c2bcb1dbe3a.tar.gz ghdl-f6f792afaab6f8a58a06dcbfd67f0c2bcb1dbe3a.tar.bz2 ghdl-f6f792afaab6f8a58a06dcbfd67f0c2bcb1dbe3a.zip | |
Add Tab_Stop variable.
For #314
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 53df620ae..9aac16824 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -146,8 +146,8 @@ package body Ghdlprint is C := Buf (P); if C = HT then -- Expand TABS. - N_Col := Col + 8; - N_Col := N_Col - N_Col mod 8; + N_Col := Col + Tab_Stop; + N_Col := N_Col - N_Col mod Tab_Stop; while Col < N_Col loop Put (' '); Col := Col + 1; |