From 6c182d49e36bdc2f150e6e572510f932346c4677 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Wed, 27 Apr 2016 15:30:11 +0000
Subject: fix for a double destruction in Pascal

git-svn-id: http://svn.miranda-ng.org/main/trunk@16778 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Utils.pas/playlist.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'plugins')

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);
-- 
cgit v1.2.3