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

IDE: debugger: clean up

Browse Source 
git-svn-id: trunk@19425 -
This commit is contained in:
mattias 2009-04-14 08:12:55 +00:00
parent a0db3fa48c
commit ee4c6ee66b
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/gdbmidebugger.pp
View File

@ -4028,7 +4028,6 @@ var
function CheckOperator(const AOperator: String): Boolean;
var
S: String;
len: Integer;
begin
len := Length(AOperator);
@ -4406,11 +4405,7 @@ end;
function TGDBMIExpression.Evaluate(const ADebugger: TGDBMIDebugger; const AText: String; out AResult: String; out AResultInfo: TGDBType): Boolean;
var
R: TGDBMIExecResult;
S: String;
ResultList: TGDBMINameValueList;
ResultInfo: TGDBType;
addr: TDbgPtr;
e: Integer;
begin
// special cases
if ATExt = ''
@ -4641,7 +4636,7 @@ end;
function TGDBMIExpression.SolveDot(const ADebugger: TGDBMIDebugger; ALeft: PGDBMIExpressionResult; const ARight: String; out AValue: String; out AInfo: TGDBType): Boolean;
var
Eval, Prefix: String;
Prefix: String;
begin
if not (ALeft^.Info.Kind in [skClass, skRecord]) then Exit(False);