moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-24 02:02:17 -05:00
Code Issues Releases Wiki Activity

Added debug message for when initializing the interpreter fails.

Browse Source
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]); 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