aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-10 18:07:01 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-10 18:07:01 +0000
commit2f80e3be339f528bd0c7ef54db8ff7cc641883e3 (patch)
treed960f06f83b410fa55ed21aa1f3126635415830f /Game/Code/Classes
parent621bfb05407a169f6511f5b115d0622e5ec8bdd5 (diff)
downloadusdx-2f80e3be339f528bd0c7ef54db8ff7cc641883e3.tar.gz
usdx-2f80e3be339f528bd0c7ef54db8ff7cc641883e3.tar.xz
usdx-2f80e3be339f528bd0c7ef54db8ff7cc641883e3.zip
Fixed some Bugs from Previous Commit
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@498 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes')
-rw-r--r--Game/Code/Classes/UCore.pas19
1 files changed, 12 insertions, 7 deletions
diff --git a/Game/Code/Classes/UCore.pas b/Game/Code/Classes/UCore.pas
index 744fabe2..990ee7ab 100644
--- a/Game/Code/Classes/UCore.pas
+++ b/Game/Code/Classes/UCore.pas
@@ -31,8 +31,8 @@ type
hExit: THandle;
hDebug: THandle;
hError: THandle;
- sgiveError: THandle;
- sgiveDebug: THandle;
+ sReportError: THandle;
+ sReportDebug: THandle;
Modules: Array [0..High(CORE_MODULES_TO_LOAD)] of TModuleListItem;
@@ -81,8 +81,8 @@ type
// Hook and Service Procs:
//--------------
Function ShowMessage(wParam, lParam: DWord): integer; //Shows a Message (lParam: PChar Text, wParam: Symbol)
- Function ShowMessage(wParam, lParam: DWord): integer; //Shows a Message (lParam: PChar Text, wParam: Symbol)
- Function ShowMessage(wParam, lParam: DWord): integer; //Shows a Message (lParam: PChar Text, wParam: Symbol)
+ {Function ShowMessage(wParam, lParam: DWord): integer; //Shows a Message (lParam: PChar Text, wParam: Symbol)
+ Function ShowMessage(wParam, lParam: DWord): integer; //Shows a Message (lParam: PChar Text, wParam: Symbol)}
end;
var
@@ -178,6 +178,8 @@ end;
//Inits Core and all Modules
//-------------
Function TCore.Init: Boolean;
+var
+ I: Integer;
begin
Result := InitCore;
@@ -193,8 +195,9 @@ end;
//DeInits Core and all Modules
//-------------
Function TCore.DeInit: Boolean;
-
- label Continue;
+var
+ I: Integer;
+label Continue;
begin
I := High(CORE_MODULES_TO_LOAD);
@@ -209,8 +212,10 @@ begin
end;
Except
- GoTo Continue;
+
end;
+ If (I >= 0) then
+ GoTo Continue;
DeInitCore;
end;