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

+ fixed stripping support

Browse Source
This commit is contained in:
Károly Balogh 2004-06-07 23:44:37 +00:00
parent 24bdd465aa
commit a73388cfb7
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/systems/t_morph.pas
View File

@ -63,9 +63,10 @@ procedure TLinkerMorphOS.SetDefaultInfo;
begin
with Info do
begin
if (cs_link_on_target in aktglobalswitches) then
ExeCmd[1]:='ld $OPT $STRIP -o $EXE --script $RES'
else
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;
end;
@ -185,11 +186,8 @@ begin
{ Create some replacements }
StripStr:='';
{ FIXME!!! - Need to add proper stripping support with }
{ separate strip command, to avoid stripping __abox__ symbol, }
{ which is required to be present in current MorphOS executables! }
{ if (cs_link_strip in aktglobalswitches) then
StripStr:='-s';}
if (cs_link_strip in aktglobalswitches) then
StripStr:='-s';
{ Write used files and libraries }
WriteResponseFile(false);
@ -205,6 +203,17 @@ begin
Replace(cmdstr,'$STRIP',StripStr);
success:=DoExec(FindUtil(BinStr),cmdstr,true,false);
{ Stripping Enabled? }
{ Under MorphOS a separate strip command is needed, to avoid stripping }
{ __abox__ symbol, which is required to be present in current MorphOS }
{ executables. }
if success and (cs_link_strip in aktglobalswitches) then
begin
SplitBinCmd(Info.ExeCmd[2],binstr,cmdstr);
Replace(cmdstr,'$EXE',current_module.exefilename^);
success:=DoExec(FindUtil(utilsprefix+binstr),cmdstr,true,false);
end;
{ Remove ReponseFile }
if (success) and not(cs_link_extern in aktglobalswitches) then
RemoveFile(outputexedir+Info.ResName);
@ -224,7 +233,10 @@ initialization
end.
{
$Log$
Revision 1.4 2004-04-28 15:19:03 florian
Revision 1.5 2004-06-07 23:44:37 karoly
+ fixed stripping support
Revision 1.4 2004/04/28 15:19:03 florian
+ syscall directive support for MorphOS added
Revision 1.3 2004/04/09 01:32:46 karoly