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/synth/synth-errors.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/synth')

diff --git a/src/synth/synth-errors.adb b/src/synth/synth-errors.adb
index 4acfe560c..a8e4c04c7 100644
--- a/src/synth/synth-errors.adb
+++ b/src/synth/synth-errors.adb
@@ -24,13 +24,13 @@ package body Synth.Errors is
                               Arg1 : Earg_Type) is
    begin
       Report_Msg (Msgid_Error, Errorout.Elaboration,
-                  Loc, Msg, (1 => Arg1));
+                  +Loc, Msg, (1 => Arg1));
    end Error_Msg_Synth;
 
    procedure Error_Msg_Synth (Loc : Location_Type;
                               Msg : String) is
    begin
       Report_Msg (Msgid_Error, Errorout.Elaboration,
-                  Loc, Msg, (1 .. 0 => <>));
+                  +Loc, Msg, (1 .. 0 => <>));
    end Error_Msg_Synth;
 end Synth.Errors;
-- 
cgit v1.2.3