diff --git a/packages/pastojs/src/pas2jscompiler.pp b/packages/pastojs/src/pas2jscompiler.pp index 8a222d3720..a3b64f91a0 100644 --- a/packages/pastojs/src/pas2jscompiler.pp +++ b/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; diff --git a/packages/pastojs/tests/tcprecompile.pas b/packages/pastojs/tests/tcprecompile.pas index 4d2f840d70..8acb1b2fd5 100644 --- a/packages/pastojs/tests/tcprecompile.pas +++ b/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;