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

FpGdbmiDebugger: Don't defer skNone to GDB. gdb may crash, and fpdebug may have some data. Issue

Browse Source 
git-svn-id: trunk@61133 -
This commit is contained in:
martin 2019-05-03 21:24:59 +00:00
parent ef247de448
commit 677180e6e5
1 changed files with 20 additions and 26 deletions

46
components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
View File

@ -1072,34 +1072,28 @@ DebugLn(DBG_VERBOSE, [ErrorHandler.ErrorAsString(PasExpr.Error)]);
end;
end;
case ResValue.Kind of
skNone: begin
// maybe type
TiSym := ResValue.DbgSymbol;
if (TiSym <> nil) and (TiSym.SymbolType = stType) then begin
if GetTypeAsDeclaration(AResText, TiSym) then
AResText := Format('{Type=} %1s', [AResText])
else
if GetTypeName(AResText, TiSym) then
AResText := Format('{Type=} %1s', [AResText])
else
AResText := '{Type=} unknown';
Result := True;
if AWatchValue <> nil then begin
if not IsWatchValueAlive then exit;
AWatchValue.Value := AResText;
AWatchValue.Validity := ddsValid; // TODO ddsError ?
end;
exit;
end;
end;
TiSym := ResValue.DbgSymbol;
if (ResValue.Kind = skNone) and (TiSym <> nil) and (TiSym.SymbolType = stType) then begin
if GetTypeAsDeclaration(AResText, TiSym) then
AResText := Format('{Type=} %1s', [AResText])
else
begin
if defNoTypeInfo in EvalFlags then
FPrettyPrinter.PrintValue(AResText, ResValue, DispFormat, RepeatCnt)
else
FPrettyPrinter.PrintValue(AResText, ATypeInfo, ResValue, DispFormat, RepeatCnt);
if GetTypeName(AResText, TiSym) then
AResText := Format('{Type=} %1s', [AResText])
else
AResText := '{Type=} unknown';
Result := True;
if AWatchValue <> nil then begin
if not IsWatchValueAlive then exit;
AWatchValue.Value := AResText;
AWatchValue.Validity := ddsValid; // TODO ddsError ?
end;
exit;
end
else begin
if defNoTypeInfo in EvalFlags then
FPrettyPrinter.PrintValue(AResText, ResValue, DispFormat, RepeatCnt)
else
FPrettyPrinter.PrintValue(AResText, ATypeInfo, ResValue, DispFormat, RepeatCnt);
end;
if not IsWatchValueAlive then exit;