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

* Compilation fix in fsearch

Browse Source
This commit is contained in:
daniel 2004-07-03 13:15:51 +00:00
parent 2240dfda57
commit a3ca3996a6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/unix/unix.pp
View File

@ -1632,7 +1632,7 @@ Begin
i:=length(dirlist); i:=length(dirlist);
j:=1; j:=1;
Repeat Repeat
NewDir:=p+'/'+Path; NewDir:=strpas(p)+'/'+Path;
if (FpStat(NewDir,Info)>=0) and if (FpStat(NewDir,Info)>=0) and
(not fpS_ISDIR(Info.st_Mode)) then (not fpS_ISDIR(Info.st_Mode)) then
Begin Begin
@ -1754,7 +1754,10 @@ End.
{ {
$Log$ $Log$
Revision 1.70 2004-04-23 19:16:25 marco Revision 1.71 2004-07-03 13:15:51 daniel
* Compilation fix in fsearch
Revision 1.70 2004/04/23 19:16:25 marco
* flock -> fpflock because of conflicting structure name * flock -> fpflock because of conflicting structure name
Revision 1.69 2004/04/22 17:17:13 peter Revision 1.69 2004/04/22 17:17:13 peter