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

* fix argument names

Browse Source
This commit is contained in:
peter 2003-04-02 15:18:28 +00:00
parent f0d85ac788
commit 6547b5129f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/sysutils.pp
View File

@ -258,7 +258,7 @@ Function FileExists (Const FileName : String) : Boolean;
Var Var
Sr : Searchrec; Sr : Searchrec;
begin begin
DOS.FindFirst(Path,$3f,sr); DOS.FindFirst(FileName,$3f,sr);
if DosError = 0 then if DosError = 0 then
begin begin
{ No volumeid,directory } { No volumeid,directory }
@ -274,7 +274,7 @@ Function DirectoryExists (Const Directory : String) : Boolean;
Var Var
Sr : Searchrec; Sr : Searchrec;
begin begin
DOS.FindFirst(Path,$3f,sr); DOS.FindFirst(Directory,$3f,sr);
if DosError = 0 then if DosError = 0 then
begin begin
Result:=(sr.attr and $10)=$10; Result:=(sr.attr and $10)=$10;
@ -754,7 +754,10 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.14 2003-04-01 15:57:41 peter Revision 1.15 2003-04-02 15:18:28 peter
* fix argument names
Revision 1.14 2003/04/01 15:57:41 peter
* made THandle platform dependent and unique type * made THandle platform dependent and unique type
Revision 1.13 2003/03/29 18:21:42 hajny Revision 1.13 2003/03/29 18:21:42 hajny