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

atari: section smartlinking support for atari. needs vlink nightly

Browse Source 
git-svn-id: trunk@35244 -
This commit is contained in:
Károly Balogh 2017-01-06 02:44:12 +00:00
parent 48744d0abd
commit 49fc799e97
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/systems/t_atari.pas
View File

@ -48,7 +48,7 @@ type
implementation
uses
sysutils,cutils,cfileutl,cclasses,
sysutils,cutils,cfileutl,cclasses,aasmbase,
globtype,globals,systems,verbose,script,fmodule,i_atari;
@ -73,7 +73,7 @@ begin
end
else
begin
ExeCmd[1]:='vlink -b ataritos $FLAGS $OPT $STRIP -o $EXE -T $RES';
ExeCmd[1]:='vlink -b ataritos $FLAGS $GCSECTIONS $OPT $STRIP -o $EXE -T $RES';
end;
end;
end;
@ -214,10 +214,24 @@ var
CmdStr : TCmdStr;
StripStr: string[40];
DynLinkStr : string;
GCSectionsStr : string;
FlagsStr : string;
ExeName: string;
begin
StripStr:='';
if (cs_link_strip in current_settings.globalswitches) then StripStr:='-s';
GCSectionsStr:='';
DynLinkStr:='';
FlagsStr:='-tos-flags fastload,fastram';
if (cs_link_strip in current_settings.globalswitches) then
StripStr:='-s';
if rlinkpath<>'' then
DynLinkStr:='--rpath-link '+rlinkpath;
if UseVLink then
begin
if create_smartlink_sections then
GCSectionsStr:='-gc-all -sc -sd';
end;
ExeName:=current_module.exefilename;
if apptype = app_gui then
@ -229,13 +243,11 @@ begin
Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(ExeName)));
Replace(cmdstr,'$RES',maybequoted(ScriptFixFileName(outputexedir+Info.ResName)));
Replace(cmdstr,'$FLAGS','-tos-flags fastload,fastram');
Replace(cmdstr,'$FLAGS',FlagsStr);
Replace(cmdstr,'$STRIP',StripStr);
if rlinkpath<>'' Then
DynLinkStr:='--rpath-link '+rlinkpath
else
DynLinkStr:='';
Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
Replace(cmdstr,'$DYNLINK',DynLinkStr);
MakeAtariExe:=DoExec(BinStr,CmdStr,true,false);
end;