diff options
author | George Hazan <george.hazan@gmail.com> | 2016-04-27 15:30:11 +0000 |
---|---|---|
committer | George Hazan <george.hazan@gmail.com> | 2016-04-27 15:30:11 +0000 |
commit | 6c182d49e36bdc2f150e6e572510f932346c4677 (patch) | |
tree | 8809a83a77b261d7c25e05e9ed917ccd8b16870c /plugins/Utils.pas/playlist.pas | |
parent | 8074b72743b4a5bcac65966b554e90d54bb4e7f4 (diff) |
fix for a double destruction in Pascal
git-svn-id: http://svn.miranda-ng.org/main/trunk@16778 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Utils.pas/playlist.pas')
-rw-r--r-- | plugins/Utils.pas/playlist.pas | 6 |
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);
|