paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 11:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove debug writelns

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-04 10:56:56 +02:00
parent 30e7bfb666
commit 88b5728d94
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-pdf/src/fppdfobjects.pp
View File

@ -1064,7 +1064,6 @@ end;
procedure TPDFPath.AddSegment(aSegment: TPDFPathSegment); procedure TPDFPath.AddSegment(aSegment: TPDFPathSegment);
begin begin
Writeln('Adding : ',aSegment.Description);
if (FCount=Length(FSegments)) then if (FCount=Length(FSegments)) then
SetLength(FSegments,Length(FSegments)+SegmentDelta); SetLength(FSegments,Length(FSegments)+SegmentDelta);
@ -1891,7 +1890,6 @@ Var
S : String; S : String;
begin begin
Writeln('Registering ',classname,' for command ',RegisterCommandName,' and type ',CommandType);
S:=RegisterCommandName; S:=RegisterCommandName;
If S<>'' then If S<>'' then
RegisterCommand(S,Self); RegisterCommand(S,Self);
@ -2126,10 +2124,6 @@ begin
begin begin
aParent:=TPDFIndirect(Obj); aParent:=TPDFIndirect(Obj);
Obj:=TPDFIndirect(aParent).ObjectDict; Obj:=TPDFIndirect(aParent).ObjectDict;
if assigned(Obj) then
Writeln('Indirect resource : ', TPDFDictionary(Obj).GetDescription)
else
Writeln('Indirect object ',aParent.ObjectID,'does not have a dict');
end; end;
end; end;
if Obj is TPDFDictionary then if Obj is TPDFDictionary then