TCoreModule overloads the Free destructor "destructor Free" with a self defined "procedure Free". At least Free should not be defined explicitly because there already is a default Free() implementation that checks if the reference is nil and if not, calls Destroy. Making the destructor a procedure does not look correct too.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1054 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 3 insertions, 3 deletions

diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas
index 38bc1e7a..b542b5f6 100644
--- a/Game/Code/Classes/ULyrics.pas
+++ b/Game/Code/Classes/ULyrics.pas
@@ -114,7 +114,7 @@ type
       Constructor Create; overload; 

       Constructor Create(ULX,ULY,ULW,ULS,LLX,LLY,LLW,LLS:Real); overload;

       Procedure   LoadTextures;

-      Destructor  Free;

+      Destructor  Destroy; override;

   end;

 

 implementation

@@ -190,9 +190,9 @@ end;
 

 

 //---------------

-// Free - Frees Memory

+// Destroy - Frees Memory

 //---------------

-Destructor  TLyricEngine.Free;

+Destructor  TLyricEngine.Destroy;

 begin

 

 end;