paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:09:30 +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 implementation
uses uses
sysutils,cutils,cfileutl,cclasses, sysutils,cutils,cfileutl,cclasses,aasmbase,
globtype,globals,systems,verbose,script,fmodule,i_atari; globtype,globals,systems,verbose,script,fmodule,i_atari;
@ -73,7 +73,7 @@ begin
end end
else else
begin 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; end;
end; end;
@ -214,10 +214,24 @@ var
CmdStr : TCmdStr; CmdStr : TCmdStr;
StripStr: string[40]; StripStr: string[40];
DynLinkStr : string; DynLinkStr : string;
GCSectionsStr : string;
FlagsStr : string;
ExeName: string; ExeName: string;
begin begin
StripStr:=''; 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; ExeName:=current_module.exefilename;
if apptype = app_gui then if apptype = app_gui then
@ -229,13 +243,11 @@ begin
Replace(cmdstr,'$OPT',Info.ExtraOptions); Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(ExeName))); Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(ExeName)));
Replace(cmdstr,'$RES',maybequoted(ScriptFixFileName(outputexedir+Info.ResName))); Replace(cmdstr,'$RES',maybequoted(ScriptFixFileName(outputexedir+Info.ResName)));
Replace(cmdstr,'$FLAGS','-tos-flags fastload,fastram'); Replace(cmdstr,'$FLAGS',FlagsStr);
Replace(cmdstr,'$STRIP',StripStr); Replace(cmdstr,'$STRIP',StripStr);
if rlinkpath<>'' Then Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
DynLinkStr:='--rpath-link '+rlinkpath
else
DynLinkStr:='';
Replace(cmdstr,'$DYNLINK',DynLinkStr); Replace(cmdstr,'$DYNLINK',DynLinkStr);
MakeAtariExe:=DoExec(BinStr,CmdStr,true,false); MakeAtariExe:=DoExec(BinStr,CmdStr,true,false);
end; end;