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

* AnsiString to PChar typecast

Browse Source
This commit is contained in:
Tomas Hajny 2002-09-23 17:42:37 +00:00
parent c1b7ca770c
commit 7f19746b9e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/os2/sysutils.pp
View File

@ -419,8 +419,9 @@ begin
New (FStat); New (FStat);
Rslt.FindHandle := $FFFFFFFF; Rslt.FindHandle := $FFFFFFFF;
Count := 1; Count := 1;
Err := DosFindFirst (Path, Rslt.FindHandle, Attr and FindResvdMask, Err := DosFindFirst (PChar (Path), Rslt.FindHandle,
FStat, SizeOf (FStat^), Count, ilStandard); Attr and FindResvdMask, FStat, SizeOf (FStat^), Count,
ilStandard);
if (Err = 0) and (Count = 0) then Err := 18; if (Err = 0) and (Count = 0) then Err := 18;
FindFirst := -Err; FindFirst := -Err;
if Err = 0 then if Err = 0 then
@ -950,7 +951,10 @@ end.
{ {
$Log$ $Log$
Revision 1.17 2002-09-07 16:01:25 peter Revision 1.18 2002-09-23 17:42:37 hajny
* AnsiString to PChar typecast
Revision 1.17 2002/09/07 16:01:25 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.16 2002/07/11 16:00:05 hajny Revision 1.16 2002/07/11 16:00:05 hajny