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

* made THandle platform dependent and unique type

Browse Source
This commit is contained in:
peter 2003-04-01 15:57:41 +00:00
parent c97c827e09
commit 60e5c18645
6 changed files with 38 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/go32v2/sysutils.pp
View File

@ -24,6 +24,9 @@ interface
uses uses
go32,dos; go32,dos;
type
THandle = type Longint;
{ Include platform independent interface part } { Include platform independent interface part }
{$i sysutilh.inc} {$i sysutilh.inc}
@ -751,7 +754,10 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.13 2003-03-29 18:21:42 hajny Revision 1.14 2003-04-01 15:57:41 peter
* made THandle platform dependent and unique type
Revision 1.13 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.12 2003/03/28 19:06:59 peter Revision 1.12 2003/03/28 19:06:59 peter

8
rtl/objpas/filutilh.inc
View File

@ -14,9 +14,6 @@
**********************************************************************} **********************************************************************}
Type
THandle = Longint;
Type Type
TSearchRec = Record TSearchRec = Record
Time : Longint; Time : Longint;
@ -85,7 +82,10 @@ Function FileSearch (Const Name, DirList : String) : String;
{ {
$Log$ $Log$
Revision 1.9 2003-03-29 18:21:41 hajny Revision 1.10 2003-04-01 15:57:41 peter
* made THandle platform dependent and unique type
Revision 1.9 2003/03/29 18:21:41 hajny
* DirectoryExists declaration changed to that one from fixes branch * DirectoryExists declaration changed to that one from fixes branch
Revision 1.8 2003/03/28 19:06:59 peter Revision 1.8 2003/03/28 19:06:59 peter

8
rtl/os2/sysutils.pp
View File

@ -25,6 +25,9 @@ interface
uses uses
Dos; Dos;
type
THandle = type Longint;
{ Include platform independent interface part } { Include platform independent interface part }
{$i sysutilh.inc} {$i sysutilh.inc}
@ -983,7 +986,10 @@ end.
{ {
$Log$ $Log$
Revision 1.26 2003-03-31 02:18:39 yuri Revision 1.27 2003-04-01 15:57:41 peter
* made THandle platform dependent and unique type
Revision 1.26 2003/03/31 02:18:39 yuri
FileClose bug fixed (again ;)) FileClose bug fixed (again ;))
Revision 1.25 2003/03/29 19:14:16 yuri Revision 1.25 2003/03/29 19:14:16 yuri

8
rtl/posix/sysutils.pp
View File

@ -21,7 +21,8 @@ interface
{ force ansistrings } { force ansistrings }
{$H+} {$H+}
type
THandle = type Longint;
{ Include platform independent interface part } { Include platform independent interface part }
{$i sysutilh.inc} {$i sysutilh.inc}
@ -547,7 +548,10 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.5 2003-03-29 15:36:58 hajny Revision 1.6 2003-04-01 15:57:41 peter
* made THandle platform dependent and unique type
Revision 1.5 2003/03/29 15:36:58 hajny
* DirectoryExists merged from the fixes branch * DirectoryExists merged from the fixes branch
Revision 1.4 2003/03/29 15:16:26 hajny Revision 1.4 2003/03/29 15:16:26 hajny

8
rtl/unix/sysutils.pp
View File

@ -24,6 +24,9 @@ interface
uses uses
Unix,errors; Unix,errors;
type
THandle = type Longint;
{ Include platform independent interface part } { Include platform independent interface part }
{$i sysutilh.inc} {$i sysutilh.inc}
@ -491,7 +494,10 @@ end.
{ {
$Log$ $Log$
Revision 1.17 2003-03-30 10:38:00 armin Revision 1.18 2003-04-01 15:57:41 peter
* made THandle platform dependent and unique type
Revision 1.17 2003/03/30 10:38:00 armin
* corrected typo in DirectoryExists * corrected typo in DirectoryExists
Revision 1.16 2003/03/29 18:21:42 hajny Revision 1.16 2003/03/29 18:21:42 hajny

9
rtl/win32/sysutils.pp
View File

@ -30,6 +30,8 @@ uses
{$i sysutilh.inc} {$i sysutilh.inc}
type type
THandle = Windows.Handle;
TSystemTime = Windows.TSystemTime; TSystemTime = Windows.TSystemTime;
EWin32Error = class(Exception) EWin32Error = class(Exception)
@ -191,7 +193,7 @@ var
Handle: THandle; Handle: THandle;
FindData: TWin32FindData; FindData: TWin32FindData;
begin begin
Handle := FindFirstFile(Pchar(FileName), @FindData); Handle := FindFirstFile(Pchar(Directory), @FindData);
Result:=(Handle <> INVALID_HANDLE_VALUE) and Result:=(Handle <> INVALID_HANDLE_VALUE) and
((FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY); ((FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY);
If Result then If Result then
@ -683,7 +685,10 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.21 2003-03-29 18:21:42 hajny Revision 1.22 2003-04-01 15:57:41 peter
* made THandle platform dependent and unique type
Revision 1.21 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.20 2003/03/28 19:06:59 peter Revision 1.20 2003/03/28 19:06:59 peter