fpdebug: Fixed compilation with verbose debugging

git-svn-id: https://svn.freepascal.org/svn/lazarus/trunk@58416 4005530d-fff6-0310-9dd1-cebe43e6787f
newpascal · Jun 26, 2018 · fedc18d · fedc18d
1 parent 350480b
commit fedc18d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/components/fpdebug/fpdbgcontroller.pas b/components/fpdebug/fpdbgcontroller.pas
@@ -761,9 +761,9 @@ procedure TDbgController.ProcessLoop;
     FPDEvent:=FCurrentProcess.ResolveDebugEvent(FCurrentThread);
     {$ifdef DBG_FPDEBUG_VERBOSE}
     log('Process stopped with event %s. IP=%s, SP=%s, BSP=%s.', [FPDEventNames[FPDEvent],
-                                                                FCurrentProcess.FormatAddress(FCurrentProcess.GetInstructionPointerRegisterValue),
-                                                                FCurrentProcess.FormatAddress(FCurrentProcess.GetStackPointerRegisterValue),
-                                                                FCurrentProcess.FormatAddress(FCurrentProcess.GetStackBasePointerRegisterValue)], dllDebug);
+                                                                FCurrentProcess.FormatAddress(FCurrentThread.GetInstructionPointerRegisterValue),
+                                                                FCurrentProcess.FormatAddress(FCurrentThread.GetStackPointerRegisterValue),
+                                                                FCurrentProcess.FormatAddress(FCurrentThread.GetStackBasePointerRegisterValue)], dllDebug);
     {$endif DBG_FPDEBUG_VERBOSE}
     if assigned(FCommand) then
       begin