diff options
Diffstat (limited to 'ortho/mcode/binary_file.adb')
| -rw-r--r-- | ortho/mcode/binary_file.adb | 3 |
1 files changed, 1 insertions, 2 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; |