3 files changed, 5 insertions, 2 deletions
diff --git a/translate/grt/grt-disp_signals.adb b/translate/grt/grt-disp_signals.adb
index 6a2d0c1..47f67c2 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 fc24077..1acd675 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 c4319c8..7bcb0df 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);