From d52110350176278ec97d376a1a0a600e303269b8 Mon Sep 17 00:00:00 2001
From: joost <joost@lazarus-ide.org>
Date: Fri, 11 Apr 2014 09:34:49 +0000
Subject: [PATCH] LazDebuggerFp (pure): Return the correct value of the
 instruction-pointer after a breakpoint has been reached. (Windows)

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

diff --git a/components/fpdebug/fpdbgwinclasses.pas b/components/fpdebug/fpdbgwinclasses.pas
index f51f2dd9ac..db0b16a0c2 100644
--- a/components/fpdebug/fpdbgwinclasses.pas
+++ b/components/fpdebug/fpdbgwinclasses.pas
@@ -1017,6 +1017,7 @@ begin
   Context^.ContextFlags := CONTEXT_CONTROL;
   {$ifdef cpui386}
   Dec(Context^.Eip);
+  dec(GCurrentContext^.Eip);
   {$else}
   Dec(Context^.Rip);
   {$endif}