From 1fbf1e9fc8455d8c675cc80818d1a2cdeaccdcb8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 24 Oct 2017 19:16:48 +0200
Subject: errorout: adjust caret position.

---
 src/vhdl/errorout.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb
index 9de1aff56..96ee810f1 100644
--- a/src/vhdl/errorout.adb
+++ b/src/vhdl/errorout.adb
@@ -575,7 +575,7 @@ package body Errorout is
         and then (File /= No_Source_File_Entry and Line /= 0)
       then
          Put_Line (Extract_Expanded_Line (File, Line));
-         Put_Line ((1 .. Col => ' ') & '^');
+         Put_Line ((1 .. Col - 1 => ' ') & '^');
       end if;
    end Report_Msg;
 
-- 
cgit v1.2.3