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

* turn off stripping if profiling or debugging

Browse Source
This commit is contained in:
peter 1999-09-01 22:07:20 +00:00
parent 6d332cfc77
commit e767ef9897
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/options.pas
View File

@ -504,7 +504,6 @@ begin
begin
{$ifdef GDB}
initmoduleswitches:=initmoduleswitches+[cs_debuginfo];
initglobalswitches:=initglobalswitches-[cs_link_strip];
for j:=1 to length(more) do
case more[j] of
'd' : initglobalswitches:=initglobalswitches+[cs_gdb_dbx];
@ -1175,6 +1174,11 @@ begin
initoutputformat:=target_asm.id;
end;
{ turn off stripping if compiling with debuginfo or profile }
if (cs_debuginfo in initmoduleswitches) or
(cs_profile in initmoduleswitches) then
initglobalswitches:=initglobalswitches-[cs_link_strip];
MaybeLoadMessageFile;
dispose(option,Done);
@ -1184,7 +1188,10 @@ end;
end.
{
$Log$
Revision 1.18 1999-08-28 17:46:10 peter
Revision 1.19 1999-09-01 22:07:20 peter
* turn off stripping if profiling or debugging
Revision 1.18 1999/08/28 17:46:10 peter
* resources are working correct
Revision 1.17 1999/08/28 15:34:19 florian