From 4aba225c8bf7e64fee347d77557731fce563618f Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 6 May 2020 01:57:38 +0000
Subject: [PATCH] + fix for writing absolute relocations in the .rel format

git-svn-id: trunk@45288 -
---
 compiler/ogrel.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas
index bba4126a74..8ada314f40 100644
--- a/compiler/ogrel.pas
+++ b/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);