From 9ed21dea7e8c7c5a07d1438ec89ecc98ac7f399d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 16 Sep 2018 08:07:36 +0200
Subject: grt: adjust grt-wave_opt error API.

---
 src/grt/grt-wave_opt.adb | 37 +++++++++++--------------------------
 1 file changed, 11 insertions(+), 26 deletions(-)

(limited to 'src/grt/grt-wave_opt.adb')

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;
-- 
cgit v1.2.3