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

removed unused var, cosmetics, no functional changes

Browse Source 
git-svn-id: trunk@24738 -
This commit is contained in:
Károly Balogh 2013-06-01 17:52:32 +00:00
parent 525246f61b
commit 9b90c22eb5
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
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;