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

DBG: clean up

Browse Source 
git-svn-id: trunk@28980 -
This commit is contained in:
martin 2011-01-12 22:41:09 +00:00
parent a3107caf22
commit 5aefc8ac47
1 changed files with 0 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
debugger/gdbmidebugger.pp
View File

@ -8517,61 +8517,6 @@ begin
if Result.EvalError then begin
FreeAndNil(Result);
end;
(*
Result := nil;
WIExprValCln := '';
f := ExecuteCommand('whatis %s', [AExpression], WIExprRes);
if (WIExprRes.State = dsError) and (pos('msg="No symbol ', WIExprRes.Values) > 0)
then exit;
if f and (WIExprRes.State <> dsError)
then begin
WIExprVal := PCLenToString(ParseTypeFromGdb(WIExprRes.Values).Name);
WIExprValCln := WIExprVal;
while (WIExprValCln<>'') and (WIExprValCln[1] in ['^', '&']) do delete(WIExprValCln, 1, 1);
if (pos(' ', WIExprValCln) > 0) or (WIExprValCln = '') then begin
// TODO: if the next ptype fails, (e.g. for "bool"), we may not need to fall-back
if ExecuteCommand('ptype %s', [AExpression], PTypeRes) // can not ptype with spaces
and (PTypeRes.State <> dsError)
then begin
Result := TGdbType.CreateFromValues(PTypeRes.Values, WIExprRes.Values, '', tfClassIsPointer in TargetInfo^.TargetFlags);
exit;
end;
end
else begin
// TODO: if the next ptype fails, (e.g. for "bool"), we may not need to fall-back
if ExecuteCommand('ptype %s', [WIExprValCln], PTypeRes)
and (PTypeRes.State <> dsError)
then begin
WITypeValS2 := '';
if (Pos(' = class ', PTypeRes.Values) > 0)
and (tfClassIsPointer in TargetInfo^.TargetFlags) // ptype will give ^ for pointer-to-class or just class
and (pos('type = ^^', PTypeRes.Values) <= 0) // not known to be a pointer (not sure it ever happens)
and (WIExprVal[1] <> '^') // not known to be a pointer (not sure it ever happens)
and ExecuteCommand('whatis %s', [WIExprValCln], WITypeRes)
and (PTypeRes.State <> dsError)
then WITypeValS2 := WITypeRes.Values;
Result := TGdbType.CreateFromValues(PTypeRes.Values, WIExprRes.Values, WITypeValS2, tfClassIsPointer in TargetInfo^.TargetFlags);
exit;
end;
end;
end;
// try ptype on the value
if not ExecuteCommand('ptype %s', [AExpression], PTypeRes)
or (PTypeRes.State = dsError)
then begin
Result := nil;
end
else begin
Result := TGdbType.CreateFromValues(PTypeRes.Values, '', '', tfClassIsPointer in TargetInfo^.TargetFlags);
end;
*)
end;
function TGDBMIDebuggerCommand.GetClassName(const AClass: TDBGPtr): String;