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/vhdl/translate/trans-chap1.adb | |
parent | cdb323b1dbfccbcff5c63804ff73e6e86e4d05e8 (diff) | |
download | ghdl-ee0e651d9b3946910d513e6a670453e25e5f014d.tar.gz ghdl-ee0e651d9b3946910d513e6a670453e25e5f014d.tar.bz2 ghdl-ee0e651d9b3946910d513e6a670453e25e5f014d.zip |
Rewrite error messages.
Diffstat (limited to 'src/vhdl/translate/trans-chap1.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap1.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap1.adb b/src/vhdl/translate/trans-chap1.adb index 3bff1a42e..4c5083ef6 100644 --- a/src/vhdl/translate/trans-chap1.adb +++ b/src/vhdl/translate/trans-chap1.adb @@ -222,7 +222,7 @@ package body Trans.Chap1 is Prev_Subprg_Instance : Subprgs.Subprg_Instance_Stack; begin if Get_Foreign_Flag (Arch) then - Error_Msg_Sem ("FOREIGN architectures are not yet handled", Arch); + Error_Msg_Sem (+Arch, "FOREIGN architectures are not yet handled"); end if; Info := Add_Info (Arch, Kind_Block); |