pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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(); procedure wst_finalize();
var var
i, c : Integer; i : Integer;
p : TwstInitializationProc; p : TwstInitializationProc;
begin begin
if Initialized then begin if Initialized then begin
Initialized := False; Initialized := False;
if ( FinalProcs <> nil ) then begin if ( FinalProcs <> nil ) then begin
c := FinalProcs.Count; i := FinalProcs.Count - 1;
for i := 0 to Pred(c) do begin while (i >= 0) do begin
p := TwstFinalizationProc(FinalProcs[i]); p := TwstFinalizationProc(FinalProcs[i]);
p(); p();
Dec(i);
end; end;
end; end;
end; end;