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

+ Added acces violation reasons

Browse Source 
git-svn-id: trunk@5168 -
This commit is contained in:
Marc Weustink 2006-11-02 01:37:59 +00:00
parent ab9936a1ce
commit 53e7596e3d
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/win/wininc/defines.inc
View File

@ -5391,6 +5391,16 @@ Const
#endif #endif
*) *)
const
EXCEPTION_READ_FAULT = 0; // Access violation was caused by a read
EXCEPTION_WRITE_FAULT = 1; // Access violation was caused by a write
{$ifdef cpuia64}
EXCEPTION_EXECUTE_FAULT = 2; // Access violation was caused by an instruction fetch
{$else}
EXCEPTION_EXECUTE_FAULT = 8;
{$endif}
{$ifdef cpupowerpc32} {$ifdef cpupowerpc32}
{ ppc } { ppc }
const const