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/uPluginLoader.pas b/Game/Code/Classes/uPluginLoader.pas
index b018ccc2..cec9d77d 100644
--- a/Game/Code/Classes/uPluginLoader.pas
+++ b/Game/Code/Classes/uPluginLoader.pas
@@ -53,7 +53,7 @@ type
       Function Load: Boolean; override;

       Function Init: Boolean; override;

       Procedure DeInit; override;

-      Procedure Free; override;

+      Destructor Destroy; override;

 

       //New Methods

       Procedure BrowseDir(Path: String);             //Browses the Path at _Path_ for Plugins

@@ -203,7 +203,7 @@ end;
 //Is Called if this Module will be unloaded and has been created

 //Should be used to Free Memory

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

-Procedure TPluginLoader.Free;

+Destructor TPluginLoader.Destroy;

 begin

   //Just save some Memory if it wasn't done now..

   SetLength(Plugins, 0);