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

LazDebuggerFp (pure): do not crash range check

Browse Source 
git-svn-id: trunk@44636 -
This commit is contained in:
martin 2014-04-07 16:57:59 +00:00
parent 8536f38448
commit 3937a88b0f
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

@ -638,6 +638,7 @@ function TDbgWinProcess.ResolveDebugEvent(AThread: TDbgThread): TFPDEvent;
if AThread = nil then Exit;
{$PUSH}{$R-}
{$ifdef cpui386}
with GCurrentContext^ do DebugLn(Format('DS: 0x%x, ES: 0x%x, FS: 0x%x, GS: 0x%x', [SegDs, SegEs, SegFs, SegGs]));
with GCurrentContext^ do DebugLn(Format('EAX: 0x%x, EBX: 0x%x, ECX: 0x%x, EDX: 0x%x, EDI: 0x%x, ESI: 0x%x', [Eax, Ebx, Ecx, Edx, Edi, Esi]));
@ -707,6 +708,7 @@ function TDbgWinProcess.ResolveDebugEvent(AThread: TDbgThread): TFPDEvent;
DebugLn(']');
end;
DebugLn('---');
{$POP}
end;
procedure HandleLoadDll(const AEvent: TDebugEvent);