Fix warnings (useless conversion)

5 files changed, 7 insertions, 5 deletions

diff --git a/ortho/mcode/binary_file.adb b/ortho/mcode/binary_file.adb
index 3890b78..3a166d9 100644
--- a/ortho/mcode/binary_file.adb
+++ b/ortho/mcode/binary_file.adb
@@ -807,8 +807,7 @@ package body Binary_File is
 
    function Get_Symbol_Vaddr (Sym : Symbol) return Pc_Type is
    begin
-      return Pc_Type (Get_Section (Sym).Vaddr)
-        + Pc_Type (Get_Symbol_Value (Sym));
+      return Get_Section (Sym).Vaddr + Get_Symbol_Value (Sym);
    end Get_Symbol_Vaddr;
 
    procedure Write_Left_Be32 (Sect : Section_Acc;
diff --git a/ortho/mcode/ortho_code-dwarf.adb b/ortho/mcode/ortho_code-dwarf.adb
index 14215d3..ad67d1f 100644
--- a/ortho/mcode/ortho_code-dwarf.adb
+++ b/ortho/mcode/ortho_code-dwarf.adb
@@ -1070,7 +1070,7 @@ package body Ortho_Code.Dwarf is
       Pc := Get_Current_Pc;
       Gen_B8 (2);
       Gen_B8 (DW_OP_Fbreg);
-      Gen_Sleb128 (Int32 (Get_Decl_Info (Decl)));
+      Gen_Sleb128 (Get_Decl_Info (Decl));
       Patch_B8 (Pc, Unsigned_8 (Get_Current_Pc - (Pc + 1)));
    end Emit_Local_Location;
 
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);