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

codetools: debugging

Browse Source 
git-svn-id: trunk@25111 -
This commit is contained in:
mattias 2010-05-01 18:09:10 +00:00
parent 7f60a27900
commit b226bae7a4
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/finddeclarationtool.pas
View File

@ -6876,8 +6876,8 @@ var
begin begin
{$IFDEF CheckNodeTool}CheckNodeTool(Node);{$ENDIF} {$IFDEF CheckNodeTool}CheckNodeTool(Node);{$ENDIF}
{$IFDEF ShowExprEval} {$IFDEF ShowExprEval}
DebugLn('[TFindDeclarationTool.ConvertNodeToExpressionType] A', DebugLn(['[TFindDeclarationTool.ConvertNodeToExpressionType] A',
' Node=',Node.DescAsString); ' Node=',Node.DescAsString,' "',dbgstr(copy(ExtractNode(Node,[]),1,30)),'"']);
{$ENDIF} {$ENDIF}
BaseContext:=FindBaseTypeOfNode(Params,Node); BaseContext:=FindBaseTypeOfNode(Params,Node);
Node:=BaseContext.Node; Node:=BaseContext.Node;
@ -6966,6 +6966,11 @@ begin
Result.Context:=CreateFindContext(Self,Node); Result.Context:=CreateFindContext(Self,Node);
end; end;
end; end;
{$IFDEF ShowExprEval}
DebugLn('[TFindDeclarationTool.ConvertNodeToExpressionType] END',
' Expr=',ExprTypeToString(Result));
{$ENDIF}
end; end;
function TFindDeclarationTool.ReadOperandTypeAtCursor( function TFindDeclarationTool.ReadOperandTypeAtCursor(