mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-16 17:28:15 +02:00
codetools: less verbosity
git-svn-id: trunk@46901 -
This commit is contained in:
parent
17edf49202
commit
11db85beb6
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user