+ TOmfObjData.writeReloc: write the actual offset of the symbol in the section data

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@30473 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 0 deletions

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 3f6055f98b..17e4fe5a89 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -215,6 +215,7 @@ implementation
     procedure TOmfObjData.writeReloc(Data:aint;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);
       var
         objreloc: TOmfRelocation;
+        symaddr: AWord;
       begin
 {        Write('writeReloc(', data, ',', len, ',');
         if p<>nil then
@@ -228,8 +229,12 @@ implementation
         objreloc:=nil;
         if assigned(p) then
           begin
+            { real address of the symbol }
+            symaddr:=p.address;
+
             objreloc:=TOmfRelocation.CreateSymbol(CurrObjSec.Size,p,Reloctype);
             CurrObjSec.ObjRelocations.Add(objreloc);
+            inc(data,symaddr);
           end;
         CurrObjSec.write(data,len);
       end;