From b07663058eaf7adcfe75a1e7f6b24891ba647bc3 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Tue, 11 Dec 2012 02:40:49 +0000
Subject: Fix warnings (useless conversion)

---
 translate/grt/grt-disp_signals.adb | 3 +++
 translate/grt/grt-signals.adb      | 2 +-
 translate/grt/grt-waves.adb        | 2 +-
 3 files changed, 5 insertions(+), 2 deletions(-)

(limited to 'translate')

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