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

codetools: added debugging

Browse Source 
git-svn-id: trunk@21655 -
This commit is contained in:
mattias 2009-09-11 21:23:53 +00:00
parent 69adb869d5
commit 6120ad89ba
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/eventcodetool.pas
View File

@ -885,7 +885,7 @@ begin
if TypeData=nil then exit(true);
ParamCount:=TypeData^.ParamCount;
{$IFDEF VerboseTypeData}
DebugLn('[TEventsCodeTool.CreateExprListFromMethodTypeData] ParamCount=',ParamCount);
DebugLn(['[TEventsCodeTool.CreateExprListFromMethodTypeData] ParamCount=',ParamCount]);
{$ENDIF}
if ParamCount>0 then begin
Offset:=0;

2
components/codetools/finddeclarationtool.pas
View File

@ -9449,7 +9449,7 @@ var i: integer;
begin
Result:='';
for i:=0 to Count-1 do begin
Result:=Result+'{'+ExprTypeToString(Items[i])+'}'+LineEnding;
Result:=Result+'{'+IntToStr(i)+'/'+IntToStr(Count)+':'+ExprTypeToString(Items[i])+'}'+LineEnding;
end;
end;