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

ide: reduce debug output

Browse Source 
git-svn-id: trunk@21346 -
This commit is contained in:
paul 2009-08-20 13:27:49 +00:00
parent 8300860867
commit b7d6bca23d
4 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/checklfmdlg.pas
View File

@ -184,7 +184,7 @@ var
end; end;
begin begin
DebugLn(['QuickCheckLFMBuffer LFMBuffer=',LFMBuffer.Filename]); //DebugLn(['QuickCheckLFMBuffer LFMBuffer=',LFMBuffer.Filename]);
LCLVersion:=''; LCLVersion:='';
MissingClasses:=nil; MissingClasses:=nil;

4
ide/customformeditor.pp
View File

@ -1831,7 +1831,9 @@ begin
Ancestor:=AnUnitInfo.Component; Ancestor:=AnUnitInfo.Component;
RootAncestor:=AnUnitInfo.Component; RootAncestor:=AnUnitInfo.Component;
end; end;
{$IFDEF VerboseFormEditor}
DebugLn(['TCustomFormEditor.WriterFindAncestor Component=',DbgSName(Component),' Ancestor=',DbgSName(Ancestor),' RootAncestor=',DbgSName(RootAncestor)]); DebugLn(['TCustomFormEditor.WriterFindAncestor Component=',DbgSName(Component),' Ancestor=',DbgSName(Ancestor),' RootAncestor=',DbgSName(RootAncestor)]);
{$ENDIF}
end; end;
end; end;
@ -2356,7 +2358,9 @@ begin
//DebugLn(['TCustomFormEditor.JITListFindAncestors Class=',DbgSName(AClass)]); //DebugLn(['TCustomFormEditor.JITListFindAncestors Class=',DbgSName(AClass)]);
AnUnitInfo:=Project1.UnitWithComponentClass(TComponentClass(AClass)); AnUnitInfo:=Project1.UnitWithComponentClass(TComponentClass(AClass));
while AnUnitInfo<>nil do begin while AnUnitInfo<>nil do begin
{$IFDEF VerboseFormEditor}
DebugLn(['TCustomFormEditor.JITListFindAncestors FOUND ancestor ',DbgSName(AnUnitInfo.Component),', streaming ...']); DebugLn(['TCustomFormEditor.JITListFindAncestors FOUND ancestor ',DbgSName(AnUnitInfo.Component),', streaming ...']);
{$ENDIF}
Ancestor:=AnUnitInfo.Component; Ancestor:=AnUnitInfo.Component;
BinStream:=nil; BinStream:=nil;
if SaveUnitComponentToBinStream(AnUnitInfo,BinStream)<>mrOk then begin if SaveUnitComponentToBinStream(AnUnitInfo,BinStream)<>mrOk then begin

5
ide/main.pp
View File

@ -5540,7 +5540,9 @@ var
NestedClass: TComponentClass; NestedClass: TComponentClass;
NestedUnitInfo: TUnitInfo; NestedUnitInfo: TUnitInfo;
begin begin
{$IFDEF IDE_DEBUG}
debugln('TMainIDE.DoLoadLFM A ',AnUnitInfo.Filename,' IsPartOfProject=',dbgs(AnUnitInfo.IsPartOfProject),' '); debugln('TMainIDE.DoLoadLFM A ',AnUnitInfo.Filename,' IsPartOfProject=',dbgs(AnUnitInfo.IsPartOfProject),' ');
{$ENDIF}
ReferencesLocked:=false; ReferencesLocked:=false;
MissingClasses:=nil; MissingClasses:=nil;
@ -6236,8 +6238,9 @@ begin
AnUnitInfo.LoadingComponent:=true; AnUnitInfo.LoadingComponent:=true;
try try
// search component lfm // search component lfm
{$ifdef VerboseFormEditor}
debugln('TMainIDE.DoLoadComponentDependencyHidden ',AnUnitInfo.Filename,' AComponentClassName=',AComponentClassName,' AComponentClass=',dbgsName(AComponentClass)); debugln('TMainIDE.DoLoadComponentDependencyHidden ',AnUnitInfo.Filename,' AComponentClassName=',AComponentClassName,' AComponentClass=',dbgsName(AComponentClass));
{$endif}
// first search the resource of ComponentUnitInfo // first search the resource of ComponentUnitInfo
if ComponentUnitInfo<>nil then begin if ComponentUnitInfo<>nil then begin
if TryUnit(ComponentUnitInfo.Filename,Result,false) then exit; if TryUnit(ComponentUnitInfo.Filename,Result,false) then exit;

2
ide/project.pp
View File

@ -3729,7 +3729,9 @@ procedure TProject.UpdateUnitComponentDependencies;
begin begin
if AComponent<>AnUnitInfo.Component then begin if AComponent<>AnUnitInfo.Component then begin
ReferenceUnit:=UnitWithComponentClass(TComponentClass(AComponent.ClassType)); ReferenceUnit:=UnitWithComponentClass(TComponentClass(AComponent.ClassType));
{$ifdef VerboseFormEditor}
DebugLn(['Search UnitComponent=',DbgSName(AnUnitInfo.Component),' AComponent=',DbgSName(AComponent),' ReferenceUnit=',ReferenceUnit<>nil]); DebugLn(['Search UnitComponent=',DbgSName(AnUnitInfo.Component),' AComponent=',DbgSName(AComponent),' ReferenceUnit=',ReferenceUnit<>nil]);
{$endif}
if (ReferenceUnit<>nil) then begin if (ReferenceUnit<>nil) then begin
// component class references another unit // component class references another unit
{$IFDEF VerboseIDEMultiForm} {$IFDEF VerboseIDEMultiForm}