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

FPGDBMIDebugger: fix function result uninitialized

Browse Source 
git-svn-id: trunk@44162 -
This commit is contained in:
martin 2014-02-19 05:19:29 +00:00
parent 7747f7520f
commit 2582ab15ce
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazdebuggerfp/fpgdbmidebugger.pp
View File

@ -181,6 +181,7 @@ function TFpGDBMIDebuggerCommandEvaluate.DoExecute: Boolean;
begin
FOwner.FEvaluationCmdObj := nil;
FOwner.ProcessEvalList;
Result := True;
end;
procedure TFpGDBMIDebuggerCommandEvaluate.DoFree;
@ -902,8 +903,8 @@ begin
if not FpDebugger.EvaluateExpression(WatchValue, WatchValue.Expression, ResText, ResTypeInfo)
then begin
debugln(['TFPGDBMIWatches.InternalRequestData FAILED']);
inherited InternalRequestData(WatchValue);
continue;
if IsWatchValueAlive then
inherited InternalRequestData(WatchValue);
end;
finally
if IsWatchValueAlive then begin
@ -1057,8 +1058,10 @@ begin
for i := 0 to MAX_CTX_CACHE-1 do
ReleaseRefAndNil(FLastContext[i]);
if not(State in [dsPause, dsInternalPause]) then begin
for i := 0 to FWatchEvalList.Count - 1 do
for i := 0 to FWatchEvalList.Count - 1 do begin
TWatchValueBase(FWatchEvalList[i]).RemoveFreeeNotification(@DoWatchFreed);
//TWatchValueBase(FWatchEvalList[i]).Validity := ddsInvalid;
end;
FWatchEvalList.Clear;
end;
end;
@ -1208,6 +1211,10 @@ function TFpGDBMIDebugger.GetInfoContextForContext(AThreadId,
var
Addr: TDBGPtr;
begin
Result := nil;
if FDwarfInfo = nil then
exit;
if (AThreadId <= 0) then begin
GetCurrentContext(AThreadId, AStackFrame);
end;