diff options
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;
|