paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 20:47:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Moved TExceptionRecord definition to sysos.inc, it is identical for all Windows targets.

Browse Source 
git-svn-id: trunk@19868 -
This commit is contained in:
sergei 2011-12-18 00:45:52 +00:00
parent 009ee271ec
commit ebb2205c63
5 changed files with 13 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/win/sysos.inc
View File

@ -106,6 +106,8 @@ const
ERROR_DIR_NOT_EMPTY = 145;
ERROR_ALREADY_EXISTS = 183;
EXCEPTION_MAXIMUM_PARAMETERS = 15;
type
{UINT = longint;
BOOL = longint; obsolete }
@ -173,6 +175,17 @@ type
flags : dword;
end;
PExceptionRecord = ^TExceptionRecord;
TExceptionRecord = record
ExceptionCode : cardinal;
ExceptionFlags : cardinal;
ExceptionRecord : PExceptionRecord;
ExceptionAddress : Pointer;
NumberParameters : Longint;
ExceptionInformation : array[0..EXCEPTION_MAXIMUM_PARAMETERS-1] of Pointer;
end;
threadvar
errno : longint;

2
rtl/win/syswin.inc
View File

@ -85,8 +85,6 @@ const
EXCEPTION_CONTINUE_EXECUTION = -1;
EXCEPTION_CONTINUE_SEARCH = 0;
EXCEPTION_MAXIMUM_PARAMETERS = 15;
CONTEXT_X86 = $00010000;
CONTEXT_CONTROL = CONTEXT_X86 or $00000001;
CONTEXT_INTEGER = CONTEXT_X86 or $00000002;

10
rtl/win32/system.pp
View File

@ -339,16 +339,6 @@ type
ExtendedRegisters : array[0..MAXIMUM_SUPPORTED_EXTENSION-1] of Byte;
end;
type
PExceptionRecord = ^TExceptionRecord;
TExceptionRecord = packed record
ExceptionCode : cardinal;
ExceptionFlags : Longint;
ExceptionRecord : PExceptionRecord;
ExceptionAddress : Pointer;
NumberParameters : Longint;
ExceptionInformation : array[0..EXCEPTION_MAXIMUM_PARAMETERS-1] of Pointer;
end;
PExceptionPointers = ^TExceptionPointers;
TExceptionPointers = packed record

10
rtl/win64/system.pp
View File

@ -338,16 +338,6 @@ type
end;
type
PExceptionRecord = ^TExceptionRecord;
TExceptionRecord = record
ExceptionCode : DWord;
ExceptionFlags : DWord;
ExceptionRecord : PExceptionRecord;
ExceptionAddress : Pointer;
NumberParameters : DWord;
ExceptionInformation : array[0..EXCEPTION_MAXIMUM_PARAMETERS-1] of Pointer;
end;
PExceptionPointers = ^TExceptionPointers;
TExceptionPointers = packed record
ExceptionRecord : PExceptionRecord;

13
rtl/wince/system.pp
View File

@ -981,8 +981,6 @@ const
CONTEXT_FULL = CONTEXT_CONTROL or CONTEXT_INTEGER or CONTEXT_SEGMENTS;
EXCEPTION_MAXIMUM_PARAMETERS = 15;
NUM_VFP_REGS = 32;
NUM_EXTRA_CONTROL_REGS = 8;
@ -1030,7 +1028,6 @@ const
CONTEXT_EXTENDED_REGISTERS = CONTEXT_X86 or $00000020;
MAXIMUM_SUPPORTED_EXTENSION = 512;
EXCEPTION_MAXIMUM_PARAMETERS = 15;
type
PFloatingSaveArea = ^TFloatingSaveArea;
@ -1101,16 +1098,6 @@ type
{$endif CPUI386}
type
PExceptionRecord = ^TExceptionRecord;
TExceptionRecord = packed record
ExceptionCode : Longint;
ExceptionFlags : Longint;
ExceptionRecord : PExceptionRecord;
ExceptionAddress : Pointer;
NumberParameters : Longint;
ExceptionInformation : array[0..EXCEPTION_MAXIMUM_PARAMETERS-1] of Pointer;
end;
PExceptionPointers = ^TExceptionPointers;
TExceptionPointers = packed record
ExceptionRecord : PExceptionRecord;