1 files changed, 13 insertions, 10 deletions
diff --git a/src/grt/grt-wave_opt-file.adb b/src/grt/grt-wave_opt-file.adb
index 32f70593a..a753691d1 100644
--- a/src/grt/grt-wave_opt-file.adb
+++ b/src/grt/grt-wave_opt-file.adb
@@ -68,7 +68,7 @@ package body Grt.Wave_Opt.File is
    procedure Parse_Version (Line : String; Lineno : Positive);
 
    -- Print the version variable given as parameter
-   procedure Print_Version (Version : Version_Type);
+   procedure Diag_C_Version (Version : Version_Type);
 
    -- Parse a line where a signal path is set
    procedure Parse_Path (Line : in out String; Lineno : Positive);
@@ -127,7 +127,7 @@ package body Grt.Wave_Opt.File is
       if Version.Major = -1 then
          Warning_S ("version wasn't set at the beginning of the" &
                    " file; currently supported version is ");
-         Print_Version (Current_Version);
+         Diag_C_Version (Current_Version);
          Warning_E;
       end if;
 
@@ -197,25 +197,26 @@ package body Grt.Wave_Opt.File is
       if Version.Major /= Current_Version.Major
         or else Version.Minor > Current_Version.Minor
       then
-         Print_Context (Line'First, Lineno, Error);
-         Error_S ("unsupported format version; it must be ");
+         Error_S;
+         Diag_C_Context (Line'First, Lineno);
+         Diag_C ("unsupported format version; it must be ");
          if Current_Version.Minor /= 0 then
             Diag_C ("between ");
-            Print_Version (Version_Type'(Current_Version.Major, 0));
+            Diag_C_Version (Version_Type'(Current_Version.Major, 0));
             Diag_C (" and ");
          end if;
-         Print_Version (Current_Version);
+         Diag_C_Version (Current_Version);
          Error_E;
       end if;
 
    end Parse_Version;
 
-   procedure Print_Version (Version : Version_Type) is
+   procedure Diag_C_Version (Version : Version_Type) is
    begin
       Diag_C (Version.Major);
       Diag_C ('.');
       Diag_C (Version.Minor);
-   end Print_Version;
+   end Diag_C_Version;
 
    procedure Initialize_Tree is
    begin
@@ -305,7 +306,8 @@ package body Grt.Wave_Opt.File is
             -- 2nd line, a is a signal but it isn't according to the 1st line.
             -- Then /top/a will supercede /top/a/b.
             if not Tree_Updated and Tree_Cursor.Next_Child /= null then
-               Print_Context (Lineno, Line'First, Warning);
+               Warning_S;
+               Diag_C_Context (Lineno, Line'First);
                Diag_C ("supercedes line ");
                Diag_C (Tree_Cursor.Lineno);
                Diag_C (" and possibly more lines in between");
@@ -359,7 +361,8 @@ package body Grt.Wave_Opt.File is
                -- the 1st line, a is a signal but it isn't according to the 2nd
                -- line. Then /top/a will supercede /top/a/b.
                if Level > 1 and not Last_Updated then
-                  Print_Context (Lineno, Elem_Expr'First, Warning);
+                  Warning_S;
+                  Diag_C_Context (Lineno, Elem_Expr'First);
                   Diag_C ("superceded by line ");
                   Diag_C (Cursor.Lineno);
                   Warning_E;