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

FpDebugger (pure): Same change as in r46136 #4b8e6daa2f, but for step into, to avoid problems in fpc-generated debuginfo

Browse Source 
git-svn-id: trunk@46162 -
This commit is contained in:
joost 2014-09-08 19:44:13 +00:00
parent bc278b1845
commit bee90dd030
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgcontroller.pas
View File

@ -339,7 +339,7 @@ begin
// This because when stepping out of a procedure, the first asm-instruction
// could still be part of the instruction-line that made the call to the
// procedure in the first place.
if (FStoredStackFrame<AStackBasePointerValue)
if ((FStoredStackFrame<AStackBasePointerValue) or (FController.NextOnlyStopOnStartLine))
and not FController.FCurrentThread.IsAtStartOfLine then
begin
Finished:=false;