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

pastojs: write sourceMappingURL only if map file enabled, issue 39210

Browse Source
This commit is contained in:
mattias 2022-02-03 15:20:54 +01:00
parent f0f9818824
commit 89e0282856
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2815,7 +2815,10 @@ begin
if Assigned(PostProcessorSupport) then if Assigned(PostProcessorSupport) then
PostProcessorSupport.CallPostProcessors(aFile.JSFilename,aFileWriter); PostProcessorSupport.CallPostProcessors(aFile.JSFilename,aFileWriter);
MapFilename:=aFileWriter.DestFilename+'.map'; if SrcMapEnable then
MapFilename:=aFileWriter.DestFilename+'.map'
else
MapFilename:='';
CheckOutputDir(aFileWriter.DestFileName); CheckOutputDir(aFileWriter.DestFileName);

6
packages/pastojs/tests/tcprecompile.pas
View File

@ -603,7 +603,7 @@ begin
' rtl.checkVersion('+IntToStr((VersionMajor*100+VersionMinor)*100+VersionRelease)+');', ' rtl.checkVersion('+IntToStr((VersionMajor*100+VersionMinor)*100+VersionRelease)+');',
' };', ' };',
'});', '});',
'//# sourceMappingURL=test1.js.map']); '']);
if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then
Fail('TTestCLI_Precompile.TestPCU_CheckVersionMain src diff: '+s); Fail('TTestCLI_Precompile.TestPCU_CheckVersionMain src diff: '+s);
end; end;
@ -634,7 +634,7 @@ begin
' pas.system.Writeln();', ' pas.system.Writeln();',
' };', ' };',
'});', '});',
'//# sourceMappingURL=test1.js.map']); '']);
if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then
Fail('TTestCLI_Precompile.TestPCU_CheckVersionMain src diff: '+s); Fail('TTestCLI_Precompile.TestPCU_CheckVersionMain src diff: '+s);
end; end;
@ -662,7 +662,7 @@ begin
' rtl.checkVersion('+VerStr+');', ' rtl.checkVersion('+VerStr+');',
' var $mod = this;', ' var $mod = this;',
'});', '});',
'//# sourceMappingURL=system.js.map']); '']);
if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then if not CheckSrcDiff(ExpectedSrc,aFile.Source,s) then
Fail('TTestCLI_Precompile.TestPCU_CheckVersionMain src diff: '+s); Fail('TTestCLI_Precompile.TestPCU_CheckVersionMain src diff: '+s);
end; end;

2
packages/pastojs/tests/tcunitsearch.pas
View File

@ -635,7 +635,7 @@ begin
' };', ' };',
'});', '});',
'rtl.run();', 'rtl.run();',
'//# sourceMappingURL=test1.js.map', '',
'']), '']),
aFile.Source); aFile.Source);
end; end;