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

* fixed wince internal linker.

Browse Source 
git-svn-id: trunk@3719 -
This commit is contained in:
yury 2006-05-28 20:09:22 +00:00
parent ca68b19414
commit b73557ea4e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogcoff.pas
View File

@ -857,10 +857,11 @@ const win32stub : array[0..131] of byte=(
dec(address,TCoffObjSection(relocsec).orgmempos);
end;
{$ifdef arm}
if address <> 0 then
dec(address, relocval-relocsec.MemPos);
if (relocsec.objdata=objdata) then
inc(address, relocsec.MemPos)
else
{$endif arm}
inc(address,relocval);
inc(address,relocval);
inc(address,relocsec.objdata.imagebase);
end;
else