paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Finalization order

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2465 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2012-06-13 14:55:23 +00:00
parent ec530ec8c2
commit 6bde0600c1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
wst/trunk/wst_initialization.pas
View File

@ -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;