From 43806a5ca483e8767066d5a7b1e02557056e40bd Mon Sep 17 00:00:00 2001 From: tobigun Date: Fri, 2 May 2008 16:52:53 +0000 Subject: 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 --- Game/Code/Classes/UCoreModule.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Game/Code/Classes/UCoreModule.pas') 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; -- cgit v1.2.3