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

Minor changes

This commit is contained in:
Raymond 2010-08-20 17:55:03 +02:00
parent 9d162c1bfb
commit 932f0fd8f9
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Units/MMLAddon/mmlpsthread.pas
View File

@ -988,7 +988,10 @@ end;
procedure TRTThread.RTOnError(s: String; ErrorType: TRutisErrorType);
begin
psWriteln(s);
if ErrorType in [etRuntimeError,etCompilerError] then
psWriteln(s)
else
writeln(s);
end;
constructor TRTThread.Create(CreateSuspended: Boolean; TheSyncInfo: PSyncInfo;
@ -999,6 +1002,7 @@ begin
RUTIS.OnWrite:= @RTOnWrite;
RUTIS.OnError:= @RTOnError;
RUTIS.OptProcessTimer:= false;
RUTIS.Compiler.optArrayRangeCheck:= true;
end;
destructor TRTThread.Destroy;
@ -1026,7 +1030,7 @@ begin
RUTIS.Run;
end else
begin
CurrThread.HandleError(RUTIS.Error.ELine+1,RUTIS.Error.EChrPos,-1,RUTIS.Error.Message,errCompile,'');
CurrThread.HandleError(RUTIS.Error.ELine + 2,RUTIS.Error.EChrPos,-1,RUTIS.Error.Message,errCompile,'');
psWriteln('Compiling failed.');
end;
except