From 3fce95a1c2d432af3c73057d58c849660eadc99d Mon Sep 17 00:00:00 2001 From: martin Date: Thu, 12 Sep 2019 15:33:14 +0000 Subject: [PATCH] FpDebug: Windows, debugln/dbgs include WOW64 names git-svn-id: trunk@61867 - --- components/fpdebug/fpdbgwinclasses.pas | 2 ++ 1 file changed, 2 insertions(+) diff --git a/components/fpdebug/fpdbgwinclasses.pas b/components/fpdebug/fpdbgwinclasses.pas index fc6e01b9f9..b905beb360 100644 --- a/components/fpdebug/fpdbgwinclasses.pas +++ b/components/fpdebug/fpdbgwinclasses.pas @@ -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';