paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 09:30:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: on handled error set LastErrorClass empty

Browse Source 
git-svn-id: trunk@47713 -
This commit is contained in:
Mattias Gaertner 2020-12-07 17:06:58 +00:00
parent e25848ab32
commit dbdd90a989
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
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