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

FpDebugServer: Fixed possible AV on commands that are executed without a process being running

Browse Source 
git-svn-id: trunk@49269 -
This commit is contained in:
joost 2015-06-04 19:26:47 +00:00
parent f504e38ee7
commit d5bcf79820
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/fpdebug/app/fpdserver/debugthreadcommand.pas
View File

@ -229,6 +229,14 @@ var
ThreadCallStack: TDbgCallstackEntryList;
i: integer;
begin
result := false;
DoProcessLoop:=false;
if not assigned(AController.CurrentProcess) then
begin
log('Failed to get call stack: No process', dllInfo);
exit;
end;
AController.CurrentProcess.MainThread.PrepareCallStackEntryList;
ThreadCallStack := AController.CurrentProcess.MainThread.CallStackEntryList;
SetLength(FStackEntryArray, ThreadCallStack.Count);
@ -244,7 +252,6 @@ begin
// cumbersome. And the chances that this command is called twice, so that
// caching the result is usefull, are slim.
AController.CurrentProcess.MainThread.ClearCallStack;
DoProcessLoop:=false;
result := true;
end;
@ -281,6 +288,12 @@ var
begin
Result := False;
DoProcessLoop:=false;
if not assigned(AController.CurrentProcess) then
begin
log('Failed to evaluate expression: No process', dllInfo);
exit;
end;
ADbgInfo := AController.CurrentProcess.DbgInfo;
AContext := ADbgInfo.FindContext(AController.CurrentThread.ID, 0, AController.CurrentProcess.GetInstructionPointerRegisterValue);
if AContext = nil then
@ -496,7 +509,13 @@ var
begin
DoProcessLoop:=false;
result := false;
if Assigned(AController.CurrentProcess) then
if not assigned(AController.CurrentProcess) then
begin
log('Failed to get location info: No process', dllInfo);
exit;
end
else
begin
FLocationRec.FuncName:='';
FLocationRec.SrcFile:='';