paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-27 20:00:15 +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); Result:=Assigned(OnWriteJSCallBack);
if Result then if Result then
try 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)); OnWriteJSCallBack(OnWriteJSData,PAnsiChar(DestFileName),Length(DestFileName),PAnsiChar(Src),Length(Src));
except except
Result:=False; Result:=False;
@ -264,7 +264,7 @@ begin
if Not Result then if Not Result then
begin begin
LastError:=Format('Compiler exited with exit code %d',[ExitCode]); LastError:=Format('Compiler exited with exit code %d',[ExitCode]);
LastErrorClass:=ECompilerTerminate.ClassName; LastErrorClass:='';
end; end;
except except
On E : Exception do On E : Exception do