diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-15 21:27:32 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-15 21:27:32 +0200 |
| commit | f41084de955da1438542b2a3d42501077cdaa24e (patch) | |
| tree | a64cc0242e3021828f83cea151f730f5e91d154e | |
| parent | 60e73a3a858b5c0ceb6d62de1f3fd0082fa125dc (diff) | |
| download | ghdl-f41084de955da1438542b2a3d42501077cdaa24e.tar.gz ghdl-f41084de955da1438542b2a3d42501077cdaa24e.tar.bz2 ghdl-f41084de955da1438542b2a3d42501077cdaa24e.zip | |
Pure errors are warnings in relaxed rules.
| -rw-r--r-- | src/vhdl/errorout.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb index 714a2833f..b529b48ed 100644 --- a/src/vhdl/errorout.adb +++ b/src/vhdl/errorout.adb @@ -1036,17 +1036,17 @@ package body Errorout is procedure Error_Pure (Caller : Iir; Callee : Iir; Loc : Iir) is - L : Location_Type; + L : Iir; begin if Loc = Null_Iir then - L := Get_Location (Caller); + L := Caller; else - L := Get_Location (Loc); + L := Loc; end if; - Error_Msg_Sem + Error_Msg_Sem_Relaxed ("pure " & Disp_Node (Caller) & " cannot call (impure) " & Disp_Node (Callee), L); - Error_Msg_Sem + Error_Msg_Sem_Relaxed ("(" & Disp_Node (Callee) & " is defined here)", Callee); end Error_Pure; |