paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:19:16 +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

5
compiler/systems/t_win.pas
View File

@ -980,8 +980,11 @@ 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
if target_info.system=system_x86_64_win64 then
ibase:='100000000'
else
ibase:='400000';
end;