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

* Debugging output is now enabled when the symbol "XMLRPCDebug" exists,

Browse Source 
and not generally when compiled in debug mode
This commit is contained in:
sg 2003-11-27 11:28:44 +00:00
parent 5d024d4cc3
commit 02b63d9a3e
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fcl/net/xmlrpc.pp
View File

@ -158,7 +158,7 @@ uses XMLWrite, XMLRead;
// Debugging stuff
{$IFDEF Debug}
{$IFDEF XMLRPCDebug}
const
NodeNames: array[ELEMENT_NODE..NOTATION_NODE] of String = (
'Element',
@ -396,7 +396,7 @@ begin
inherited Create;
ReadXMLFile(Doc, AStream);
Node := Doc.DocumentElement;
{$IFDEF Debug}DumpNode(Node, 'Parser> ');{$ENDIF}
{$IFDEF XMLRPCDebug}DumpNode(Node, 'Parser> ');{$ENDIF}
if (Node.NodeName = 'methodCall') or (Node.NodeName = 'methodResponse') then
begin
Node := Node.FirstChild;
@ -462,7 +462,7 @@ end;
procedure TXMLRPCParser.ResetValueCursor;
begin
CurDataNode := CurDataNode.ParentNode.FirstChild;
{$IFDEF Debug}DumpNode(CurDataNode, 'ResetValueCursor> ');{$ENDIF}
{$IFDEF XMLRPCDebug}DumpNode(CurDataNode, 'ResetValueCursor> ');{$ENDIF}
end;
function TXMLRPCParser.GetNextInt: LongInt;
@ -609,12 +609,12 @@ end;
procedure TXMLRPCParser.PrevNode;
begin
{$IFDEF Debug}DumpNode(CurDataNode, 'PrevNode before> ');{$ENDIF}
{$IFDEF XMLRPCDebug}DumpNode(CurDataNode, 'PrevNode before> ');{$ENDIF}
if Assigned(CurDataNode.PreviousSibling) then
CurDataNode := CurDataNode.PreviousSibling
else
CurDataNode := CurDataNode.ParentNode.LastChild;
{$IFDEF Debug}DumpNode(CurDataNode, 'PrevNode result> ');{$ENDIF}
{$IFDEF XMLRPCDebug}DumpNode(CurDataNode, 'PrevNode result> ');{$ENDIF}
end;
function TXMLRPCParser.GetValue: String;
@ -934,7 +934,11 @@ end.
{
$Log$
Revision 1.3 2003-11-22 12:10:27 sg
Revision 1.4 2003-11-27 11:28:44 sg
* Debugging output is now enabled when the symbol "XMLRPCDebug" exists,
and not generally when compiled in debug mode
Revision 1.3 2003/11/22 12:10:27 sg
* Just a small adaption to chages in HTTP unit
Revision 1.2 2003/06/25 08:49:21 sg