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

pastojs: consistent error message on custom js file not found, issue 38978

Browse Source
This commit is contained in:
mattias 2022-02-04 15:14:34 +01:00
parent 664a96c584
commit 953d15a939
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/pastojs/src/pas2jscompiler.pp
View File

@ -3054,7 +3054,7 @@ procedure TPas2jsCompiler.Terminate(TheExitCode: integer);
begin
ExitCode:=TheExitCode;
if Log<>nil then Log.Flush;
raise ECompilerTerminate.Create('');
raise ECompilerTerminate.Create('TPas2jsCompiler.Terminate');
end;
function TPas2jsCompiler.GetShowDebug: boolean;
@ -5246,7 +5246,7 @@ begin
if Filename='' then
begin
Log.LogMsg(nCustomJSFileNotFound,[InsertFilenames[i]]);
raise EFileNotFoundError.Create('');
Terminate(ExitCodeFileNotFound);
end;
aFile:=LoadFile(Filename);
if aFile.Source='' then continue;
@ -5272,7 +5272,7 @@ begin
if Filename='' then
begin
Log.LogMsg(nCustomJSFileNotFound,[AppendFilenames[i]]);
raise EFileNotFoundError.Create('');
Terminate(ExitCodeFileNotFound);
end;
aFile:=LoadFile(Filename);
if aFile.Source='' then continue;