paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +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;
Var
I,P,l : Integer;
T,S : String;
I : Integer;
S : String;
Function GetOptArg : String;
@ -206,6 +206,7 @@ begin
Assign(Fout,OutputFileName);
Rewrite(FOut);
Try
RCount:=0;
For I:=0 to Cfg.Count-1 do
begin
S:=Cfg[i];
@ -230,7 +231,11 @@ begin
end.
{
$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
Revision 1.1 2005/02/05 10:25:30 peter