paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 07:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: compile with pas2js

Browse Source
This commit is contained in:
mattias 2022-02-12 22:34:11 +01:00
parent b2251e3469
commit 0fb08a7619
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,7 +25,7 @@ unit FPPJsSrcMap;
interface
uses
SysUtils, Classes, math,
SysUtils, math,
jswriter, jstree, JSSrcMap, fpjson, Pas2JSUtils;
type
@ -230,7 +230,9 @@ procedure TPas2JSMapper.SaveJSToStream(WithUTF8BOM: boolean;
const MapFilename: string; s: TFPJSStream);
var
MapSrc: string;
{$ifndef pas2js}
{$ifdef pas2js}
i: integer;
{$ELSE}
bom: string;
{$endif}
begin
@ -240,7 +242,7 @@ begin
MapSrc:='';
{$ifdef pas2js}
if WithUTF8BOM then ;
for i:=0 to FBufPos-1 do
for i:=0 to BufferLength-1 do
s.push(Buffer[i]);
if MapSrc<>'' then
s.push(MapSrc);