From ee0e651d9b3946910d513e6a670453e25e5f014d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 2 Aug 2016 06:02:07 +0200
Subject: Rewrite error messages.

---
 src/ghdldrv/ghdlrun.adb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb
index 9249f2cfb..94d760d63 100644
--- a/src/ghdldrv/ghdlrun.adb
+++ b/src/ghdldrv/ghdlrun.adb
@@ -175,8 +175,8 @@ package body Ghdlrun is
                if Res /= Null_Address then
                   Def (Ortho, Res);
                else
-                  Error_Msg_Sem ("unknown foreign VHPIDIRECT '" & Name & "'",
-                                 Decl);
+                  Error_Msg_Sem
+                    (+Decl, "unknown foreign VHPIDIRECT '" & Name & "'");
                end if;
             end;
          when Foreign_Intrinsic =>
@@ -192,8 +192,8 @@ package body Ghdlrun is
                elsif Name = "get_resolution_limit" then
                   Def (Ortho, Grt.Lib.Ghdl_Get_Resolution_Limit'Address);
                else
-                  Error_Msg_Sem ("unknown foreign intrinsic '" & Name & "'",
-                                 Decl);
+                  Error_Msg_Sem
+                    (+Decl, "unknown foreign intrinsic %i", +Decl);
                end if;
             end;
          when Foreign_Unknown =>
-- 
cgit v1.2.3