paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:40:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another bunch of type corrections

Browse Source
This commit is contained in:
Tomas Hajny 2002-11-18 19:51:00 +00:00
parent ad35b52837
commit 466b5d9d58
2 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/os2/dos.pas
View File

@ -846,7 +846,7 @@ procedure FindFirst (const Path: PathStr; Attr: word; var F: SearchRec);
var path0: array[0..255] of char;
Count: longint;
Count: cardinal;
begin
{No error.}
@ -856,7 +856,7 @@ begin
New (F.FStat);
F.Handle := $FFFFFFFF;
Count := 1;
DosError := Integer(DosFindFirst (Path, F.Handle,
DosError := integer (DosFindFirst (Path, F.Handle,
Attr and FindResvdMask, F.FStat, SizeOf (F.FStat^),
Count, ilStandard));
if (DosError = 0) and (Count = 0) then DosError := 18;
@ -883,7 +883,7 @@ end;
procedure FindNext (var F: SearchRec);
var Count: longint;
var Count: cardinal;
begin
@ -893,7 +893,8 @@ begin
if os_mode = osOS2 then
begin
Count := 1;
DosError := Integer(DosFindNext (F.Handle, F.FStat, SizeOf (F.FStat^), Count));
DosError := integer (DosFindNext (F.Handle, F.FStat, SizeOf (F.FStat^),
Count));
if (DosError = 0) and (Count = 0) then DosError := 18;
end else _findnext (F);
DosSearchRec2SearchRec (F);
@ -1217,7 +1218,10 @@ begin
end.
{
$Log$
Revision 1.19 2002-09-07 16:01:24 peter
Revision 1.20 2002-11-18 19:51:00 hajny
* another bunch of type corrections
Revision 1.19 2002/09/07 16:01:24 peter
* old logs removed and tabs fixed
Revision 1.18 2002/07/11 16:00:05 hajny

16
rtl/os2/sysutils.pp
View File

@ -192,11 +192,12 @@ function DosScanEnv (Name: PChar; var Value: PChar): longint; cdecl;
external 'DOSCALLS' index 227;
function DosFindFirst (FileMask: PChar; var Handle: longint; Attrib: longint;
AFileStatus: PFileStatus; FileStatusLen: longint;
var Count: longint; InfoLevel: longint): longint; cdecl;
AFileStatus: PFileStatus; FileStatusLen: cardinal;
var Count: cardinal; InfoLevel: cardinal): longint; cdecl;
external 'DOSCALLS' index 264;
function DosFindNext (Handle: longint; AFileStatus: PFileStatus;
FileStatusLen: longint; var Count: longint): longint; cdecl;
FileStatusLen: cardinal; var Count: cardinal): longint; cdecl;
external 'DOSCALLS' index 265;
function DosFindClose (Handle: longint): longint; cdecl;
@ -410,7 +411,7 @@ function FindFirst (const Path: string; Attr: longint; var Rslt: TSearchRec): lo
var SR: PSearchRec;
FStat: PFileFindBuf3;
Count: longint;
Count: cardinal;
Err: longint;
begin
@ -459,7 +460,7 @@ function FindNext (var Rslt: TSearchRec): longint;
var SR: PSearchRec;
FStat: PFileFindBuf3;
Count: longint;
Count: cardinal;
Err: longint;
begin
@ -951,7 +952,10 @@ end.
{
$Log$
Revision 1.18 2002-09-23 17:42:37 hajny
Revision 1.19 2002-11-18 19:51:00 hajny
* another bunch of type corrections
Revision 1.18 2002/09/23 17:42:37 hajny
* AnsiString to PChar typecast
Revision 1.17 2002/09/07 16:01:25 peter