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/UParty.pas b/Game/Code/Classes/UParty.pas
index b0b400db..b7670c67 100644
--- a/Game/Code/Classes/UParty.pas
+++ b/Game/Code/Classes/UParty.pas
@@ -54,7 +54,7 @@ type
     Function Load: Boolean; override;

     Function Init: Boolean; override;

     Procedure DeInit; override;

-    Procedure Free; override;

+    Destructor Destroy; override;

 

     //Register Modi Service

     Function RegisterModi(nothin: TwParam; pModiInfo: TlParam): integer; //Registers a new Modi. wParam: Pointer to TUS_ModiInfo

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

 //Should be used to Free Memory

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

-Procedure TPartySession.Free;

+Destructor TPartySession.Destroy;

 begin

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

   SetLength(Modis, 0);