Added debug message for when initializing the interpreter fails.
This commit is contained in:
parent
a143016beb
commit
bf0f806ecf
|
@ -1652,8 +1652,12 @@ begin
|
||||||
raise Exception.CreateFmt('Unknown Interpreter %d!', [Interpreter]);
|
raise Exception.CreateFmt('Unknown Interpreter %d!', [Interpreter]);
|
||||||
end;
|
end;
|
||||||
except
|
except
|
||||||
mDebugLn('Failed to initialise the interpreter');
|
on E: Exception do
|
||||||
Exit;
|
begin
|
||||||
|
mDebugLn('Failed to initialise the interpreter: ' + E.Message);
|
||||||
|
Thread := nil;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$IFNDEF TERMINALWRITELN}
|
{$IFNDEF TERMINALWRITELN}
|
||||||
|
@ -2379,6 +2383,9 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
SimbaForm.InitializeTMThread(t);
|
SimbaForm.InitializeTMThread(t);
|
||||||
|
if (t = nil) then
|
||||||
|
Exit;
|
||||||
|
|
||||||
KillThread(t.ThreadID); { XXX: Why do we kill the thread again ? }
|
KillThread(t.ThreadID); { XXX: Why do we kill the thread again ? }
|
||||||
if (t is TPSThread) then
|
if (t is TPSThread) then
|
||||||
try
|
try
|
||||||
|
|
Loading…
Reference in New Issue