Pārlūkot izejas kodu

* The XML config object is now freed at the end of the program
(this enables us to detect memory leaks with this test program)

sg 26 gadi atpakaļ
vecāks
revīzija
0f11acb568
1 mainītis faili ar 6 papildinājumiem un 1 dzēšanām
  1. 6 1
      fcl/tests/xmldump.pp

+ 6 - 1
fcl/tests/xmldump.pp

@@ -63,12 +63,17 @@ begin
   WriteLn('Successfully parsed the document. Structure:');
   WriteLn;
   DumpNode(xml, '| ');
+  xml.Free;
 end.
 
 
 {
   $Log$
-  Revision 1.4  2000-01-06 01:20:36  peter
+  Revision 1.5  2000-01-30 22:20:57  sg
+  * The XML config object is now freed at the end of the program
+    (this enables us to detect memory leaks with this test program)
+
+  Revision 1.4  2000/01/06 01:20:36  peter
     * moved out of packages/ back to topdir
 
   Revision 1.1  2000/01/03 19:33:10  peter