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

pastojs: fixed compilation

Browse Source 
git-svn-id: trunk@40075 -
This commit is contained in:
Mattias Gaertner 2018-10-29 10:16:58 +00:00
parent ee8215e2ed
commit 60eb591844
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-json/src/fpjson.pp
View File

@ -51,7 +51,7 @@ type
TJSONCharType = AnsiChar;
PJSONCharType = ^TJSONCharType;
TJSONVariant = variant;
TFPJSStream = TStream;
TFPJSStream = TMemoryStream;
{$else}
TJSONCharType = char;
TJSONVariant = jsvalue;

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

@ -4231,7 +4231,7 @@ const
begin
LastCharStart:=p;
{$IFDEF FPC_HAS_CPSTRING}
Len:=UTF8CharacterStrictLength(p);
Len:=UTF8CharacterStrictLength(@s[p]);
if Len=0 then Len:=1;
inc(p,Len);
{$ELSE}
@ -4333,11 +4333,11 @@ begin
{$IFDEF HasPas2jsFiler}
if PrecompileFormats.Count>0 then
begin
l(' -JU<x> : Create precompiled units in format x.');
w(' -JU<x> : Create precompiled units in format x.');
for i:=0 to PrecompileFormats.Count-1 do
with PrecompileFormats[i] do
l(' -JU'+Ext+' : '+Description);
l(' -JU- : Disable prior -JU<x> option. Do not create precompiled units.');
w(' -JU'+Ext+' : '+Description);
w(' -JU- : Disable prior -JU<x> option. Do not create precompiled units.');
end;
{$ENDIF}
w(' -l : Write logo');

1
utils/pas2js/nodepas2js.pp
View File

@ -13,4 +13,5 @@ uses
begin
// Your code here
end.