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

* some data types cleaned up

Browse Source
This commit is contained in:
florian 2003-10-06 23:52:53 +00:00
parent 6684d2c520
commit bc2d795aab
5 changed files with 54 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/systemh.inc
View File

@ -264,6 +264,12 @@ Type
{ procedure type } { procedure type }
TProcedure = Procedure; TProcedure = Procedure;
{$ifdef CPU64}
THandle = QWord;
{$else CPU64}
THandle = DWord;
{$endif CPU64}
const const
{ Maximum value of the biggest signed and unsigned integer type available} { Maximum value of the biggest signed and unsigned integer type available}
@ -692,7 +698,10 @@ const
{ {
$Log$ $Log$
Revision 1.72 2003-09-04 16:07:31 florian Revision 1.73 2003-10-06 23:52:53 florian
* some data types cleaned up
Revision 1.72 2003/09/04 16:07:31 florian
* fixed qword_to_double conversion on powerpc * fixed qword_to_double conversion on powerpc
Revision 1.71 2003/09/03 14:09:37 florian Revision 1.71 2003/09/03 14:09:37 florian
@ -815,4 +824,4 @@ const
instead of direct comparisons of low/high values of orddefs because instead of direct comparisons of low/high values of orddefs because
qword is a special case qword is a special case
} }

7
rtl/win32/system.pp
View File

@ -111,6 +111,8 @@ const
Dll_Thread_Attach_Hook : TDLL_Entry_Hook = nil; Dll_Thread_Attach_Hook : TDLL_Entry_Hook = nil;
Dll_Thread_Detach_Hook : TDLL_Entry_Hook = nil; Dll_Thread_Detach_Hook : TDLL_Entry_Hook = nil;
type
HMODULE = THandle;
implementation implementation
@ -1530,7 +1532,10 @@ end.
{ {
$Log$ $Log$
Revision 1.44 2003-09-27 11:52:36 peter Revision 1.45 2003-10-06 23:52:53 florian
* some data types cleaned up
Revision 1.44 2003/09/27 11:52:36 peter
* sbrk returns pointer * sbrk returns pointer
Revision 1.43 2003/09/26 07:30:34 michael Revision 1.43 2003/09/26 07:30:34 michael

6
rtl/win32/win32.inc
View File

@ -83,7 +83,6 @@ type
LPVOID = pointer; LPVOID = pointer;
LPCVOID = pointer; LPCVOID = pointer;
LPDWORD = ^DWORD; LPDWORD = ^DWORD;
THandle = longint;
HLocal = THandle; HLocal = THandle;
PStr = pchar; PStr = pchar;
LPStr = pchar; LPStr = pchar;
@ -126,7 +125,10 @@ type
{ {
$Log$ $Log$
Revision 1.9 2002-09-07 16:01:29 peter Revision 1.10 2003-10-06 23:52:53 florian
* some data types cleaned up
Revision 1.9 2002/09/07 16:01:29 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.8 2002/05/09 08:28:23 carl Revision 1.8 2002/05/09 08:28:23 carl

8
rtl/win32/wininc/base.inc
View File

@ -76,7 +76,7 @@
DWORDLONG = qword; { was unsigned long } DWORDLONG = qword; { was unsigned long }
PDWORDLONG = ^DWORDLONG; PDWORDLONG = ^DWORDLONG;
HANDLE = type Cardinal; HANDLE = System.THandle;
HRESULT = System.HResult; HRESULT = System.HResult;
HACCEL = HANDLE; HACCEL = HANDLE;
@ -108,7 +108,6 @@
HLOCAL = HANDLE; HLOCAL = HANDLE;
HMENU = HANDLE; HMENU = HANDLE;
HMETAFILE = HANDLE; HMETAFILE = HANDLE;
HMODULE = HANDLE;
HPALETTE = HANDLE; HPALETTE = HANDLE;
HPEN = HANDLE; HPEN = HANDLE;
HRASCONN = HANDLE; HRASCONN = HANDLE;
@ -938,7 +937,10 @@ type
{ {
$Log$ $Log$
Revision 1.18 2003-08-20 23:12:32 marco Revision 1.19 2003-10-06 23:52:53 florian
* some data types cleaned up
Revision 1.18 2003/08/20 23:12:32 marco
* HSTR fix * HSTR fix
Revision 1.17 2003/04/23 11:35:00 peter Revision 1.17 2003/04/23 11:35:00 peter

45
rtl/win32/wininc/messages.inc
View File

@ -1171,28 +1171,39 @@ Type
PMessage = ^TMessage; PMessage = ^TMessage;
TMessage = packed record {fields according to ICS} TMessage = packed record {fields according to ICS}
msg : UINT; msg : UINT;
case longint of case longint of
0: ( 0: (
wParam : WPARAM; wParam : WPARAM;
lParam : LPARAM; lParam : LPARAM;
Result : DWORD; Result : DWORD;
); );
1: ( 1: (
wParamlo, wParamlo,
wParamhi : WORD; // Is there Windows type for half an wparam? wParamhi : WORD; // Is there Windows type for half an wparam?
lParamlo, lParamlo,
lParamhi : WORD; lParamhi : WORD;
Resultlo, Resultlo,
Resulthi : WORD; Resulthi : WORD;
); );
end; end;
TWMSize = packed record
Msg: Cardinal;
SizeType: LongInt;
Width : Word;
Height : Word;
Result : LongInt;
End;
{$endif read_interface} {$endif read_interface}
{ {
$Log$ $Log$
Revision 1.5 2003-01-02 22:07:00 peter Revision 1.6 2003-10-06 23:52:53 florian
* some data types cleaned up
Revision 1.5 2003/01/02 22:07:00 peter
* missing items * missing items
Revision 1.4 2002/11/04 12:17:42 marco Revision 1.4 2002/11/04 12:17:42 marco