diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-05-17 04:58:05 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-05-17 04:58:05 +0200 |
commit | e1306c7beea185286fd233e1940afe2cd967ae49 (patch) | |
tree | 15137e84af7051788278d49b8195d55eb82fe250 /src/vhdl/sem_expr.adb | |
parent | a347b47a28cdcb65e5594795947ed12547d4b21e (diff) | |
download | ghdl-e1306c7beea185286fd233e1940afe2cd967ae49.tar.gz ghdl-e1306c7beea185286fd233e1940afe2cd967ae49.tar.bz2 ghdl-e1306c7beea185286fd233e1940afe2cd967ae49.zip |
errors: remove error_msg and warning_msg.
Diffstat (limited to 'src/vhdl/sem_expr.adb')
-rw-r--r-- | src/vhdl/sem_expr.adb | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index f67176b4d..da2a890d3 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -987,7 +987,7 @@ package body Sem_Expr is -- CALLEE is impure. case Get_Kind (Subprg) is when Iir_Kind_Function_Declaration => - Error_Pure (Subprg, Callee, Loc); + Error_Pure (Semantic, Subprg, Callee, Loc); when Iir_Kind_Procedure_Declaration => Set_Purity_State (Subprg, Impure); when others => @@ -996,11 +996,9 @@ package body Sem_Expr is when Iir_Kind_Procedure_Declaration => declare Depth : Iir_Int32; - Callee_Body : Iir; - Subprg_Body : Iir; + Callee_Body : constant Iir := Get_Subprogram_Body (Callee); + Subprg_Body : constant Iir := Get_Subprogram_Body (Subprg); begin - Callee_Body := Get_Subprogram_Body (Callee); - Subprg_Body := Get_Subprogram_Body (Subprg); -- Get purity depth of callee, if possible. case Get_Purity_State (Callee) is when Pure => @@ -1026,10 +1024,10 @@ package body Sem_Expr is case Get_Kind (Subprg) is when Iir_Kind_Function_Declaration => if Depth = Iir_Depth_Impure then - Error_Pure (Subprg, Callee, Loc); + Error_Pure (Semantic, Subprg, Callee, Loc); else if Depth < Get_Subprogram_Depth (Subprg) then - Error_Pure (Subprg, Callee, Loc); + Error_Pure (Semantic, Subprg, Callee, Loc); end if; end if; when Iir_Kind_Procedure_Declaration => |