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

DBG: Fixed issue with variables from parent-nested-frames showing with prefix "error:"

Browse Source 
git-svn-id: trunk@32437 -
This commit is contained in:
martin 2011-09-20 18:22:56 +00:00
parent 876951bceb
commit 1df02ca4fc
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
debugger/gdbmidebugger.pp
View File

@ -11349,43 +11349,50 @@ var
ResultList.Free;
if Result
then FixUpResult(AnExpression);
then begin
FixUpResult(AnExpression);
FValidity := ddsValid;
end;
end;
wdfChar:
begin
Result := PrepareExpr(AnExpression);
if not Result
then exit;
FValidity := ddsValid;
FTextValue := GetChar(AnExpression, []);
if LastExecResult.State = dsError
then FTextValue := '<error>';
then ParseLastError;
end;
wdfString:
begin
Result := PrepareExpr(AnExpression);
if not Result
then exit;
FValidity := ddsValid;
FTextValue := GetText(AnExpression, []); // GetText takes Addr
if LastExecResult.State = dsError
then FTextValue := '<error>';
then ParseLastError;
end;
wdfDecimal:
begin
Result := PrepareExpr(AnExpression, True);
if not Result
then exit;
FValidity := ddsValid;
FTextValue := IntToStr(Int64(GetPtrValue(AnExpression, [], True)));
if LastExecResult.State = dsError
then FTextValue := '<error>';
then ParseLastError;
end;
wdfUnsigned:
begin
Result := PrepareExpr(AnExpression, True);
if not Result
then exit;
FValidity := ddsValid;
FTextValue := IntToStr(GetPtrValue(AnExpression, [], True));
if LastExecResult.State = dsError
then FTextValue := '<error>';
then ParseLastError;
end;
//wdfFloat:
// begin
@ -11402,10 +11409,11 @@ var
if not Result
then exit;
FTextValue := IntToHex(GetPtrValue(AnExpression, [], True), 2);
FValidity := ddsValid;
if length(FTextValue) mod 2 = 1
then FTextValue := '0'+FTextValue; // make it an even number of digets
if LastExecResult.State = dsError
then FTextValue := '<error>';
then ParseLastError;
end;
wdfPointer:
begin
@ -11413,6 +11421,7 @@ var
if not Result
then exit;
FTextValue := PascalizePointer('0x' + IntToHex(GetPtrValue(AnExpression, [], True), TargetInfo^.TargetPtrSize*2));
FValidity := ddsValid;
if LastExecResult.State = dsError
then FTextValue := '<error>';
end;
@ -11440,6 +11449,7 @@ var
exit;
end;
MemDump := TGDBMIMemoryDumpResultList.Create(R);
FValidity := ddsValid;
FTextValue := MemDump.AsText(0, MemDump.Count, TargetInfo^.TargetPtrSize*2);
MemDump.Free;
end;
@ -11456,6 +11466,7 @@ var
if FTypeInfo.HasExprEvaluatedAsText then begin
FTextValue := FTypeInfo.ExprEvaluatedAsText;
FTextValue := DeleteEscapeChars(FTextValue);
FValidity := ddsValid;
Result := True;
FixUpResult(AnExpression, FTypeInfo);
exit;