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

* Set default images base to $100000000 for win64 executables as done by MS linkers. It helps to detect portability errors early.

Browse Source 
git-svn-id: trunk@13138 -
This commit is contained in:
yury 2009-05-13 10:56:33 +00:00
parent bba2b87064
commit e23a304254
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/systems/t_win.pas
View File

@ -980,10 +980,13 @@ implementation
if IsSharedLibrary then
ibase:='10000000'
else
if target_info.system in [system_arm_wince] then
if target_info.system in system_wince then
ibase:='10000'
else
ibase:='400000';
if target_info.system=system_x86_64_win64 then
ibase:='100000000'
else
ibase:='400000';
end;
Concat('IMAGEBASE $' + ibase);
Concat('HEADER');