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

* Support for -WB<image_base> option in internal linker.

Browse Source 
git-svn-id: trunk@3828 -
This commit is contained in:
yury 2006-06-09 11:08:46 +00:00
parent e80e5be980
commit fb9f8bb2a1
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ogcoff.pas
View File

@ -2464,14 +2464,21 @@ const win32stub : array[0..131] of byte=(
procedure TPECoffLinker.DefaultLinkScript; procedure TPECoffLinker.DefaultLinkScript;
var
ibase: string;
begin begin
with LinkScript do with LinkScript do
begin begin
Concat('READUNITOBJECTS'); Concat('READUNITOBJECTS');
if assigned(DLLImageBase) then
ibase:=DLLImageBase^
else
ibase:='';
if IsSharedLibrary then if IsSharedLibrary then
begin begin
if ibase = '' then
ibase:='10000000';
Concat('ISSHAREDLIBRARY'); Concat('ISSHAREDLIBRARY');
Concat('IMAGEBASE $10000000');
if apptype=app_gui then if apptype=app_gui then
Concat('ENTRYNAME _DLLWinMainCRTStartup') Concat('ENTRYNAME _DLLWinMainCRTStartup')
else else
@ -2484,6 +2491,8 @@ const win32stub : array[0..131] of byte=(
else else
Concat('ENTRYNAME _mainCRTStartup'); Concat('ENTRYNAME _mainCRTStartup');
end; end;
if ibase <> '' then
Concat('IMAGEBASE $' + ibase);
Concat('HEADER'); Concat('HEADER');
Concat('EXESECTION .text'); Concat('EXESECTION .text');
{$ifdef arm} {$ifdef arm}