paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:16:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Replace const string arrays with RTTI value and WriteStr()

Browse Source 
git-svn-id: trunk@34756 -
This commit is contained in:
juha 2012-01-15 23:50:22 +00:00
parent 4c70795d75
commit c3637f3879
1 changed files with 3 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
debugger/gdbmidebugger.pp
View File

@ -8999,50 +8999,16 @@ end;
function TGDBMIExpression.DumpExpression: String;
// Mainly used for debugging purposes
const
OPERATOR_TEXT: array[TDBGExpressionOperator] of string = (
'eoNone',
'eoNegate',
'eoPlus',
'eoSubstract',
'eoAdd',
'eoMultiply',
'eoPower',
'eoDivide',
'eoDereference',
'eoAddress',
'eoEqual',
'eoLess',
'eoLessOrEqual',
'eoGreater',
'eoGreaterOrEqual',
'eoNotEqual',
'eoIn',
'eoIs',
'eoAs',
'eoDot',
'eoComma',
'eoBracket',
'eoIndex',
'eoClose',
'eoAnd',
'eoOr',
'eoMod',
'eoNot',
'eoDiv',
'eoXor',
'eoShl',
'eoShr'
);
var
Sub: PGDBMISubExpression;
s: string;
begin
Result := '';
Sub := FList;
while Sub <> nil do
begin
Result := Result + Sub^.Operand + ' ' + OPERATOR_TEXT[Sub^.Opertor] + ' ';
WriteStr(s, Sub^.Opertor);
Result := Result + Sub^.Operand + ' ' + s + ' ';
Sub := Sub^.Next;
end;
end;