From d98022d88a1bcd4abf3f44beb082bb2a10beb30e Mon Sep 17 00:00:00 2001 From: pierre Date: Wed, 20 Feb 2002 15:06:52 +0000 Subject: [PATCH] avoid to insert options in .cfg file if the option has no command line --- ide/fpswitch.pas | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/ide/fpswitch.pas b/ide/fpswitch.pas index e45a3a3aab..c4e20bbeab 100644 --- a/ide/fpswitch.pas +++ b/ide/fpswitch.pas @@ -608,7 +608,8 @@ var until s=''; end else - Writeln(CfgFile,' -'+Pref+P^.Param+P^.ParamValue); + if P^.ParamValue<>'/' then + Writeln(CfgFile,' -'+Pref+P^.Param+P^.ParamValue); end; end; @@ -854,9 +855,9 @@ begin AddBooleanItem(opt_tp7compatibility,'o',idNone); AddBooleanItem(opt_delphicompatibility,'d',idNone); AddBooleanItem(opt_allowstaticinobjects,'s',idNone); - AddBooleanItem(opt_strictvarstrings,'',idStrictVarStrings); - AddBooleanItem(opt_extendedsyntax,'',idExtendedSyntax); - AddBooleanItem(opt_allowmmxoperations,'',idMMXOps); + AddBooleanItem(opt_strictvarstrings,'/',idStrictVarStrings); + AddBooleanItem(opt_extendedsyntax,'/',idExtendedSyntax); + AddBooleanItem(opt_allowmmxoperations,'/',idMMXOps); end; New(VerboseSwitches,Init('v')); with VerboseSwitches^ do @@ -1229,7 +1230,10 @@ end; end. { $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 Revision 1.3 2001/08/29 23:31:27 pierre