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

* corrected typo in DirectoryExists

Browse Source
This commit is contained in:
armin 2003-03-30 10:38:00 +00:00
parent 29d1282e25
commit 46c2715b9d
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/sysutils.pp
View File

@ -147,7 +147,7 @@ Function DirectoryExists (Const Directory : String) : Boolean;
Var Info : Stat; Var Info : Stat;
begin begin
DirectoryExists:=fstat(dirname,Info) and DirectoryExists:=fstat(Directory,Info) and
((info.mode and STAT_IFMT)=STAT_IFDIR); ((info.mode and STAT_IFMT)=STAT_IFDIR);
end; end;
@ -491,7 +491,10 @@ end.
{ {
$Log$ $Log$
Revision 1.16 2003-03-29 18:21:42 hajny Revision 1.17 2003-03-30 10:38:00 armin
* corrected typo in DirectoryExists
Revision 1.16 2003/03/29 18:21:42 hajny
* DirectoryExists declaration changed to that one from fixes branch * DirectoryExists declaration changed to that one from fixes branch
Revision 1.15 2003/03/28 19:06:59 peter Revision 1.15 2003/03/28 19:06:59 peter