paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 16:10:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation of sysutils, partly revert patch from peter which was a modified version of my patch

Browse Source 
git-svn-id: trunk@4863 -
This commit is contained in:
micha 2006-10-11 18:19:06 +00:00
parent a61abb25cb
commit 0c5124c295
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/sysutils.pp
View File

@ -388,6 +388,7 @@ End;
Type
TUnixFindData = Record
NamePos : LongInt; {to track which search this is}
DirPtr : Pointer; {directory pointer for reading directory}
SearchSpec : String;
SearchType : Byte; {0=normal, 1=open will close, 2=only 1 file}
@ -460,8 +461,7 @@ Begin
If UnixFindData^.NamePos = 0 Then
DirName:='./'
Else
DirName:=
Copy(UnixFindData^.SearchSpec,1,UnixFindData^.NamePos);
DirName:=Copy(UnixFindData^.SearchSpec,1,UnixFindData^.NamePos);
UnixFindData^.DirPtr := fpopendir(Pchar(DirName));
end;
SName:=Copy(UnixFindData^.SearchSpec,UnixFindData^.NamePos+1,Length(UnixFindData^.SearchSpec));