From 4231c33ad7c7765fd3851c5c7168f8c7d367deef Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 16 Oct 2007 23:19:11 +0000
Subject: nearly finished Cores loading procs Add PluginLoader Unit to implent
 new PluginLoader Reordered Delphi .dpr uses clausel

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@519 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UCoreModule.pas | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'Game/Code/Classes/UCoreModule.pas')

diff --git a/Game/Code/Classes/UCoreModule.pas b/Game/Code/Classes/UCoreModule.pas
index 4d36f925..6fca5d37 100644
--- a/Game/Code/Classes/UCoreModule.pas
+++ b/Game/Code/Classes/UCoreModule.pas
@@ -6,19 +6,13 @@ interface
   Dummy Class that has Methods that will be called from Core
   In the Best case every Piece of this Software is a Module
 *********************}
+uses UPluginDefs;
 
 {$IFDEF FPC}
   {$MODE Delphi}
 {$ENDIF}
 
 type
-  PModuleInfo = ^TModuleInfo;
-  TModuleInfo = record
-    Name:         String;
-    Version:      LongWord;
-    Description:  String;
-  end;
-
   TCoreModule = class
     public
       //Function that gives some Infos about the Module to the Core
@@ -44,6 +38,10 @@ type
       //Deinit is in backwards Initing Order
       //If False is Returned this will cause a Forced Exit
       Procedure DeInit; virtual;
+
+      //Is Called if this Module will be unloaded and has been created
+      //Should be used to Free Memory
+      Procedure Free; virtual;
   end;
   cCoreModule = class of TCoreModule;
 
@@ -102,4 +100,13 @@ begin
   //Dummy ftw!!
 end;
 
+//-------------
+//Is Called if this Module will be unloaded and has been created
+//Should be used to Free Memory
+//-------------
+Procedure TCoreModule.Free;
+begin
+  //Dummy ftw!!
+end;
+
 end.
\ No newline at end of file
-- 
cgit v1.2.3