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

AROS: improved version of the previous commit, pass the stripping option to the linker instead, seems to work.

Browse Source 
git-svn-id: trunk@28466 -
This commit is contained in:
Károly Balogh 2014-08-19 11:30:02 +00:00
parent 883e71f18e
commit 03a0f7b409
1 changed files with 5 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/systems/t_aros.pas
View File

@ -93,8 +93,7 @@ begin
{ properly when calling the underlying GNU LD. (FIXME?) }
{ This means paths with spaces in them are not supported for now on AROS. }
{ So for example no Ram Disk: usage for anything which must be linked. (KB) }
ExeCmd[1]:='collect-aros $OPT -d -n -o $EXE $RES';
ExeCmd[2]:='strip --strip-unneeded $EXE';
ExeCmd[1]:='collect-aros $OPT $STRIP -d -n -o $EXE $RES';
//ExeCmd[1]:='ld $OPT -d -n -o $EXE $RES';
end;
end;
@ -223,35 +222,24 @@ end;
function TLinkeraros.Makearos386Exe: boolean;
var
success: boolean;
BinStr,
CmdStr : TCmdStr;
StripStr: string[40];
begin
StripStr:='';
if (cs_link_strip in current_settings.globalswitches) then StripStr:='-s';
{ Call linker }
SplitBinCmd(Info.ExeCmd[1],BinStr,CmdStr);
Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(current_module.exefilename)));
Replace(cmdstr,'$RES',maybequoted(ScriptFixFileName(outputexedir+Info.ResName)));
Replace(cmdstr,'$STRIP',StripStr);
{ Replace(cmdstr,'$EXE',Unix2AmigaPath(maybequoted(ScriptFixFileName(current_module.exefilename^))));
Replace(cmdstr,'$RES',Unix2AmigaPath(maybequoted(ScriptFixFileName(outputexedir+Info.ResName))));
Replace(cmdstr,'$STRIP',StripStr); }
Replace(cmdstr,'$RES',Unix2AmigaPath(maybequoted(ScriptFixFileName(outputexedir+Info.ResName))));}
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
{ AROS seems to need a separate strip command, it may be possible to do it
in the linking command, but this works so fine for now. (KB) }
if success and (cs_link_strip in current_settings.globalswitches) then
begin
SplitBinCmd(Info.ExeCmd[2],binstr,cmdstr);
Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename));
success:=DoExec(FindUtil(utilsprefix+binstr),cmdstr,true,false);
end;
Makearos386Exe:=success;
Makearos386Exe:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
end;