From ebc269b5e66cd92b621c63243f9d09679e5979f6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 5 Sep 2016 07:04:29 +0200
Subject: ghdllocal: set location of progress message.

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

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index ca40d9cce..5072ad44f 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -60,7 +60,7 @@ package body Ghdllocal is
       end if;
 
       if Flags.Verbose then
-         Report_Msg (Msgid_Note, Semantic, No_Location,
+         Report_Msg (Msgid_Note, Semantic, +Unit,
                      "analyze %n", (1 => +Get_Library_Unit (Unit)));
       end if;
 
-- 
cgit v1.2.3