From 7b0aa41d1b59d125eb7bb71bcae939a94ff48a14 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Sun, 8 Jun 2008 07:49:43 +0000 Subject: 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 --- Game/Code/Classes/UCore.pas | 26 +++++++++----------------- 1 file changed, 9 insertions(+), 17 deletions(-) (limited to 'Game/Code/Classes/UCore.pas') 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; -- cgit v1.2.3