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

* Better fix.

Browse Source
This commit is contained in:
daniel 2004-07-03 13:18:06 +00:00
parent a3ca3996a6
commit 0fd27656bc
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:=strpas(p)+'/'+Path; NewDir:=ansistring(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.71 2004-07-03 13:15:51 daniel Revision 1.72 2004-07-03 13:18:06 daniel
* Better fix.
Revision 1.71 2004/07/03 13:15:51 daniel
* Compilation fix in fsearch * Compilation fix in fsearch
Revision 1.70 2004/04/23 19:16:25 marco Revision 1.70 2004/04/23 19:16:25 marco