Jelajahi Sumber

* fixeed uninitialised variable
- removed unused local variables

Jonas Maebe 20 tahun lalu
induk
melakukan
bb27e8b024
1 mengubah file dengan 8 tambahan dan 3 penghapusan
  1. 8 3
      compiler/utils/fpcmkcfg.pp

+ 8 - 3
compiler/utils/fpcmkcfg.pp

@@ -124,8 +124,8 @@ end;
 Procedure ProcessCommandline;
 Procedure ProcessCommandline;
 
 
 Var
 Var
-  I,P,l : Integer;
-  T,S : String;
+  I : Integer;
+  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