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