From f6f792afaab6f8a58a06dcbfd67f0c2bcb1dbe3a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 14 Mar 2017 07:02:02 +0100
Subject: Add Tab_Stop variable.

For #314
---
 src/ghdldrv/ghdlprint.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/ghdldrv')

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;
-- 
cgit v1.2.3