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

DBG: Fix parsing certain error msgs

Browse Source 
git-svn-id: trunk@30795 -
This commit is contained in:
martin 2011-05-18 12:08:12 +00:00
parent 47eae4dc9c
commit d3019b5e88
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbmidebugger.pp
View File

@ -9328,8 +9328,10 @@ begin
AReq^.Result.Kind := ptprkSimple;
end;
end
else
else begin
AReq^.Result.GdbDescription := R.Values;
AReq^.Error := R.Values;
end;
AReq := AReq^.Next;
end;
end;

3
debugger/gdbtypeinfo.pp
View File

@ -1318,7 +1318,7 @@ var
ResultList: TGDBMINameValueList;
begin
ResultList := TGDBMINameValueList.Create(AGdbDesc);
FExprEvaluatedAsText := ResultList.Values['value'];
FExprEvaluatedAsText := ResultList.Values[AField];
FHasExprEvaluatedAsText := True;
//FTextValue := DeleteEscapeChars(FTextValue);
ResultList.Free;
@ -1359,6 +1359,7 @@ var
exit;
end;
// TODO: set Validity = error
ParseFromResult(FReqResults[gptrEvalExpr].Result.GdbDescription, 'msg');
Result := True;
end;