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

pastojs: started pcu srcmap

Browse Source 
git-svn-id: trunk@43328 -
This commit is contained in:
Mattias Gaertner 2019-10-29 18:29:22 +00:00
parent 4c6b5dc3ad
commit b2d9a8361c
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/pastojs/src/fppjssrcmap.pp
View File

@ -131,7 +131,8 @@ end;
procedure TPas2JSMapper.Writing;
var
S: TJSString;
p, l, Line: Integer;
p, l, Line, CurSrcLine, CurSrcColumn: Integer;
CurSrcFilename: String;
begin
inherited Writing;
if SrcMap=nil then exit;
@ -143,12 +144,22 @@ begin
if FSrcFilename='' then
exit; // built-in element -> do not add a mapping
CurSrcFilename:=FSrcFilename;
CurSrcLine:=FSrcLine;
CurSrcColumn:=FSrcColumn;
//system.writeln('TPas2JSMapper.Writing ',FSrcFilename);
if ExtractFileExt(CurSrcFilename)='.pju' then
begin
// precompiled js -> map to js
exit;
end;
FNeedMapping:=false;
//system.writeln('TPas2JSMapper.Writing Generated.Line=',CurLine,',Col=',CurColumn-1,
// ' Orig:',ExtractFileName(FSrcFilename),',Line=',FSrcLine,',Col=',FSrcColumn-1);
SrcMap.AddMapping(CurLine,Max(0,CurColumn-1),
FSrcFilename,Max(0,FSrcLine),Max(0,FSrcColumn-1));
CurSrcFilename,Max(0,CurSrcLine),Max(0,CurSrcColumn-1));
if (CurElement is TJSLiteral)
and (TJSLiteral(CurElement).Value.CustomValue<>'') then
@ -171,7 +182,7 @@ begin
//system.writeln('TPas2JSMapper.Writing Generated.Line=',CurLine+Line,',Col=',0,
// ' Orig:',ExtractFileName(FSrcFilename),',Line=',FSrcLine+Line,',Col=',0);
SrcMap.AddMapping(CurLine+Line,0,
FSrcFilename,FSrcLine+Line,0);
CurSrcFilename,CurSrcLine+Line,0);
end;
else
inc(p);