Browse Source

* follow up to r42457: FreeTerminateProcs needs to be called before DoneExceptions just in case an exception is triggered due to a corrupted list

git-svn-id: trunk@42461 -
svenbarth 6 years ago
parent
commit
c26348a3dd

+ 1 - 1
rtl/amicommon/sysutils.pp

@@ -954,6 +954,6 @@ Initialization
 
   RefreshDeviceList;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/atari/sysutils.pp

@@ -532,6 +532,6 @@ Initialization
   OnBeep:=Nil;          { No SysBeep() on Atari for now. }
 
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/embedded/sysutils.pp

@@ -291,6 +291,6 @@ end;
 Initialization
   InitExceptions;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/emx/sysutils.pp

@@ -1340,6 +1340,6 @@ Initialization
   InitExceptions;       { Initialize exceptions. OS independent }
   InitInternational;    { Initialize internationalization settings }
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/gba/sysutils.pp

@@ -325,6 +325,6 @@ end;
 Initialization
   InitExceptions;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/go32v2/sysutils.pp

@@ -920,6 +920,6 @@ Initialization
   InitInternational;    { Initialize internationalization settings }
   OnBeep:=@SysBeep;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/macos/sysutils.pp

@@ -849,6 +849,6 @@ Initialization
   InitExceptions;       { Initialize exceptions. OS independent }
   InitInternational;    { Initialize internationalization settings }
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/msdos/sysutils.pp

@@ -929,6 +929,6 @@ Initialization
   InitInternational;    { Initialize internationalization settings }
   OnBeep:=@SysBeep;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/nativent/sysutils.pp

@@ -1263,6 +1263,6 @@ initialization
   InitInternational;    { Initialize internationalization settings }
   OnBeep := @SysBeep;
 finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/nds/sysutils.pp

@@ -364,6 +364,6 @@ end;
 Initialization
   InitExceptions;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/netware/sysutils.pp

@@ -661,6 +661,6 @@ Initialization
   InitInternational;    { Initialize internationalization settings }
   OnBeep:=@SysBeep;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/netwlibc/sysutils.pp

@@ -728,6 +728,6 @@ Initialization
   InitExceptions;       { Initialize exceptions. OS independent }
   InitInternational;    { Initialize internationalization settings }
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/os2/sysutils.pp

@@ -1003,6 +1003,6 @@ Initialization
   LastOSError := 0;
   OrigOSErrorWatch := TOSErrorWatch (SetOSErrorTracking (@TrackLastOSError));
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/symbian/sysutils.pp

@@ -291,6 +291,6 @@ end;
 Initialization
   InitExceptions;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/unix/sysutils.pp

@@ -1663,6 +1663,6 @@ Initialization
 
 Finalization
   FreeDriveStr;
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/watcom/sysutils.pp

@@ -898,6 +898,6 @@ Initialization
   InitInternational;    { Initialize internationalization settings }
   InitDelay;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/wii/sysutils.pp

@@ -294,6 +294,6 @@ end;
 Initialization
   InitExceptions;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/win/sysutils.pp

@@ -1658,6 +1658,6 @@ Initialization
   InitSysConfigDir;
   OnBeep:=@SysBeep;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/win16/sysutils.pp

@@ -951,6 +951,6 @@ Initialization
   InitInternational;    { Initialize internationalization settings }
   OnBeep:=@SysBeep;
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 end.

+ 1 - 1
rtl/wince/sysutils.pp

@@ -982,7 +982,7 @@ Initialization
   SysConfigDir:='\Windows';
 
 Finalization
-  DoneExceptions;
   FreeTerminateProcs;
+  DoneExceptions;
 
 end.