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

- rm unused variable from LFNFindFirst

git-svn-id: trunk@27157 -
nickysn 11 years ago
parent
044a744ba8
commit
ac6611ceb9
1 changed files with 0 additions and 1 deletions
Unified View Show Diff Stats
  1. 0 1
      rtl/msdos/dos.pp

+ 0 - 1
rtl/msdos/dos.pp
View File 

@@ -583,7 +583,6 @@ var
 
 
 
 procedure LFNFindFirst(path:pchar;attr:longint;var s:searchrec);
 
 procedure LFNFindFirst(path:pchar;attr:longint;var s:searchrec);
 
 var
 
 var
 
-  i : longint;
 
   w : LFNSearchRec;
 
   w : LFNSearchRec;
 
 begin
 
 begin
 
   { allow slash as backslash }
 
   { allow slash as backslash }