diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2012-12-11 02:40:49 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2012-12-11 02:40:49 +0000 |
| commit | b07663058eaf7adcfe75a1e7f6b24891ba647bc3 (patch) | |
| tree | 9f5c4a5f496cbd40ac3c3fc0d678b3f413fad364 /ortho/mcode | |
| parent | a47d1d61881e53c05ad9acf375f8b929da5c20e7 (diff) | |
| download | ghdl-b07663058eaf7adcfe75a1e7f6b24891ba647bc3.tar.gz ghdl-b07663058eaf7adcfe75a1e7f6b24891ba647bc3.tar.bz2 ghdl-b07663058eaf7adcfe75a1e7f6b24891ba647bc3.zip | |
Fix warnings (useless conversion)
Diffstat (limited to 'ortho/mcode')
| -rw-r--r-- | ortho/mcode/binary_file.adb | 3 | ||||
| -rw-r--r-- | ortho/mcode/ortho_code-dwarf.adb | 2 |
2 files changed, 2 insertions, 3 deletions
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; |