mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 04:09:33 +02:00
* 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 -
This commit is contained in:
parent
900fd35f4a
commit
c26348a3dd
@ -954,6 +954,6 @@ Initialization
|
||||
|
||||
RefreshDeviceList;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -532,6 +532,6 @@ Initialization
|
||||
OnBeep:=Nil; { No SysBeep() on Atari for now. }
|
||||
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -291,6 +291,6 @@ end;
|
||||
Initialization
|
||||
InitExceptions;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -1340,6 +1340,6 @@ Initialization
|
||||
InitExceptions; { Initialize exceptions. OS independent }
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -325,6 +325,6 @@ end;
|
||||
Initialization
|
||||
InitExceptions;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -920,6 +920,6 @@ Initialization
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
OnBeep:=@SysBeep;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -849,6 +849,6 @@ Initialization
|
||||
InitExceptions; { Initialize exceptions. OS independent }
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -929,6 +929,6 @@ Initialization
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
OnBeep:=@SysBeep;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -1263,6 +1263,6 @@ initialization
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
OnBeep := @SysBeep;
|
||||
finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -364,6 +364,6 @@ end;
|
||||
Initialization
|
||||
InitExceptions;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -661,6 +661,6 @@ Initialization
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
OnBeep:=@SysBeep;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -728,6 +728,6 @@ Initialization
|
||||
InitExceptions; { Initialize exceptions. OS independent }
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -1003,6 +1003,6 @@ Initialization
|
||||
LastOSError := 0;
|
||||
OrigOSErrorWatch := TOSErrorWatch (SetOSErrorTracking (@TrackLastOSError));
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -291,6 +291,6 @@ end;
|
||||
Initialization
|
||||
InitExceptions;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -1663,6 +1663,6 @@ Initialization
|
||||
|
||||
Finalization
|
||||
FreeDriveStr;
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -898,6 +898,6 @@ Initialization
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
InitDelay;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -294,6 +294,6 @@ end;
|
||||
Initialization
|
||||
InitExceptions;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -1658,6 +1658,6 @@ Initialization
|
||||
InitSysConfigDir;
|
||||
OnBeep:=@SysBeep;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -951,6 +951,6 @@ Initialization
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
OnBeep:=@SysBeep;
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
end.
|
||||
|
@ -982,7 +982,7 @@ Initialization
|
||||
SysConfigDir:='\Windows';
|
||||
|
||||
Finalization
|
||||
DoneExceptions;
|
||||
FreeTerminateProcs;
|
||||
DoneExceptions;
|
||||
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user