paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* THandle in sysutils common using System.THandle

Browse Source
This commit is contained in:
Tomas Hajny 2003-10-25 23:42:35 +00:00
parent 78a00b657b
commit 57538cb669
12 changed files with 68 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/amiga/system.pas
View File

@ -33,6 +33,9 @@ unit {$ifdef VER1_0}sysamiga{$else}{$ifdef VER0_99}sysamiga{$ELSE}system{$endif}
{$I systemh.inc}
type
THandle = longint;
{$I heaph.inc}
{Platform specific information}
@ -1827,7 +1830,10 @@ end.
{
$Log$
Revision 1.8 2003-09-29 18:52:36 hajny
Revision 1.9 2003-10-25 23:42:35 hajny
* THandle in sysutils common using System.THandle
Revision 1.8 2003/09/29 18:52:36 hajny
* append fix applied to Amiga, Atari, EMX, GO32v2, OS/2 and Watcom
Revision 1.7 2003/09/27 11:52:35 peter

8
rtl/atari/system.pas
View File

@ -30,6 +30,9 @@ unit {$ifdef VER1_0}sysatari{$else}{$ifdef VER0_99}sysatari{$ELSE}system{$endif}
{$I systemh.inc}
type
THandle = longint;
{$I heaph.inc}
{Platform specific information}
@ -759,7 +762,10 @@ end.
{
$Log$
Revision 1.8 2003-09-29 18:52:36 hajny
Revision 1.9 2003-10-25 23:42:35 hajny
* THandle in sysutils common using System.THandle
Revision 1.8 2003/09/29 18:52:36 hajny
* append fix applied to Amiga, Atari, EMX, GO32v2, OS/2 and Watcom
Revision 1.7 2003/09/27 11:52:35 peter

8
rtl/beos/system.pp
View File

@ -27,6 +27,9 @@ interface
{$I systemh.inc}
type
THandle = longint;
{ include heap support headers }
{$I heaph.inc}
@ -535,7 +538,10 @@ begin
end.
{
$Log$
Revision 1.9 2003-09-27 11:52:35 peter
Revision 1.10 2003-10-25 23:42:35 hajny
* THandle in sysutils common using System.THandle
Revision 1.9 2003/09/27 11:52:35 peter
* sbrk returns pointer
Revision 1.8 2003/01/08 22:32:28 marco

8
rtl/go32v2/sysutils.pp
View File

@ -24,9 +24,6 @@ interface
uses
go32,dos;
type
THandle = type Longint;
{ Include platform independent interface part }
{$i sysutilh.inc}
@ -754,7 +751,10 @@ Finalization
end.
{
$Log$
Revision 1.16 2003-06-03 07:54:27 michael
Revision 1.17 2003-10-25 23:42:35 hajny
* THandle in sysutils common using System.THandle
Revision 1.16 2003/06/03 07:54:27 michael
+ Patch from Peter for millisecond timing
Revision 1.15 2003/04/02 15:18:28 peter

10
rtl/inc/objects.pp
View File

@ -153,11 +153,6 @@ TYPE
{---------------------------------------------------------------------------}
type
FNameStr = String;
{$ifdef win32}
THandle = Windows.THandle;
{$else}
THandle = longint;
{$endif}
const
MaxReadBytes = $7fffffff;
invalidhandle = -1;
@ -2927,7 +2922,10 @@ END;
END.
{
$Log$
Revision 1.22 2003-09-16 15:57:33 peter
Revision 1.23 2003-10-25 23:43:59 hajny
* THandle in sysutils common using System.THandle
Revision 1.22 2003/09/16 15:57:33 peter
* sparc register typo
Revision 1.21 2003/08/21 22:17:13 olle

8
rtl/netware/system.pp
View File

@ -32,6 +32,9 @@ interface
{$I systemh.inc}
type
THandle = cardinal;
{Platform specific information}
const
LineEnding = #13#10;
@ -812,7 +815,10 @@ Begin
End.
{
$Log$
Revision 1.19 2003-10-17 22:12:02 olle
Revision 1.20 2003-10-25 23:43:59 hajny
* THandle in sysutils common using System.THandle
Revision 1.19 2003/10/17 22:12:02 olle
* changed i386 to cpui386
Revision 1.18 2003/09/27 11:52:35 peter

8
rtl/netware/sysutils.pp
View File

@ -35,9 +35,6 @@ TYPE
Magic : WORD; { to avoid abends with uninitialized TSearchRec }
END;
type
THandle = Cardinal;
{ Include platform independent interface part }
{$i sysutilh.inc}
@ -500,7 +497,10 @@ end.
{
$Log$
Revision 1.11 2003-04-12 13:21:27 armin
Revision 1.12 2003-10-25 23:42:35 hajny
* THandle in sysutils common using System.THandle
Revision 1.11 2003/04/12 13:21:27 armin
* added THandle
Revision 1.10 2003/03/30 12:35:43 armin

6
rtl/netware/winsock.pp
View File

@ -65,7 +65,6 @@ unit winsock;
LPINT = ^integer;
LPDWORD = ^dword;
{$ifdef netware}
THandle = longint; {win32 system unit defines THandle and overlapped}
OVERLAPPED = record
Internal : DWORD;
InternalHigh: DWORD;
@ -2431,7 +2430,10 @@ finalization
end.
{
$Log$
Revision 1.2 2003-03-30 12:35:43 armin
Revision 1.3 2003-10-25 23:42:35 hajny
* THandle in sysutils common using System.THandle
Revision 1.2 2003/03/30 12:35:43 armin
* removed uses netware from winsock, DirectoryExists implemented
Revision 1.1 2003/03/25 18:17:54 armin

15
rtl/objpas/sysutils/sysutilh.inc
View File

@ -15,8 +15,6 @@
{ Read date & Time function declarations }
(* This must be placed before other functions, because TDateTime from DosCalls
would be used under OS/2 instead of that one from datih.inc otherwise. *)
{$i osutilsh.inc}
{$i datih.inc}
@ -27,6 +25,14 @@
type
{ some helpful data types }
{$IFDEF VER1_0}
(* System type alias cannot be used under version *)
(* 1.0 because of different names of System unit. *)
THandle = longint;
{$ELSE VER1_0}
THandle = System.THandle;
{$ENDIF VER1_0}
tprocedure = procedure;
tfilename = string;
@ -213,7 +219,10 @@ Type
{
$Log$
Revision 1.1 2003-10-06 21:01:06 peter
Revision 1.2 2003-10-25 23:43:59 hajny
* THandle in sysutils common using System.THandle
Revision 1.1 2003/10/06 21:01:06 peter
* moved classes unit to rtl
Revision 1.20 2003/09/06 20:49:54 marco

11
rtl/posix/sysutils.pp
View File

@ -21,12 +21,6 @@ interface
{ force ansistrings }
{$H+}
type
{$ifdef VER1_0}
THandle = type Longint;
{$else VER1_0}
THandle = System.THandle;
{$endif VER1_0}
{ Include platform independent interface part }
{$i sysutilh.inc}
@ -552,7 +546,10 @@ Finalization
end.
{
$Log$
Revision 1.7 2003-10-09 20:13:19 florian
Revision 1.8 2003-10-25 23:43:59 hajny
* THandle in sysutils common using System.THandle
Revision 1.7 2003/10/09 20:13:19 florian
* more type alias updates as suggested by DarekM
Revision 1.6 2003/04/01 15:57:41 peter

8
rtl/unix/sysutils.pp
View File

@ -24,9 +24,6 @@ interface
uses
Unix,errors;
type
THandle = type Longint;
{ Include platform independent interface part }
{$i sysutilh.inc}
@ -493,7 +490,10 @@ end.
{
$Log$
Revision 1.23 2003-10-07 08:28:49 marco
Revision 1.24 2003-10-25 23:43:59 hajny
* THandle in sysutils common using System.THandle
Revision 1.23 2003/10/07 08:28:49 marco
* fix from Vincent to casetables
Revision 1.22 2003/09/27 12:51:33 peter

7
rtl/win32/sysutils.pp
View File

@ -38,8 +38,6 @@ uses
{$i sysutilh.inc}
type
THandle = Windows.Handle;
TSystemTime = Windows.TSystemTime;
EWin32Error = class(Exception)
@ -712,7 +710,10 @@ Finalization
end.
{
$Log$
Revision 1.24 2003-09-17 15:06:36 peter
Revision 1.25 2003-10-25 23:44:33 hajny
* THandle in sysutils common using System.THandle
Revision 1.24 2003/09/17 15:06:36 peter
* stdcall patch
Revision 1.23 2003/09/06 22:23:35 marco