pastojs: test precompile with -Jminclude

git-svn-id: trunk@39771 -

packages/pastojs/src/pas2jscompiler.pp

@@ -2235,7 +2235,7 @@ begin
   for i:=0 to SrcMap.SourceCount-1 do begin
     LocalFilename:=SrcMap.SourceFiles[i];
     if LocalFilename='' then continue;
-    if SrcMapInclude then
+    if SrcMapInclude and DirectoryCache.FileExists(LocalFilename) then
     begin
       // include source in SrcMap
       aFile:=FileCache.LoadFile(LocalFilename);
@@ -2314,6 +2314,7 @@ var
         SrcMap.Options:=SrcMap.Options+[smoSafetyHeader]
       else
         SrcMap.Options:=SrcMap.Options-[smoSafetyHeader];
+      SrcMap.Options:=SrcMap.Options+[smoAllowSrcLine0];
     end;
   end;
 

packages/pastojs/tests/tcprecompile.pas

@@ -102,7 +102,7 @@ begin
       Params.Assign(SharedParams);
     if FirstRunParams<>nil then
       Params.AddStrings(FirstRunParams);
-    Compile([MainFile,'-Jc','-Fu'+UnitPaths,'-JU'+PCUFormat.Ext,'-FU'+UnitOutputDir]);
+    Compile([MainFile,'-Jc','-Fu'+UnitPaths,'-JU'+PCUFormat.Ext,'-FU'+UnitOutputDir,'-Jminclude']);
     AssertFileExists(UnitOutputDir+'/system.'+PCUFormat.Ext);
     JSFilename:=UnitOutputDir+PathDelim+ExtractFilenameOnly(MainFile)+'.js';
     AssertFileExists(JSFilename);
@@ -119,7 +119,7 @@ begin
       Params.Assign(SharedParams);
     if SecondRunParams<>nil then
       Params.AddStrings(SecondRunParams);
-    Compile([MainFile,'-Jc','-FU'+UnitOutputDir],ExpExitCode);
+    Compile([MainFile,'-Jc','-FU'+UnitOutputDir,'-Jminclude'],ExpExitCode);
     if ExpExitCode=0 then
       begin
       NewSrc:=JSFile.Source;