From b07663058eaf7adcfe75a1e7f6b24891ba647bc3 Mon Sep 17 00:00:00 2001 From: gingold Date: Tue, 11 Dec 2012 02:40:49 +0000 Subject: Fix warnings (useless conversion) --- ortho/mcode/binary_file.adb | 3 +-- ortho/mcode/ortho_code-dwarf.adb | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) (limited to 'ortho') diff --git a/ortho/mcode/binary_file.adb b/ortho/mcode/binary_file.adb index 3890b7805..3a166d9af 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 14215d37a..ad67d1ff6 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; -- cgit v1.2.3