diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-06-08 07:49:43 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-06-08 07:49:43 +0000 |
commit | 7b0aa41d1b59d125eb7bb71bcae939a94ff48a14 (patch) | |
tree | 175db64e2a4542db1a9eeb898e8db054faee75c5 /Game/Code/Classes/UCore.pas | |
parent | 278ff525686374c51d542e608ee612da8cdaec6d (diff) | |
download | usdx-7b0aa41d1b59d125eb7bb71bcae939a94ff48a14.tar.gz usdx-7b0aa41d1b59d125eb7bb71bcae939a94ff48a14.tar.xz usdx-7b0aa41d1b59d125eb7bb71bcae939a94ff48a14.zip |
Sakrileg (goto and label) replacement. Please check.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1138 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes/UCore.pas')
-rw-r--r-- | Game/Code/Classes/UCore.pas | 26 |
1 files changed, 9 insertions, 17 deletions
diff --git a/Game/Code/Classes/UCore.pas b/Game/Code/Classes/UCore.pas index ac29e727..c19147ea 100644 --- a/Game/Code/Classes/UCore.pas +++ b/Game/Code/Classes/UCore.pas @@ -329,28 +329,20 @@ end; //-------------
//DeInits Core and all Modules
//-------------
-Function TCore.DeInit: Boolean;
+Function TCore.DeInit: boolean;
+
var
- I: Integer;
-label Continue;
-begin
- I := High(CORE_MODULES_TO_LOAD);
+ i: integer;
- Continue:
- Try
- While (I >= 0) do
- begin
- If (Modules[I].NeedsDeInit) then
- Modules[I].Module.DeInit;
+begin
- Dec(I);
+ for i := High(CORE_MODULES_TO_LOAD) downto 0 do
+ try
+ if (Modules[i].NeedsDeInit) then
+ Modules[i].Module.DeInit;
+ except
end;
- Except
-
-
end;
- If (I >= 0) then
- GoTo Continue;
DeInitCore;
|