paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-18 15:39:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: uses in filename: if not found try pcu

Browse Source
This commit is contained in:
mattias 2020-10-26 12:15:39 +00:00
parent 7e1adf88b7
commit 48b8b21dba
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/packages/pastojs/src/pas2jscompiler.pp
View File

@ -4793,8 +4793,7 @@ begin
end else begin
// search Pascal file with InFilename
FoundPasFilename:=FS.FindUnitFileName(UseUnitname,InFilename,ModuleDir,FoundPasIsForeign);
if FoundPasFilename='' then
exit; // an in-filename unit source is missing -> stop
if FoundPasFilename<>'' then
FoundPasUnitName:=ExtractFilenameOnly(InFilename);
// Note: at the moment if there is a source do not search for pcu
@ -4804,9 +4803,11 @@ begin
// no pas file -> search pcu
FoundPCUFilename:=PCUSupport.FindPCU(UseUnitName);
if FoundPCUFilename<>'' then
begin
FoundPCUUnitName:=UseUnitName;
end;
end;
end;
if (FoundPasFilename='') and (FoundPCUFilename<>'') then
begin