moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Added debug message for when initializing the interpreter fails.

This commit is contained in:
Niels 2011-08-03 21:06:56 +02:00
parent a143016beb
commit bf0f806ecf
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Projects/Simba/simbaunit.pas
View File

@ -1652,8 +1652,12 @@ begin
raise Exception.CreateFmt('Unknown Interpreter %d!', [Interpreter]);
end;
except
mDebugLn('Failed to initialise the interpreter');
Exit;
on E: Exception do
begin
mDebugLn('Failed to initialise the interpreter: ' + E.Message);
Thread := nil;
Exit;
end;
end;
{$IFNDEF TERMINALWRITELN}
@ -2379,6 +2383,9 @@ begin
end;
end;
SimbaForm.InitializeTMThread(t);
if (t = nil) then
Exit;
KillThread(t.ThreadID); { XXX: Why do we kill the thread again ? }
if (t is TPSThread) then
try