paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 06:40:36 +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/tododlg.pas svneol=native#text/plain
ide/todolist.lfm svneol=native#text/plain ide/todolist.lfm svneol=native#text/plain
ide/todolist.lrs 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/transfermacros.pp svneol=native#text/pascal
ide/unitdependencies.lfm svneol=native#text/plain ide/unitdependencies.lfm svneol=native#text/plain
ide/unitdependencies.lrs svneol=native#text/pascal 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 begin
FCurrentDir := AppendPathDelim(Dir); FCurrentDir := AppendPathDelim(Dir);
FCurrentDir := FCurrentDir + GetAllFilesMask; FCurrentDir := FCurrentDir + GetAllFilesMask;
// writeln('FCurrentDir=' + FCurrentDir); // debugln('FCurrentDir=' + FCurrentDir);
try try
if SysUtils.FindFirst(FCurrentDir, faAnyFile, FileInfo)=0 then if SysUtils.FindFirst(FCurrentDir, faAnyFile, FileInfo)=0 then
begin begin

8
lcl/dynqueue.pas
View File

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

2
lcl/imagelistcache.pas
View File

@ -131,7 +131,7 @@ begin
Width := AWidth; Width := AWidth;
Height := AHeight; Height := AHeight;
{$IFDEF VerboseImageListCache} {$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 if (Width <> 16) and (Width <> 24) then
DumpStack; DumpStack;
{$ENDIF} {$ENDIF}

2
lcl/include/fileutil.inc
View File

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

4
lcl/include/font.inc
View File

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

2
lcl/include/menuitem.inc
View File

@ -85,7 +85,7 @@ end;
constructor TMenuItem.Create(TheOwner: TComponent); constructor TMenuItem.Create(TheOwner: TComponent);
begin begin
//DebugLn('TMenuItem.Create START TheOwner=',TheOwner.Name,':',TheOwner.ClassName); //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); Inherited Create(TheOwner);

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

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

6
lcl/lresources.pp
View File

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

4
packager/packagedefs.pas
View File

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

10
packager/packagesystem.pas
View File

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

4
packager/pkgmanager.pas
View File

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