Browse Source

Signal the collector to terminate on system exit (although this might be to late already...)

git-svn-id: branches/svenbarth/collector@17158 -
svenbarth 14 years ago
parent
commit
051801ea2d
3 changed files with 3 additions and 0 deletions
  1. 1 0
      rtl/win32/system.pp
  2. 1 0
      rtl/win64/system.pp
  3. 1 0
      rtl/wince/system.pp

+ 1 - 0
rtl/win32/system.pp

@@ -307,6 +307,7 @@ begin
     This crashes Win95 at least PM }
   if IsLibrary then
     ExitDLL(ExitCode);
+  FiniSystemThreads;
   if not IsConsole then
    begin
      Close(stderr);

+ 1 - 0
rtl/win64/system.pp

@@ -361,6 +361,7 @@ begin
     This crashes Win95 at least PM }
   if IsLibrary then
     ExitDLL(ExitCode);
+  FiniSystemThreads;
   if not IsConsole then
    begin
      Close(stderr);

+ 1 - 0
rtl/wince/system.pp

@@ -813,6 +813,7 @@ Procedure system_exit;
 begin
   if IsLibrary then
     exit;
+  FiniSystemThreads;
   if not IsConsole then
     begin
       Close(stderr);