paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 08:20:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Windows, debugln/dbgs include WOW64 names

Browse Source 
git-svn-id: trunk@61867 -
This commit is contained in:
martin 2019-09-12 15:33:14 +00:00
parent c9beb9dffe
commit 3fce95a1c2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgwinclasses.pas
View File

@ -244,8 +244,10 @@ begin
case AnDbgEvent.Exception.ExceptionRecord.ExceptionCode of
EXCEPTION_ACCESS_VIOLATION: Result := Result + ' EXCEPTION_ACCESS_VIOLATION';
EXCEPTION_BREAKPOINT: Result := Result + ' EXCEPTION_BREAKPOINT';
STATUS_WX86_BREAKPOINT: Result := Result + ' STATUS_WX86_BREAKPOINT';
EXCEPTION_DATATYPE_MISALIGNMENT: Result := Result + ' EXCEPTION_DATATYPE_MISALIGNMENT';
EXCEPTION_SINGLE_STEP: Result := Result + ' EXCEPTION_SINGLE_STEP';
STATUS_WX86_SINGLE_STEP: Result := Result + ' STATUS_WX86_SINGLE_STEP';
EXCEPTION_ARRAY_BOUNDS_EXCEEDED: Result := Result + ' EXCEPTION_ARRAY_BOUNDS_EXCEEDED';
EXCEPTION_FLT_DENORMAL_OPERAND: Result := Result + ' EXCEPTION_FLT_DENORMAL_OPERAND';
EXCEPTION_FLT_DIVIDE_BY_ZERO: Result := Result + ' EXCEPTION_FLT_DIVIDE_BY_ZERO';