Fix warnings (useless conversion)

3 files changed, 5 insertions, 2 deletions

diff --git a/translate/grt/grt-disp_signals.adb b/translate/grt/grt-disp_signals.adb
index 6a2d0c1c2..47f67c264 100644
--- a/translate/grt/grt-disp_signals.adb
+++ b/translate/grt/grt-disp_signals.adb
@@ -110,6 +110,9 @@ package body Grt.Disp_Signals is
       end case;
    end Disp_Context;
 
+   --  This is a debugging procedure.
+   pragma Unreferenced (Disp_Context);
+
    --  Option --trace-signals.
 
    --  Disp transaction TRANS from signal SIG.
diff --git a/translate/grt/grt-signals.adb b/translate/grt/grt-signals.adb
index fc2407794..1acd6758d 100644
--- a/translate/grt/grt-signals.adb
+++ b/translate/grt/grt-signals.adb
@@ -2471,7 +2471,7 @@ package body Grt.Signals is
                   end if;
                end if;
             else
-               Sig.Net := Signal_Net_Type (Offs (Sig.Net));
+               Sig.Net := Offs (Sig.Net);
             end if;
             Sig.Link := null;
          end loop;
diff --git a/translate/grt/grt-waves.adb b/translate/grt/grt-waves.adb
index c4319c874..7bcb0df6f 100644
--- a/translate/grt/grt-waves.adb
+++ b/translate/grt/grt-waves.adb
@@ -387,7 +387,7 @@ package body Grt.Waves is
       Put_I32 (stdout, Ghdl_I32 (Str_AVL.Table (N).Right));
       New_Line (stdout);
       Put (stdout, " height: ");
-      Put_I32 (stdout, Ghdl_I32 (Str_AVL.Table (N).Height));
+      Put_I32 (stdout, Str_AVL.Table (N).Height);
       New_Line (stdout);
       Put (stdout, " str: ");
       --Put (stdout, Str_AVL.Table (N).Val);