From b76ff335a807be97a79e272b5e9bf08a99d3d8d6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 10 May 2019 21:43:00 +0200
Subject: vhdl: decouple errorouts a bit more.

---
 src/ghdldrv/ghdlmain.adb  | 4 ++--
 src/ghdldrv/ghdlprint.adb | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlmain.adb b/src/ghdldrv/ghdlmain.adb
index 872d9848d..02e01cc1b 100644
--- a/src/ghdldrv/ghdlmain.adb
+++ b/src/ghdldrv/ghdlmain.adb
@@ -252,14 +252,14 @@ package body Ghdlmain is
    is
       use Errorout;
    begin
-      Report_Msg (Msgid_Error, Option, No_Location, Msg);
+      Report_Msg (Msgid_Error, Option, No_Source_Coord, Msg);
    end Error;
 
    procedure Warning (Msg : String)
    is
       use Errorout;
    begin
-      Report_Msg (Msgid_Warning, Option, No_Location, Msg);
+      Report_Msg (Msgid_Warning, Option, No_Source_Coord, Msg);
    end Warning;
 
    procedure Main
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 3addfbfe3..2fab7d67e 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -1092,7 +1092,7 @@ package body Ghdlprint is
             loop
                Scan;
                if Ref_Tokens.Table (Tok_Idx) /= Current_Token then
-                  Report_Msg (Msgid_Error, Errorout.Parse, No_Location,
+                  Report_Msg (Msgid_Error, Errorout.Parse, No_Source_Coord,
                               "token mismatch");
                   exit;
                end if;
-- 
cgit v1.2.3