paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-29 12:50:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed stripping really this time

Browse Source
This commit is contained in:
Károly Balogh 2004-06-08 15:04:23 +00:00
parent a73388cfb7
commit e6ffa24866
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/systems/t_morph.pas
View File

@ -66,8 +66,10 @@ begin
if (cs_link_on_target in aktglobalswitches) then begin
ExeCmd[1]:='ld $OPT -o $EXE --script $RES';
ExeCmd[2]:='strip --strip-unneeded --remove-section .comment $EXE';
end else
ExeCmd[1]:='ld $OPT $STRIP -o $EXE $RES'
end else begin
ExeCmd[1]:='ld $OPT -o $EXE $RES';
ExeCmd[2]:='strip --strip-unneeded --remove-section .comment $EXE';
end;
end;
end;
@ -178,17 +180,11 @@ var
binstr,
cmdstr : string;
success : boolean;
StripStr : string[40];
begin
if not(cs_link_extern in aktglobalswitches) then
Message1(exec_i_linking,current_module.exefilename^);
{ Create some replacements }
StripStr:='';
if (cs_link_strip in aktglobalswitches) then
StripStr:='-s';
{ Write used files and libraries }
WriteResponseFile(false);
@ -200,7 +196,6 @@ begin
Replace(cmdstr,'$EXE',ScriptFixFileName(current_module.exefilename^));
Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$RES',ScriptFixFileName(outputexedir+Info.ResName));
Replace(cmdstr,'$STRIP',StripStr);
success:=DoExec(FindUtil(BinStr),cmdstr,true,false);
{ Stripping Enabled? }
@ -233,7 +228,10 @@ initialization
end.
{
$Log$
Revision 1.5 2004-06-07 23:44:37 karoly
Revision 1.6 2004-06-08 15:04:23 karoly
* fixed stripping really this time
Revision 1.5 2004/06/07 23:44:37 karoly
+ fixed stripping support
Revision 1.4 2004/04/28 15:19:03 florian