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

Debugger: do not search source frame, if doing asm-single-steps

Browse Source
This commit is contained in:
Martin 2023-11-28 01:29:59 +01:00
parent 476cfd4484
commit 55475340ca
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/debugmanager.pas
View File

@ -1624,6 +1624,7 @@ begin
SrcLine := FCurrentLocation.SrcLine; SrcLine := FCurrentLocation.SrcLine;
if (SrcLine < 1) and (SrcLine <> -2) // TODO: this should move to the debugger if (SrcLine < 1) and (SrcLine <> -2) // TODO: this should move to the debugger
// SrcLine will be -2 after stepping (gdbmi) // SrcLine will be -2 after stepping (gdbmi)
and not FAsmStepping
then begin then begin
TId := Threads.CurrentThreads.CurrentThreadId; TId := Threads.CurrentThreads.CurrentThreadId;
if CallStack.CurrentCallStackList.EntriesForThreads[TId].HasAtLeastCount(30) = nbUnknown then begin if CallStack.CurrentCallStackList.EntriesForThreads[TId].HasAtLeastCount(30) = nbUnknown then begin
@ -1670,6 +1671,7 @@ begin
if (SrcLine < 1) and (SrcLine <> -2) // TODO: this should move to the debugger if (SrcLine < 1) and (SrcLine <> -2) // TODO: this should move to the debugger
// SrcLine will be -2 after stepping (gdbmi) // SrcLine will be -2 after stepping (gdbmi)
and not FAsmStepping
then begin then begin
// jump to the deepest stack frame with debugging info // jump to the deepest stack frame with debugging info
// TODO: Only below the frame supplied by debugger // TODO: Only below the frame supplied by debugger