Răsfoiți Sursa

* 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 ani în urmă
părinte
comite
0f11acb568
1 a modificat fișierele cu 6 adăugiri și 1 ștergeri
  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