paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 19:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* halt in the finalization statement of a unit lead to an endless loop; fixed

Browse Source
This commit is contained in:
florian 2000-04-02 09:39:25 +00:00
parent 03052cb67e
commit 548f14e16d
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/system.inc
View File

@ -405,9 +405,11 @@ begin
begin
while (InitCount>0) do
begin
if assigned(Procs[InitCount].FinalProc) then
Procs[InitCount].FinalProc();
// we've to decrement the cound before calling the final. code
// else a halt in the final. code leads to a endless loop
dec(InitCount);
if assigned(Procs[InitCount+1].FinalProc) then
Procs[InitCount+1].FinalProc();
end;
end;
end;
@ -615,7 +617,10 @@ end;
{
$Log$
Revision 1.85 2000-03-14 07:31:57 pierre
Revision 1.86 2000-04-02 09:39:25 florian
* halt in the finalization statement of a unit lead to an endless loop; fixed
Revision 1.85 2000/03/14 07:31:57 pierre
+ HandleErrorAddrFrame
Revision 1.84 2000/02/26 15:49:40 jonas
@ -684,4 +689,4 @@ end;
Revision 1.65 1999/07/28 12:58:22 peter
* fixed assert() to push/pop registers
}
}