diff options
Diffstat (limited to 'ortho')
| -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 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; |