paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 07:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: on handled error set LastErrorClass empty

Browse Source
This commit is contained in:
mattias 2020-12-07 17:07:49 +00:00
parent 5c49a9af0c
commit e6209bbaaa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/packages/pastojs/src/pas2jslibcompiler.pp
View File

@ -143,7 +143,7 @@ begin
Result:=Assigned(OnWriteJSCallBack);
if Result then
try
Src:=aWriter.{$IF FPC_FULLVERSION>30300}AsString{$ELSE}AsAnsistring{$ENDIF};
Src:=aWriter.{$IF FPC_FULLVERSION>30101}AsString{$ELSE}AsAnsistring{$ENDIF};
OnWriteJSCallBack(OnWriteJSData,PAnsiChar(DestFileName),Length(DestFileName),PAnsiChar(Src),Length(Src));
except
Result:=False;
@ -264,7 +264,7 @@ begin
if Not Result then
begin
LastError:=Format('Compiler exited with exit code %d',[ExitCode]);
LastErrorClass:=ECompilerTerminate.ClassName;
LastErrorClass:='';
end;
except
On E : Exception do