paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 01:38:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed COPYDATASTRUCT as suggested by Dmitry Boyarintsev, resolves #16321

Browse Source 
git-svn-id: trunk@15166 -
This commit is contained in:
florian 2010-04-24 17:21:55 +00:00
parent c67712f81f
commit fecd661bcb
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
rtl/win/wininc/struct.inc
View File

@ -46,7 +46,7 @@
{$ifdef read_interface}
Const
Const
IMAGE_SIZEOF_SHORT_NAME = 8;
type
@ -1480,7 +1480,7 @@ Const
PCONVINFO = ^CONVINFO;
COPYDATASTRUCT = record
dwData : DWORD;
dwData : ULONG_PTR;
cbData : DWORD;
lpData : PVOID;
end;
@ -1792,9 +1792,9 @@ Const
_EXCEPTION_DEBUG_INFO = EXCEPTION_DEBUG_INFO;
TEXCEPTIONDEBUGINFO = EXCEPTION_DEBUG_INFO;
PEXCEPTIONDEBUGINFO = ^EXCEPTION_DEBUG_INFO;
{ Explicit forms to debug targets running on a different architecture (32-bit versus 64-bit)}
EXCEPTION_RECORD32 = record
ExceptionCode : DWORD;
ExceptionFlags : DWORD;
@ -2261,7 +2261,7 @@ Const
_PARTITION_INFORMATION = PARTITION_INFORMATION;
TPARTITIONINFORMATION = PARTITION_INFORMATION;
PPARTITIONINFORMATION = ^PARTITION_INFORMATION;
PARTITION_INFORMATION_GPT = record
PartitionType : TGUID;
PartitionID : TGUID;
@ -2295,12 +2295,12 @@ Const
SET_PARTITION_INFORMATION_EX = record
PartitionStyle : TPartition_Style;
case integer of
case integer of
0 : (mbr : SET_PARTITION_INFORMATION_MBR);
1 : (GPT : SET_PARTITION_INFORMATION_GPT);
end;
TSET_PARTITION_INFORMATION_EX = SET_PARTITION_INFORMATION_EX;
PSET_PARTITION_INFORMATION_EX = ^SET_PARTITION_INFORMATION_EX;
TSET_PARTITION_INFORMATION_EX = SET_PARTITION_INFORMATION_EX;
PSET_PARTITION_INFORMATION_EX = ^SET_PARTITION_INFORMATION_EX;
CREATE_DISK_GPT = record
DiskID : TGUID;
@ -2317,17 +2317,17 @@ Const
CREATE_DISK = record
PartitionStyle : TPartition_Style;
case integer of
case integer of
0: ( MBR : Create_Disk_MBR);
1: ( GPT : Create_Disk_GPT);
1: ( GPT : Create_Disk_GPT);
end;
TCREATE_DISK = CREATE_DISK;
PCREATE_DISK = ^TCREATE_DISK;
GET_LENGTH_INFORMATION = record
Length : LARGE_INTEGER;
end;
TGET_LENGTH_INFORMATION = GET_LENGTH_INFORMATION;
TGET_LENGTH_INFORMATION = GET_LENGTH_INFORMATION;
PGET_LENGTH_INFORMATION = ^GET_LENGTH_INFORMATION;
PARTITION_INFORMATION_EX = record
@ -2336,9 +2336,9 @@ Const
PartitionLength : LARGE_INTEGER;
PartitionNumber : DWORD;
RewritePartition: BYTEBOOL;
case integer of
case integer of
0: ( MBR : PARTITION_INFORMATION_MBR);
1: ( GPT : PARTITION_INFORMATION_GPT);
1: ( GPT : PARTITION_INFORMATION_GPT);
end;
_PARTITION_INFORMATION_EX = PARTITION_INFORMATION_EX;
TPARTITIONINFORMATION_EX = PARTITION_INFORMATION_EX;
@ -4965,7 +4965,7 @@ Const
lpTemplateName : LPCTSTR;
pvReserved : pointer;
dwreserved : dword;
FlagsEx : dword;
FlagsEx : dword;
end;
LPOPENFILENAME = ^OPENFILENAME;
TOPENFILENAME = OPENFILENAME;
@ -6029,9 +6029,9 @@ Const
TSTICKYKEYS = STICKYKEYS;
PSTICKYKEYS = ^STICKYKEYS;
STRRET = record
STRRET = record
utype : UINT;
case longint of
case longint of
0: ( polestr:LPWSTR);
1: ( uOffset : UINT);
2: ( cStr : array[0..(MAX_PATH)-1] of char );
@ -6081,7 +6081,7 @@ Const
wProcessorLevel : WORD;
wProcessorRevision : WORD;
);
1 : (
1 : (
wProcessorArchitecture : WORD;
);
end;
@ -6994,7 +6994,7 @@ Const
e_oemid : WORD;
e_oeminfo : WORD;
e_res2 : array[0..9] of WORD;
case boolean of
case boolean of
true : (e_lfanew : LONG);
false: (_lfanew : LONG); // delphi naming
end;
@ -7349,7 +7349,7 @@ type
_IMAGE_FUNCTION_ENTRY64 = record
StartingAddress,
EndingAddress : ULONGLONG ;
case boolean of
case boolean of
false : (EndOfPrologue : ULONGLONG);
true : (UnwindInfoAddress : ULONGLONG);
end;
@ -7378,7 +7378,7 @@ type
ulOffStart: DWORD; // offset 1st byte of function code
cbProcSize: DWORD; // # bytes in function
cdwLocals : DWORD; // # bytes in locals/4
bitvalues : word; //
bitvalues : word; //
{
WORD cdwParams; // # bytes in params/4
WORD cbProlog : 8; // # bytes in prolog
@ -7506,7 +7506,7 @@ type
PCURSORINFO = ^CURSORINFO;
TCURSORINFO = CURSORINFO;
const
const
SECURITY_DESCRIPTOR_MIN_LENGTH = SIZEOF(SECURITY_DESCRIPTOR);
{$endif read_interface}