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, 2 insertions, 2 deletions

diff --git a/Game/Code/Classes/UCoreModule.pas b/Game/Code/Classes/UCoreModule.pas
index c8c54161..a7ad3b4e 100644
--- a/Game/Code/Classes/UCoreModule.pas
+++ b/Game/Code/Classes/UCoreModule.pas
@@ -47,7 +47,7 @@ type
 
       //Is Called if this Module will be unloaded and has been created
       //Should be used to Free Memory
-      Procedure Free; virtual;
+      Destructor Destroy; override;
   end;
   cCoreModule = class of TCoreModule;
 
@@ -118,7 +118,7 @@ end;
 //Is Called if this Module will be unloaded and has been created
 //Should be used to Free Memory
 //-------------
-Procedure TCoreModule.Free;
+Destructor TCoreModule.Destroy;
 begin
   //Dummy ftw!!
 end;