paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 01:48:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

replaced writeln with debugln

Browse Source 
git-svn-id: trunk@13011 -
This commit is contained in:
mattias 2007-11-24 21:28:46 +00:00
parent 42edb792e6
commit dd735a4378
13 changed files with 23 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -2018,7 +2018,7 @@ ide/tododlg.lrs svneol=native#text/plain
ide/tododlg.pas svneol=native#text/plain
ide/todolist.lfm svneol=native#text/plain
ide/todolist.lrs svneol=native#text/plain
ide/todolist.pp svneol=native#text/pascal
ide/todolist.pas svneol=native#text/pascal
ide/transfermacros.pp svneol=native#text/pascal
ide/unitdependencies.lfm svneol=native#text/plain
ide/unitdependencies.lrs svneol=native#text/pascal

0
ide/todolist.pp → ide/todolist.pas
View File

2
lcl/dirsel.pas
View File

@ -82,7 +82,7 @@ begin
begin
FCurrentDir := AppendPathDelim(Dir);
FCurrentDir := FCurrentDir + GetAllFilesMask;
// writeln('FCurrentDir=' + FCurrentDir);
// debugln('FCurrentDir=' + FCurrentDir);
try
if SysUtils.FindFirst(FCurrentDir, faAnyFile, FileInfo)=0 then
begin

8
lcl/dynqueue.pas
View File

@ -443,12 +443,12 @@ var
DataCount: LongInt;
DataOffset: Integer;
begin
writeln('TDynamicDataQueue.WriteDebugReport FItemCapacity=',FItemCapacity,
debugln(['TDynamicDataQueue.WriteDebugReport FItemCapacity=',FItemCapacity,
' FTopIndex=',FTopIndex,' FTopItemSpace=',FTopItemSpace,
' FLastIndex=',FLastIndex,' FLastItemSpace=',FLastItemSpace,
' Size=',Size,
' MinimumBlockSize=',MinimumBlockSize,
' MaximumBlockSize=',MaximumBlockSize);
' MaximumBlockSize=',MaximumBlockSize]);
if FItems<>nil then begin
i:=FTopIndex;
repeat
@ -460,9 +460,9 @@ begin
end;
if i=FLastIndex then
dec(DataCount,FLastItemSpace);
writeln(i,' Item=',HexStr(PtrUInt(FItems[i]),8),' Size=',fItems[i]^.Size,' Start=',DataOffset,' Count=',DataCount);
debugln([i,' Item=',HexStr(PtrUInt(FItems[i]),8),' Size=',fItems[i]^.Size,' Start=',DataOffset,' Count=',DataCount]);
if WriteData then begin
writeln(dbgMemRange(PByte(@FItems[i]^.Data)+DataOffset,DataCount));
debugln(dbgMemRange(PByte(@FItems[i]^.Data)+DataOffset,DataCount));
end;
if i=FLastIndex then break;

2
lcl/imagelistcache.pas
View File

@ -131,7 +131,7 @@ begin
Width := AWidth;
Height := AHeight;
{$IFDEF VerboseImageListCache}
WriteLn('Creating new imagelist in cache for Width=',Width,' Height=', Height, ' Count = ', FImages.Count);
debugln('Creating new imagelist in cache for Width=',Width,' Height=', Height, ' Count = ', FImages.Count);
if (Width <> 16) and (Width <> 24) then
DumpStack;
{$ENDIF}

2
lcl/include/fileutil.inc
View File

@ -1265,7 +1265,7 @@ begin
then
continue;
if CompareText(FileInfo.Name,CurFile)=0 then begin
//writeln('FindDiskFilename ',FileInfo.Name,' ',CurFile);
//debugln('FindDiskFilename ',FileInfo.Name,' ',CurFile);
if FileInfo.Name=CurFile then begin
// file found, has already the correct name
AliasFile:='';

4
lcl/include/font.inc
View File

@ -30,10 +30,10 @@ type
function CompareLogFontAndNameWithResDesc(Key: PLogFontAndName; Desc: TFontHandleCacheDescriptor): integer;
begin
Result:=CompareStr(Key^.LongFontName,Desc.LongFontName);
//writeln('CompareLogFontAndNameWithResDesc A ',Key^.LongFontName,' ',Desc.LongFontName,' ',DbgS(Desc),' Result=',Result);
//debugln('CompareLogFontAndNameWithResDesc A ',Key^.LongFontName,' ',Desc.LongFontName,' ',DbgS(Desc),' Result=',Result);
if Result=0 then
Result:=CompareMemRange(@Key^.LogFont,@Desc.LogFont,SizeOf(Desc.LogFont));
//writeln('CompareLogFontAndNameWithResDesc END Result=',Result);
//debugln('CompareLogFontAndNameWithResDesc END Result=',Result);
end;
procedure TFontHandleCache.RemoveItem(Item: TResourceCacheItem);

2
lcl/include/menuitem.inc
View File

@ -85,7 +85,7 @@ end;
constructor TMenuItem.Create(TheOwner: TComponent);
begin
//DebugLn('TMenuItem.Create START TheOwner=',TheOwner.Name,':',TheOwner.ClassName);
//if not assigned (TheOwner) then writeln ('**SH: Warn: creating MenuItem with Owner = nil');
//if not assigned (TheOwner) then debugln ('**SH: Warn: creating MenuItem with Owner = nil');
Inherited Create(TheOwner);

2
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -1085,7 +1085,6 @@ begin
Result := gtk_editable_get_position(PGtkEditable(Entry))
else
Result := Min(AStart, AEnd);
WriteLn('SelStart = ', Result);
end;
end;
@ -1196,7 +1195,6 @@ begin
Start := GetSelStart(ACustomComboBox);
gtk_editable_select_region(PGtkEditable(Entry), Start, Start + NewLength);
end;
WriteLn('Setting Sel Bounds: ', Start, ' to ', NewLength);
end;
class procedure TGtk2WSCustomComboBox.SetItemIndex(

6
lcl/lresources.pp
View File

@ -4101,7 +4101,7 @@ var
i: Integer;
b: Byte;
begin
//writeln('TLRSObjectWriter.WriteInteger Value=',Value);
//debugln('TLRSObjectWriter.WriteInteger Value=',Value);
// Use the smallest possible integer type for the given value:
if (Value >= -128) and (Value <= 127) then
begin
@ -4484,13 +4484,13 @@ begin
ComponentSize:=AStream.Size;
WriteLRSInt64MB(AStream,ComponentSize);
LengthSize:=AStream.Size-ComponentSize;
//writeln('TCustomLazComponentQueue.ConvertComponentAsString ComponentSize=',ComponentSize,' LengthSize=',LengthSize);
//debugln('TCustomLazComponentQueue.ConvertComponentAsString ComponentSize=',ComponentSize,' LengthSize=',LengthSize);
SetLength(Result,AStream.Size);
// write size
AStream.Position:=ComponentSize;
AStream.Read(Result[1],LengthSize);
//writeln('TCustomLazComponentQueue.ConvertComponentAsString ',hexstr(ord(Result[1]),2),' ',hexstr(ord(Result[2]),2),' ',hexstr(ord(Result[3]),2),' ',hexstr(ord(Result[4]),2));
//debugln('TCustomLazComponentQueue.ConvertComponentAsString ',hexstr(ord(Result[1]),2),' ',hexstr(ord(Result[2]),2),' ',hexstr(ord(Result[3]),2),' ',hexstr(ord(Result[4]),2));
// write component
AStream.Position:=0;
AStream.Read(Result[LengthSize+1],ComponentSize);

4
packager/packagedefs.pas
View File

@ -2458,13 +2458,13 @@ begin
PkgFile:=Files[i];
PkgFile.AutoReferenceSourceDir:=true;
PkgFile.UpdateSourceDirectoryReference;
//writeln('TLazPackage.UpdateSourceDirectories A ',PkgFile.Filename,' ',
//debugln('TLazPackage.UpdateSourceDirectories A ',PkgFile.Filename,' ',
// ' ',PkgFileTypeNames[PkgFile.FileType],' ',PkgFile.Removed,
// ' HasPkg=',dbgs(PkgFile.LazPackage=Self),
// ' Need=',PkgFile.FSourceDirNeedReference,
// ' Is=',PkgFile.FSourceDirectoryReferenced);
end;
//writeln('TLazPackage.UpdateSourceDirectories B ',IDAsString,' ',FFiles.Count,' "',fSourceDirectories.CreateSearchPathFromAllFiles,'"');
//debugln('TLazPackage.UpdateSourceDirectories B ',IDAsString,' ',FFiles.Count,' "',fSourceDirectories.CreateSearchPathFromAllFiles,'"');
end;
procedure TLazPackage.VersionChanged(Sender: TObject);

10
packager/packagesystem.pas
View File

@ -2407,7 +2407,7 @@ var
begin
Result:=mrYes;
{$IFDEF VerbosePkgCompile}
writeln('TLazPackageGraph.CheckIfPackageNeedsCompilation A ',APackage.IDAsString);
debugln('TLazPackageGraph.CheckIfPackageNeedsCompilation A ',APackage.IDAsString);
{$ENDIF}
// check state file
@ -2477,7 +2477,7 @@ begin
end;
{$IFDEF VerbosePkgCompile}
writeln('TLazPackageGraph.CheckIfPackageNeedsCompilation END ',APackage.IDAsString);
debugln('TLazPackageGraph.CheckIfPackageNeedsCompilation END ',APackage.IDAsString);
{$ENDIF}
Result:=mrNo;
end;
@ -2490,7 +2490,7 @@ var
i: Integer;
begin
{$IFDEF VerbosePkgCompile}
writeln('TLazPackageGraph.CompileRequiredPackages A ');
debugln('TLazPackageGraph.CompileRequiredPackages A ');
{$ENDIF}
AutoPackages:=PackageGraph.GetAutoCompilationOrder(APackage,FirstDependency,
Policies);
@ -2510,7 +2510,7 @@ begin
end;
end;
{$IFDEF VerbosePkgCompile}
writeln('TLazPackageGraph.CompileRequiredPackages END ');
debugln('TLazPackageGraph.CompileRequiredPackages END ');
{$ENDIF}
Result:=mrOk;
end;
@ -2903,7 +2903,7 @@ var
NewShortenSrc: String;
begin
{$IFDEF VerbosePkgCompile}
writeln('TLazPackageGraph.SavePackageMainSource A');
debugln('TLazPackageGraph.SavePackageMainSource A');
{$ENDIF}
// check if package is ready for saving
OutputDir:=APackage.GetOutputDirectory;

4
packager/pkgmanager.pas
View File

@ -1413,7 +1413,7 @@ var
s: String;
begin
{$IFDEF VerbosePkgCompile}
writeln('TPkgManager.CheckPackageGraphForCompilation A');
debugln('TPkgManager.CheckPackageGraphForCompilation A');
{$ENDIF}
PathList:=nil;
try
@ -1506,7 +1506,7 @@ begin
end;
{$IFDEF VerbosePkgCompile}
writeln('TPkgManager.CheckPackageGraphForCompilation END');
debugln('TPkgManager.CheckPackageGraphForCompilation END');
{$ENDIF}
Result:=mrOk;
end;