paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* rva relocation bug fixed

Browse Source
This commit is contained in:
pierre 2000-03-10 09:15:54 +00:00
parent 38ec9c22bb
commit 24353efcb7
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/og386cff.pas
View File

@ -546,8 +546,8 @@ unit og386cff;
else
begin
writesymbol(p);
if (p^.section<>sec_none) and (relative=relative_false) then
sects[currsec]^.addsectionreloc(sects[currsec]^.len,p^.section,relative_false)
if (p^.section<>sec_none) and (relative<>relative_true) then
sects[currsec]^.addsectionreloc(sects[currsec]^.len,p^.section,relative)
else
sects[currsec]^.addsymreloc(sects[currsec]^.len,p,relative);
if not win32 then {seems wrong to me (PM) }
@ -985,7 +985,10 @@ unit og386cff;
end.
{
$Log$
Revision 1.20 2000-03-09 14:29:47 pierre
Revision 1.21 2000-03-10 09:15:54 pierre
* rva relocation bug fixed
Revision 1.20 2000/03/09 14:29:47 pierre
* fix for the stab section size changes with smartlinking
Revision 1.19 2000/02/09 13:22:54 peter