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

FPGDBMIDebug: clean up

Browse Source 
git-svn-id: trunk@43984 -
This commit is contained in:
martin 2014-02-09 16:25:50 +00:00
parent 97060b5ede
commit 9bf7ff7e09
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
debugger/fpgdbmidebugger.pp
View File

@ -644,7 +644,6 @@ DebugLn(['######## '+ARequest.Request, ' ## FOUND: ', dbgs(Result)]);
PasExpr := nil; PasExpr := nil;
try try
if (ARequest.ReqType = gcrtPType) and (length(ARequest.Request) > 0) then begin if (ARequest.ReqType = gcrtPType) and (length(ARequest.Request) > 0) then begin
//DebugLn('######## '+ARequest.Request);
case ARequest.Request[1] of case ARequest.Request[1] of
'p': if copy(ARequest.Request, 1, 6) = 'ptype ' then 'p': if copy(ARequest.Request, 1, 6) = 'ptype ' then
IdentName := trim(copy(ARequest.Request, 7, length(ARequest.Request))); IdentName := trim(copy(ARequest.Request, 7, length(ARequest.Request)));
@ -657,23 +656,18 @@ DebugLn(['######## '+ARequest.Request, ' ## FOUND: ', dbgs(Result)]);
rt := nil; rt := nil;
if PasExpr.Valid and (PasExpr.ResultValue <> nil) then begin if PasExpr.Valid and (PasExpr.ResultValue <> nil) then begin
rt := PasExpr.ResultValue.DbgSymbol; // value or typecast rt := PasExpr.ResultValue.DbgSymbol; // value or typecast
//(* if rt <> nil then debugln(['@@@@@ ',rt.ClassName, ' ADDR=', rt.Address]);
if rt <> nil then begin DebugLn(['== VAL === ', PasExpr.ResultValue.AsInteger, ' / ', PasExpr.ResultValue.AsCardinal, ' / ', PasExpr.ResultValue.AsBool, ' / ', PasExpr.ResultValue.AsString, ' / ', PasExpr.ResultValue.MemberCount]);
debugln(['@@@@@ ',rt.ClassName]);
if (rt is TDbgDwarfValueIdentifier) then begin
DebugLn(['########### ', rt.Address ]);
end;
end;
if PasExpr.ResultValue <> nil then
DebugLn(['== VAL === ', PasExpr.ResultValue.AsInteger, ' / ', PasExpr.ResultValue.AsCardinal, ' / ', PasExpr.ResultValue.AsBool]);
//*)
if (rt <> nil) and (rt is TDbgDwarfValueIdentifier) then if (rt <> nil) and (rt is TDbgDwarfValueIdentifier) then
rt := rt.TypeInfo; rt := rt.TypeInfo;
if rt <> nil then begin if rt <> nil then begin
AddType(IdentName, rt); AddType(IdentName, rt);
Result := inherited IndexOf(AThreadId, AStackFrame, ARequest); Result := inherited IndexOf(AThreadId, AStackFrame, ARequest);
end; end;
end; end
else DebugLn(['NOT VALID ', PasExpr.DebugDump(True)])
;
end; end;
end; end;