paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 08:47:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't generate RVA reloc in stabs if there is no symbol

Browse Source 
git-svn-id: trunk@5990 -
This commit is contained in:
peter 2007-01-15 16:46:50 +00:00
parent d6b54890e4
commit 8bf63f4f69
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/assemble.pas
View File

@ -869,7 +869,9 @@ Implementation
oldsec:=ObjData.CurrObjSec; oldsec:=ObjData.CurrObjSec;
ObjData.SetSection(ObjData.StabsSec); ObjData.SetSection(ObjData.StabsSec);
ObjData.Writebytes(stab,sizeof(TObjStabEntry)-4); ObjData.Writebytes(stab,sizeof(TObjStabEntry)-4);
if (target_info.system in system_windows+system_wince) and DLLSource and RelocSection then if assigned(relocsym) and
(target_info.system in system_windows+system_wince) and
(DLLSource and RelocSection) then
reltype:=RELOC_RVA reltype:=RELOC_RVA
else else
reltype:=RELOC_ABSOLUTE; reltype:=RELOC_ABSOLUTE;