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

+ added 32/64bit exceptionrecord definitions

Browse Source 
git-svn-id: trunk@5167 -
This commit is contained in:
Marc Weustink 2006-11-02 00:36:22 +00:00
parent c95785db04
commit ab9936a1ce
1 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1791,6 +1791,53 @@
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)}
EXCEPTION_RECORD32 = record
ExceptionCode : DWORD;
ExceptionFlags : DWORD;
ExceptionRecord : DWORD;
ExceptionAddress : DWORD;
NumberParameters : DWORD;
ExceptionInformation : array[0..(EXCEPTION_MAXIMUM_PARAMETERS)-1] of DWORD;
end;
PEXCEPTION_RECORD32 = ^EXCEPTION_RECORD32;
_EXCEPTION_RECORD32 = EXCEPTION_RECORD32;
TExceptionRecord32 = EXCEPTION_RECORD32;
PExceptionRecord32 = ^EXCEPTION_RECORD32;
EXCEPTION_DEBUG_INFO32 = record
ExceptionRecord : EXCEPTION_RECORD32;
dwFirstChance : DWORD;
end;
PEXCEPTION_DEBUG_INFO32 = ^EXCEPTION_DEBUG_INFO32;
_EXCEPTION_DEBUG_INFO32 = EXCEPTION_DEBUG_INFO32;
TExceptionDebugInfo32 = EXCEPTION_DEBUG_INFO32;
PExceptionDebugInfo32 = ^EXCEPTION_DEBUG_INFO32;
EXCEPTION_RECORD64 = record
ExceptionCode : DWORD;
ExceptionFlags : DWORD;
ExceptionRecord : DWORD64;
ExceptionAddress : DWORD64;
NumberParameters : DWORD;
__unusedAlignment : DWORD;
ExceptionInformation : array[0..(EXCEPTION_MAXIMUM_PARAMETERS)-1] of DWORD64;
end;
PEXCEPTION_RECORD64 = ^EXCEPTION_RECORD64;
_EXCEPTION_RECORD64 = EXCEPTION_RECORD64;
TExceptionRecord64 = EXCEPTION_RECORD64;
PExceptionRecord64 = ^EXCEPTION_RECORD64;
EXCEPTION_DEBUG_INFO64 = record
ExceptionRecord : EXCEPTION_RECORD64;
dwFirstChance : DWORD;
end;
PEXCEPTION_DEBUG_INFO64 = ^EXCEPTION_DEBUG_INFO64;
_EXCEPTION_DEBUG_INFO64 = EXCEPTION_DEBUG_INFO64;
TExceptionDebugInfo64 = EXCEPTION_DEBUG_INFO64;
PExceptionDebugInfo64 = ^EXCEPTION_DEBUG_INFO64;
EXIT_PROCESS_DEBUG_INFO = record EXIT_PROCESS_DEBUG_INFO = record
dwExitCode : DWORD; dwExitCode : DWORD;
end; end;