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

DBG: Avoid reading stack when exe has stopped

Browse Source 
git-svn-id: trunk@37487 -
This commit is contained in:
martin 2012-06-02 19:56:16 +00:00
parent 4d0137d86b
commit eccbedf9b1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/gdbmidebugger.pp
View File

@ -4866,7 +4866,9 @@ begin
FTheDebugger.FInternalStackFrame := 0; FTheDebugger.FInternalStackFrame := 0;
FTheDebugger.FCurrentThreadId := StrToIntDef(List.Values['thread-id'], -1); FTheDebugger.FCurrentThreadId := StrToIntDef(List.Values['thread-id'], -1);
FTheDebugger.FInternalThreadId := FTheDebugger.FCurrentThreadId; FTheDebugger.FInternalThreadId := FTheDebugger.FCurrentThreadId;
FTheDebugger.FCurrentLocation := FrameToLocation(List.Values['frame']); FTheDebugger.FCurrentLocation.Address := 0;
FTheDebugger.FCurrentLocation.SrcFile := '';
FTheDebugger.FCurrentLocation.SrcFullName := '';
try try
Reason := List.Values['reason']; Reason := List.Values['reason'];
@ -4893,6 +4895,9 @@ begin
Exit; Exit;
end; end;
// not stopped? Then we should have a location
FTheDebugger.FCurrentLocation := FrameToLocation(List.Values['frame']);
if Reason = 'signal-received' if Reason = 'signal-received'
then begin then begin
ProcessSignalReceived(List); ProcessSignalReceived(List);