diff options
Diffstat (limited to 'src/grt/grt-wave_opt.adb')
-rw-r--r-- | src/grt/grt-wave_opt.adb | 37 |
1 files changed, 11 insertions, 26 deletions
diff --git a/src/grt/grt-wave_opt.adb b/src/grt/grt-wave_opt.adb index f976c42bd..5bc1524b3 100644 --- a/src/grt/grt-wave_opt.adb +++ b/src/grt/grt-wave_opt.adb @@ -29,48 +29,33 @@ with Grt.Errors; use Grt.Errors; package body Grt.Wave_Opt is - procedure Print_Context - (Lineno, Column : Positive; Severity : Severity_Type) is + procedure Diag_C_Context (Lineno, Column : Positive) is begin - case Severity is - when Error => - Error_S; - when Warning => - Warning_S; - end case; Diag_C (File_Path.all); Diag_C (':'); Diag_C (Lineno); Diag_C (':'); Diag_C (Column); Diag_C (": "); - end Print_Context; + end Diag_C_Context; - procedure Print_Context (Element : Elem_Acc; Severity : Severity_Type) is + procedure Diag_C_Context (Element : Elem_Acc) is begin - Print_Context - (Element.Lineno, Element.Column, Severity); - end Print_Context; + Diag_C_Context (Element.Lineno, Element.Column); + end Diag_C_Context; procedure Error_Context (Msg : String; - Lineno, Column : Positive; - Severity : Severity_Type := Error) is + Lineno, Column : Positive) is begin - Print_Context (Lineno, Column, Severity); + Error_S; + Diag_C_Context (Lineno, Column); Diag_C (Msg); - case Severity is - when Error => - Error_E; - when Warning => - Warning_E; - end case; + Error_E; end Error_Context; - procedure Error_Context - (Msg : String; Element : Elem_Acc; Severity : Severity_Type := Error) is + procedure Error_Context (Msg : String; Element : Elem_Acc) is begin - Error_Context - (Msg, Element.Lineno, Element.Column, Severity); + Error_Context (Msg, Element.Lineno, Element.Column); end Error_Context; end Grt.Wave_Opt; |