paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 14:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* compilation fix - for loop counter issues

Browse Source
This commit is contained in:
Tomas Hajny 2004-09-14 20:46:13 +00:00
parent 32bf307ec5
commit cabdb71f2a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/fpswitch.pas
View File

@ -697,7 +697,7 @@ end;
procedure WriteSwitches(const fn:string);
var
OldSwitchesMode : TSwitchMode;
OldSwitchesMode, SWM: TSwitchMode;
begin
{ create the switches }
assign(CfgFile,fn);
@ -708,8 +708,9 @@ begin
exit;
writeln(CfgFile,'# '+msg_automaticallycreateddontedit);
OldSwitchesMode:=SwitchesMode;
for SwitchesMode:=low(TSwitchMode) to high(TSwitchMode) do
for SWM:=low(TSwitchMode) to high(TSwitchMode) do
begin
SwitchesMode := SWM;
Writeln(CfgFile,'#IFDEF '+SwitchesModeStr[SwitchesMode]);
TargetSwitches^.WriteItemsCfg;
VerboseSwitches^.WriteItemsCfg;
@ -1273,7 +1274,10 @@ end;
end.
{
$Log$
Revision 1.16 2004-09-04 23:33:39 armin
Revision 1.17 2004-09-14 20:46:13 hajny
* compilation fix - for loop counter issues
Revision 1.16 2004/09/04 23:33:39 armin
* makefiles regenerated
* ide: added target netwlibc