Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

removed unused var, cosmetics, no functional changes

git-svn-id: trunk@24738 -
Károly Balogh 12 years ago
parent
525246f61b
commit
9b90c22eb5
1 changed files with 1 additions and 3 deletions
Unified View Show Diff Stats
  1. 1 3
      rtl/morphos/dos.pp

+ 1 - 3
rtl/morphos/dos.pp
View File 

@@ -681,7 +681,6 @@ end;
 
 
 
 function FSearch(path: PathStr; dirlist: String) : PathStr;
 
 function FSearch(path: PathStr; dirlist: String) : PathStr;
 
 var
 
 var
 
-  counter: LongInt;
 
   p1     : LongInt;
 
   p1     : LongInt;
 
   tmpSR  : SearchRec;
 
   tmpSR  : SearchRec;
 
   newdir : PathStr;
 
   newdir : PathStr;
 
@@ -727,7 +726,7 @@ begin
 
     DosError:=0;
 
     DosError:=0;
 
     FTime := 0;
 
     FTime := 0;
 
     Str := StrPas(filerec(f).name);
 
     Str := StrPas(filerec(f).name);
 
-    DoDirSeparators(str);
 
+    DoDirSeparators(Str);
 
     FLock := dosLock(Str, SHARED_LOCK);
 
     FLock := dosLock(Str, SHARED_LOCK);
 
     IF FLock <> 0 then begin
 
     IF FLock <> 0 then begin
 
         New(FInfo);
 
         New(FInfo);
 
@@ -906,7 +905,6 @@ begin
 
 end;
 
 end;
 
 
 
 
 
-
 
 function GetEnv(envvar : String): String;
 
 function GetEnv(envvar : String): String;
 
 var
 
 var
 
    bufarr : array[0..255] of char;
 
    bufarr : array[0..255] of char;