From 402f082e491d47addb070956f93f78ba6d737acc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 5 Dec 2018 18:41:21 +0100
Subject: Move Error_Msg_Parse from errorout to parse.

---
 src/ghdldrv/ghdlprint.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index ce0433204..8470b6ea3 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -1091,7 +1091,8 @@ package body Ghdlprint is
             loop
                Scan;
                if Ref_Tokens.Table (Tok_Idx) /= Current_Token then
-                  Error_Msg_Parse ("token mismatch");
+                  Report_Msg (Msgid_Error, Errorout.Parse, No_Location,
+                              "token mismatch");
                   exit;
                end if;
                case Current_Token is
-- 
cgit v1.2.3