diff --git a/compiler/systems/t_morph.pas b/compiler/systems/t_morph.pas index 9d5b96a800..115d9b5cd9 100644 --- a/compiler/systems/t_morph.pas +++ b/compiler/systems/t_morph.pas @@ -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