Procházet zdrojové kódy

pastojs: search .js files in -FE

git-svn-id: trunk@38994 -
Mattias Gaertner před 7 roky
rodič
revize
4b2c4775e4
1 změnil soubory, kde provedl 2 přidání a 0 odebrání
  1. 2 0
      packages/pastojs/src/pas2jsfilecache.pp

+ 2 - 0
packages/pastojs/src/pas2jsfilecache.pp

@@ -1388,6 +1388,8 @@ begin
   end else begin
     if Cache.UnitOutputPath<>'' then
       Result:=Cache.UnitOutputPath+ChangeFileExt(ExtractFileName(aUnitFilename),'.js')
+    else if Cache.MainOutputPath<>'' then
+      Result:=Cache.MainOutputPath+ChangeFileExt(ExtractFileName(aUnitFilename),'.js')
     else
       Result:=ChangeFileExt(aUnitFilename,'.js');
   end;