فهرست منبع

+ fix for writing absolute relocations in the .rel format

git-svn-id: trunk@45288 -
nickysn 5 سال پیش
والد
کامیت
4aba225c8b
1فایلهای تغییر یافته به همراه1 افزوده شده و 0 حذف شده
  1. 1 0
      compiler/ogrel.pas

+ 1 - 0
compiler/ogrel.pas

@@ -313,6 +313,7 @@ implementation
             else
               begin
                 objreloc:=TRelRelocation.CreateSection(CurrObjSec.Size,p.objsection,Reloctype);
+                inc(data,symaddr);
                 if Reloctype in [RELOC_ABSOLUTE_HI8,RELOC_ABSOLUTE_LO8] then
                   objreloc.HiByte:=Byte(Data shr 8);
                 CurrObjSec.ObjRelocations.Add(objreloc);