paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Minor fixes to $ifdef writeln's I had lying around.

Browse Source 
git-svn-id: trunk@13268 -
This commit is contained in:
marco 2009-06-12 21:09:20 +00:00
parent c00204c1b3
commit 1d5758b29d
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/chm/src/chmreader.pas
View File

@ -241,6 +241,7 @@ begin
{$IFDEF CHM_DEBUG}
WriteLn('PMGI depth = ', fDirectoryHeader.IndexTreeDepth);
WriteLn('PMGI Root = ', fDirectoryHeader.IndexOfRootChunk);
Writeln('DirCount = ', fDirectoryHeader.DirectoryChunkCount);
{$ENDIF}
fDirectoryEntriesStartPos := fStream.Position;
fDirectoryHeaderLength := LEtoN(fHeaderEntries[1].Length);

20
packages/fcl-xml/src/sax_html.pp
View File

@ -505,14 +505,20 @@ var
Element: TDOMElement;
i: Integer;
begin
// WriteLn('Start: ', LocalName, '. Node buffer before: ', FNodeBuffer.Count, ' elements');
{$ifdef SAX_HTML_DEBUG}
WriteLn('Start: ', LocalName, '. Node buffer before: ', FNodeBuffer.Count, ' elements');
{$endif}
Element := FDocument.CreateElement(LocalName);
if Assigned(Attr) then
begin
// WriteLn('Attribute: ', Attr.GetLength);
{$ifdef SAX_HTML_DEBUG}
WriteLn('Attribute: ', Attr.GetLength);
{$endif}
for i := 0 to Attr.GetLength - 1 do
begin
// WriteLn('#', i, ': LocalName = ', Attr.GetLocalName(i), ', Value = ', Attr.GetValue(i));
{$ifdef SAX_HTML_DEBUG}
WriteLn('#', i, ': LocalName = ', Attr.GetLocalName(i), ', Value = ', Attr.GetValue(i));
{$endif}
Element[Attr.GetLocalName(i)] := Attr.GetValue(i);
end;
end;
@ -531,7 +537,9 @@ begin
if not Assigned(FDocument.DocumentElement) then
FDocument.AppendChild(Element);
FNodeBuffer.Add(NodeInfo);
// WriteLn('Start: ', LocalName, '. Node buffer after: ', FNodeBuffer.Count, ' elements');
{$ifdef SAX_HTML_DEBUG}
WriteLn('Start: ', LocalName, '. Node buffer after: ', FNodeBuffer.Count, ' elements');
{$endif}
end;
procedure THTMLToDOMConverter.ReaderEndElement(Sender: TObject;
@ -543,7 +551,9 @@ var
TagInfo: PHTMLElementProps;
begin
// WriteLn('End: ', LocalName, '. Node buffer: ', FNodeBuffer.Count, ' elements');
{$ifdef SAX_HTML_DEBUG}
WriteLn('End: ', LocalName, '. Node buffer: ', FNodeBuffer.Count, ' elements');
{$endif}
// Find the matching start tag
i := FNodeBuffer.Count - 1;
while i >= 0 do