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

Minor changes

Browse Source
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); procedure TRTThread.RTOnError(s: String; ErrorType: TRutisErrorType);
begin begin
psWriteln(s); if ErrorType in [etRuntimeError,etCompilerError] then
psWriteln(s)
else
writeln(s);
end; end;
constructor TRTThread.Create(CreateSuspended: Boolean; TheSyncInfo: PSyncInfo; constructor TRTThread.Create(CreateSuspended: Boolean; TheSyncInfo: PSyncInfo;
@ -999,6 +1002,7 @@ begin
RUTIS.OnWrite:= @RTOnWrite; RUTIS.OnWrite:= @RTOnWrite;
RUTIS.OnError:= @RTOnError; RUTIS.OnError:= @RTOnError;
RUTIS.OptProcessTimer:= false; RUTIS.OptProcessTimer:= false;
RUTIS.Compiler.optArrayRangeCheck:= true;
end; end;
destructor TRTThread.Destroy; destructor TRTThread.Destroy;
@ -1026,7 +1030,7 @@ begin
RUTIS.Run; RUTIS.Run;
end else end else
begin 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.'); psWriteln('Compiling failed.');
end; end;
except except