paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixeed uninitialised variable

Browse Source 
- removed unused local variables
This commit is contained in:
Jonas Maebe 2005-03-25 21:21:30 +00:00
parent 54ca3d4536
commit bb27e8b024
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/utils/fpcmkcfg.pp
View File

@ -124,8 +124,8 @@ end;
Procedure ProcessCommandline; Procedure ProcessCommandline;
Var Var
I,P,l : Integer; I : Integer;
T,S : String; S : String;
Function GetOptArg : String; Function GetOptArg : String;
@ -206,6 +206,7 @@ begin
Assign(Fout,OutputFileName); Assign(Fout,OutputFileName);
Rewrite(FOut); Rewrite(FOut);
Try Try
RCount:=0;
For I:=0 to Cfg.Count-1 do For I:=0 to Cfg.Count-1 do
begin begin
S:=Cfg[i]; S:=Cfg[i];
@ -230,7 +231,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2005-02-14 17:13:10 peter Revision 1.3 2005-03-25 21:21:30 jonas
* fixeed uninitialised variable
- removed unused local variables
Revision 1.2 2005/02/14 17:13:10 peter
* truncate log * truncate log
Revision 1.1 2005/02/05 10:25:30 peter Revision 1.1 2005/02/05 10:25:30 peter