A while ago, I ran into a problem that an anonymous thread would run longer than the main thread of the application.
This caused all sorts of trouble, so in this case I decided to fix it for that particular thread.
There are various opinions if this should be done for all threads or not. Like always, it depends, so it is good to mention a few:
This particular case resulted into the memory manager shutting down earlier than the anonymous thread, but the anonymous thread was still using memory allocation functions, resulting into a few things of which you do not want the first and second to happen on a continuous integration system:
- Error messages during shutdown, which is unwanted on a headless system:
--------------------------- MyIntegrationTests.exe: MM Operation after uninstall. --------------------------- FastMM has detected a GetMem call after FastMM was uninstalled. --------------------------- OK ---------------------------
or
--------------------------- MyIntegrationTests.exe: MM Operation after uninstall. --------------------------- FastMM has detected a FreeMem call after FastMM was uninstalled. --------------------------- OK ---------------------------
either of them followed by
--------------------------- Error --------------------------- Runtime error 203 at 00408EFF --------------------------- OK ---------------------------
or
--------------------------- Error --------------------------- Runtime error 204 at 0040AFE9 --------------------------- OK ---------------------------
The errors are mappings of:
203, { reOutOfMemory } 204, { reInvalidPtr } - The
MyIntegrationTests_MemoryManager_EventLog.txtto rapidly grow to 100s of megabytes. - The
MyIntegrationTests_MemoryManager_EventLog.txtnot to be truncated.
This particular case was easy to fix by adding a global (but implementation section contained) boolean indicating if the thread was already finished:
unit DebugInformationLoaderUnit;
interface
implementation
uses
JclDebug;
var
LoadDebugInformationAsyncFinished: Boolean = False;
procedure LoadDebugInformationAsync;
begin
TThread.CreateAnonymousThread(
procedure
begin
TThread.NameThreadForDebugging('LoadDebugInforoamtionAsync');
DebugInfoAvailable(MainInstance);
LoadDebugInformationAsyncFinished := True;
end).Start;
end;
initialization
LoadDebugInformationAsync;
finalization
while not LoadDebugInformationAsyncFinished do
begin
Sleep(1);
end;
end.
In addition, I did this to suppress message boxes outside Delphi:
program MyIntegrationTests;
...
{$Include FastMM4Options.inc}
uses
FastMM4 in '..\..\..\Shared\FastMM4.pas',
System.Classes,
...;
{$R *.RES}
begin
TThread.NameThreadForDebugging(ParamStr(0));
SuppressMessageBoxes := SuppressMessageBoxes // follow pattern in FastMM4.FinalizeMemoryManager
{$ifdef RequireIDEPresenceForLeakReporting}
and DelphiIsRunning
{$endif}
{$ifdef RequireDebuggerPresenceForLeakReporting}
and ((DebugHook <> 0)
{$ifdef PatchBCBTerminate}
or (Assigned(pCppDebugHook) and (pCppDebugHook^ <> 0))
{$endif PatchBCBTerminate}
)
{$endif}
;
{$WARN SYMBOL_PLATFORM OFF} NoErrMsg := {$WARN SYMBOL_PLATFORM ON} SuppressMessageBoxes; // Set RTL message boxes as well;
...
end.
–jeroen
The Wiert Corner - irregular stream of stuff 