diff options
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; |