From ec4465234cb44359adda1b41ca3b1b2d34478a2c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 5 Apr 2005 21:08:08 +0000
Subject: [PATCH]   * fix memory leaks

---
 fcl/inc/inifiles.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/fcl/inc/inifiles.pp b/fcl/inc/inifiles.pp
index fea9f61a59..ef6f23e7bd 100644
--- a/fcl/inc/inifiles.pp
+++ b/fcl/inc/inifiles.pp
@@ -512,6 +512,7 @@ begin
         // comment at the beginning of the ini file
         oSection := TIniFileSection.Create(sLine);
         FSectionList.Add(oSection);
+        continue;
       end;
       if (Copy(sLine, 1, 1) = Brackets[0]) and (Copy(sLine, length(sLine), 1) = Brackets[1]) then begin
         // regular section
@@ -670,10 +671,10 @@ var
 begin
   oSection := FSectionList.SectionByName(Section);
   if oSection <> nil then begin
-    oSection.Free;
     { It is needed so UpdateFile doesn't find a defunct section }
     { and cause the program to crash }
     FSectionList.Delete(FSectionList.IndexOf(oSection));
+    oSection.Free;
     UpdateFile;
   end;
 end;
@@ -790,7 +791,10 @@ end.
 
 {
   $Log$
-  Revision 1.8  2005-02-14 17:13:15  peter
+  Revision 1.9  2005-04-05 21:08:08  peter
+    * fix memory leaks
+
+  Revision 1.8  2005/02/14 17:13:15  peter
     * truncate log
 
 }