Kaynağa Gözat

+ fix for writing absolute relocations in the .rel format

git-svn-id: trunk@45288 -
nickysn 5 yıl önce
ebeveyn
işleme
4aba225c8b
1 değiştirilmiş dosya ile 1 ekleme ve 0 silme
  1. 1 0
      compiler/ogrel.pas

+ 1 - 0
compiler/ogrel.pas

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