diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-08-02 06:02:07 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-08-02 08:01:36 +0200 |
| commit | ee0e651d9b3946910d513e6a670453e25e5f014d (patch) | |
| tree | 6b8df5b5630fa7c7cd78583663eac88c1d88f387 /src/ghdldrv/ghdlrun.adb | |
| parent | cdb323b1dbfccbcff5c63804ff73e6e86e4d05e8 (diff) | |
| download | ghdl-ee0e651d9b3946910d513e6a670453e25e5f014d.tar.gz ghdl-ee0e651d9b3946910d513e6a670453e25e5f014d.tar.bz2 ghdl-ee0e651d9b3946910d513e6a670453e25e5f014d.zip | |
Rewrite error messages.
Diffstat (limited to 'src/ghdldrv/ghdlrun.adb')
| -rw-r--r-- | src/ghdldrv/ghdlrun.adb | 8 |
1 files changed, 4 insertions, 4 deletions
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 => |