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

FPGDBMIDebug: Value handling / more typecasts

Browse Source 
git-svn-id: trunk@43940 -
This commit is contained in:
martin 2014-02-07 13:17:32 +00:00
parent b90ff1c48b
commit e619a6f056
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/fpgdbmidebugger.pp
View File

@ -633,7 +633,6 @@ var
IdentName: String; IdentName: String;
PasExpr: TFpPascalExpression; PasExpr: TFpPascalExpression;
rt: TDbgSymbol; rt: TDbgSymbol;
Ctx: TDbgInfoAddressContext;
begin begin
Result := inherited IndexOf(AThreadId, AStackFrame, ARequest); Result := inherited IndexOf(AThreadId, AStackFrame, ARequest);
DebugLn(['######## '+ARequest.Request, ' ## FOUND: ', dbgs(Result)]); DebugLn(['######## '+ARequest.Request, ' ## FOUND: ', dbgs(Result)]);
@ -643,7 +642,6 @@ DebugLn(['######## '+ARequest.Request, ' ## FOUND: ', dbgs(Result)]);
FInIndexOf := True; FInIndexOf := True;
PasExpr := nil; PasExpr := nil;
Ctx := 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); //DebugLn('######## '+ARequest.Request);
@ -655,8 +653,7 @@ DebugLn(['######## '+ARequest.Request, ' ## FOUND: ', dbgs(Result)]);
end; end;
if IdentName <> '' then begin if IdentName <> '' then begin
Ctx := FDebugger.GetInfoContextForContext(AThreadId, AStackFrame); PasExpr := TFpPascalExpression.Create(IdentName, FDebugger.GetInfoContextForContext(AThreadId, AStackFrame));
PasExpr := TFpPascalExpression.Create(IdentName, Ctx);
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
@ -682,7 +679,6 @@ if PasExpr.ResultValue <> nil then
finally finally
PasExpr.Free; PasExpr.Free;
Ctx.Free;
FInIndexOf := False; FInIndexOf := False;
end; end;