From 6bde0600c18dee059df5488ca037f7191d09c288 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 13 Jun 2012 14:55:23 +0000
Subject: [PATCH] Finalization order

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2465 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/wst_initialization.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/wst/trunk/wst_initialization.pas b/wst/trunk/wst_initialization.pas
index 15934834e..23ab719a1 100644
--- a/wst/trunk/wst_initialization.pas
+++ b/wst/trunk/wst_initialization.pas
@@ -70,16 +70,17 @@ end;
 
 procedure wst_finalize();
 var
-  i, c : Integer;
+  i : Integer;
   p : TwstInitializationProc;
 begin
   if Initialized then begin
     Initialized := False;
     if ( FinalProcs <> nil ) then begin
-      c := FinalProcs.Count;
-      for i := 0 to Pred(c) do begin
+      i := FinalProcs.Count - 1;
+      while (i >= 0) do begin
         p := TwstFinalizationProc(FinalProcs[i]);
         p();
+        Dec(i);
       end;
     end;
   end;