From 3937a88b0fa1ae76b02fe10d8dba81ccc27ef7f0 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 7 Apr 2014 16:57:59 +0000
Subject: [PATCH] LazDebuggerFp (pure): do not crash range check

git-svn-id: trunk@44636 -
---
 components/fpdebug/fpdbgwinclasses.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/fpdebug/fpdbgwinclasses.pas b/components/fpdebug/fpdbgwinclasses.pas
index 4fabcdf2e1..ee1b261274 100644
--- a/components/fpdebug/fpdbgwinclasses.pas
+++ b/components/fpdebug/fpdbgwinclasses.pas
@@ -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);