paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 16:51:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

avoid to insert options in .cfg file if the option has no command line

Browse Source
This commit is contained in:
pierre 2002-02-20 15:06:52 +00:00
parent 387697b731
commit d98022d88a
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/fpswitch.pas
View File

@ -608,7 +608,8 @@ var
until s=''; until s='';
end end
else else
Writeln(CfgFile,' -'+Pref+P^.Param+P^.ParamValue); if P^.ParamValue<>'/' then
Writeln(CfgFile,' -'+Pref+P^.Param+P^.ParamValue);
end; end;
end; end;
@ -854,9 +855,9 @@ begin
AddBooleanItem(opt_tp7compatibility,'o',idNone); AddBooleanItem(opt_tp7compatibility,'o',idNone);
AddBooleanItem(opt_delphicompatibility,'d',idNone); AddBooleanItem(opt_delphicompatibility,'d',idNone);
AddBooleanItem(opt_allowstaticinobjects,'s',idNone); AddBooleanItem(opt_allowstaticinobjects,'s',idNone);
AddBooleanItem(opt_strictvarstrings,'',idStrictVarStrings); AddBooleanItem(opt_strictvarstrings,'/',idStrictVarStrings);
AddBooleanItem(opt_extendedsyntax,'',idExtendedSyntax); AddBooleanItem(opt_extendedsyntax,'/',idExtendedSyntax);
AddBooleanItem(opt_allowmmxoperations,'',idMMXOps); AddBooleanItem(opt_allowmmxoperations,'/',idMMXOps);
end; end;
New(VerboseSwitches,Init('v')); New(VerboseSwitches,Init('v'));
with VerboseSwitches^ do with VerboseSwitches^ do
@ -1229,7 +1230,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.4 2001-11-24 02:06:43 carl Revision 1.5 2002-02-20 15:06:52 pierre
avoid to insert options in .cfg file if the option has no command line
Revision 1.4 2001/11/24 02:06:43 carl
* Renamed ppc.cfg -> fpc.cfg * Renamed ppc.cfg -> fpc.cfg
Revision 1.3 2001/08/29 23:31:27 pierre Revision 1.3 2001/08/29 23:31:27 pierre