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/simulate | |
| parent | cdb323b1dbfccbcff5c63804ff73e6e86e4d05e8 (diff) | |
| download | ghdl-ee0e651d9b3946910d513e6a670453e25e5f014d.tar.gz ghdl-ee0e651d9b3946910d513e6a670453e25e5f014d.tar.bz2 ghdl-ee0e651d9b3946910d513e6a670453e25e5f014d.zip | |
Rewrite error messages.
Diffstat (limited to 'src/vhdl/simulate')
| -rw-r--r-- | src/vhdl/simulate/elaboration.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/simulate/elaboration.adb b/src/vhdl/simulate/elaboration.adb index 93d60d928..f205ea1e4 100644 --- a/src/vhdl/simulate/elaboration.adb +++ b/src/vhdl/simulate/elaboration.adb @@ -1463,7 +1463,7 @@ package body Elaboration is -- the design entity implied by the entity aspect contains formal ports. if Formal_Chain = Null_Iir then if Local_Chain /= Null_Iir then - Error_Msg_Sem ("cannot create default map aspect", Node); + Error_Msg_Sem (+Node, "cannot create default map aspect"); end if; return Null_Iir; end if; @@ -1495,8 +1495,7 @@ package body Elaboration is -- its mode and type are not appropriate for such an -- association. -- FIXME: mode/type check. - Error_Msg_Sem - ("cannot associate local " & Disp_Node (Local), Node); + Error_Msg_Sem (+Node, "cannot associate local %n", +Local); exit; end if; if Assoc_List (Pos) /= Null_Iir then @@ -2279,7 +2278,7 @@ package body Elaboration is -- and must evaluate to a non-negative value. if Time < 0 then - Error_Msg_Sem ("time must be non-negative", Decl); + Error_Msg_Sem (+Decl, "time must be non-negative"); end if; -- LRM93 §12.3.2.3 |