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

codetools: less verbosity

Browse Source 
git-svn-id: trunk@46901 -
This commit is contained in:
mattias 2014-11-20 13:16:52 +00:00
parent 17edf49202
commit 11db85beb6
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/ccodeparsertool.pas
View File

@ -677,7 +677,9 @@ var
IncludeParam:=copy(IncludeParam,2,length(IncludeParam)-2); IncludeParam:=copy(IncludeParam,2,length(IncludeParam)-2);
if IncludeParam<>'' then begin if IncludeParam<>'' then begin
// for example: glib/gutils.h // for example: glib/gutils.h
{$IFDEF VerboseCCodeParser}
debugln(['TCHeaderFileMerger.Merge Param=',IncludeParam]); debugln(['TCHeaderFileMerger.Merge Param=',IncludeParam]);
{$ENDIF}
// search file in list // search file in list
for j:=1 to SourceBuffers.Count-1 do begin for j:=1 to SourceBuffers.Count-1 do begin
IncCode:=TCodeBuffer(SourceBuffers[j]); IncCode:=TCodeBuffer(SourceBuffers[j]);
@ -689,7 +691,9 @@ var
then begin then begin
// include file found // include file found
if MergedBuffers.IndexOf(IncCode)<0 then begin if MergedBuffers.IndexOf(IncCode)<0 then begin
{$IFDEF VerboseCCodeParser}
debugln(['TCHeaderFileMerger.Merge file '+IncFilename+' into '+Code.Filename]); debugln(['TCHeaderFileMerger.Merge file '+IncFilename+' into '+Code.Filename]);
{$ENDIF}
Append(Code,MergePos,Code.GetLineStart(i)); Append(Code,MergePos,Code.GetLineStart(i));
MergePos:=Code.GetLineStart(i+1); MergePos:=Code.GetLineStart(i+1);
Append('/* h2pas: merged '+IncludeParam+' into '+ExtractFileName(Code.Filename)+' */'+LineEnding); Append('/* h2pas: merged '+IncludeParam+' into '+ExtractFileName(Code.Filename)+' */'+LineEnding);