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

pastojs: uses in filename: if not found try pcu

Browse Source 
git-svn-id: trunk@47205 -
This commit is contained in:
Mattias Gaertner 2020-10-26 12:15:09 +00:00
parent f529253c0b
commit f15deb1640
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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