fix for a double destruction in Pascal

git-svn-id: http://svn.miranda-ng.org/main/trunk@16778 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 3 insertions, 3 deletions

diff --git a/plugins/Utils.pas/playlist.pas b/plugins/Utils.pas/playlist.pas
index ca33c000e3..b7f5b95f5b 100644
--- a/plugins/Utils.pas/playlist.pas
+++ b/plugins/Utils.pas/playlist.pas
@@ -29,7 +29,7 @@ type
 

   public

     constructor Create(fname:PWideChar);

-    destructor Free;

+    destructor Destroy;

 

     procedure SetBasePath(path:PWideChar);

 

@@ -268,7 +268,7 @@ begin
   SetBasePath(fname);

 end;

 

-destructor tPlaylist.Free;

+destructor tPlaylist.Destroy;

 var

   i:integer;

 begin

@@ -285,7 +285,7 @@ begin
   end;

   plStrings:=nil;

 

-  inherited Free;

+  inherited;

 end;

 

 procedure tPlaylist.AddLine(name,descr:PWideChar;new:boolean=true);