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

pastojs: fixed concat(a) calling arrayRef

Browse Source
This commit is contained in:
mattias 2020-09-01 22:05:50 +00:00
parent 7a2a694685
commit 9720420ef2
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/packages/pastojs/src/fppas2js.pp
View File

@ -11930,7 +11930,7 @@ begin
{$IFDEF VerbosePas2JS}
writeln('TPasToJSConverter.ConvertBuiltInConcatArray Count=',length(El.Params));
{$ENDIF}
Result:=ConvertExpression(Param0,AContext);
Result:=CreateArrayRef(El,ConvertExpression(Param0,AContext));
end
else
begin
@ -15881,6 +15881,8 @@ function TPasToJSConverter.CreateArrayRef(El: TPasElement; ArrayExpr: TJSElement
var
Call: TJSCallExpression;
begin
if ArrayExpr is TJSArrayLiteral then
exit(ArrayExpr);
Call:=CreateCallExpression(El);
Call.Expr:=CreateMemberExpression([GetBIName(pbivnRTL),GetBIName(pbifnArray_Reference)]);
Call.AddArg(ArrayExpr);

8
compiler/packages/pastojs/tests/tcmodules.pas
View File

@ -9559,16 +9559,16 @@ begin
'this.ArrJSValue = [];',
'']),
LinesToStr([ // $mod.$main
'$mod.ArrInt = $mod.ArrInt;',
'$mod.ArrInt = rtl.arrayRef($mod.ArrInt);',
'$mod.ArrInt = rtl.arrayConcatN($mod.ArrInt, $mod.ArrInt);',
'$mod.ArrInt = rtl.arrayConcatN($mod.ArrInt, $mod.ArrInt, $mod.ArrInt);',
'$mod.ArrRec = $mod.ArrRec;',
'$mod.ArrRec = rtl.arrayRef($mod.ArrRec);',
'$mod.ArrRec = rtl.arrayConcat($mod.TRec, $mod.ArrRec, $mod.ArrRec);',
'$mod.ArrRec = rtl.arrayConcat($mod.TRec, $mod.ArrRec, $mod.ArrRec, $mod.ArrRec);',
'$mod.ArrSet = $mod.ArrSet;',
'$mod.ArrSet = rtl.arrayRef($mod.ArrSet);',
'$mod.ArrSet = rtl.arrayConcat("refSet", $mod.ArrSet, $mod.ArrSet);',
'$mod.ArrSet = rtl.arrayConcat("refSet", $mod.ArrSet, $mod.ArrSet, $mod.ArrSet);',
'$mod.ArrJSValue = $mod.ArrJSValue;',
'$mod.ArrJSValue = rtl.arrayRef($mod.ArrJSValue);',
'$mod.ArrJSValue = rtl.arrayConcatN($mod.ArrJSValue, $mod.ArrJSValue);',
'$mod.ArrJSValue = rtl.arrayConcatN($mod.ArrJSValue, $mod.ArrJSValue, $mod.ArrJSValue);',
'$mod.ArrInt = rtl.arrayConcatN([1], $mod.ArrInt);',

2
compiler/utils/pas2js/dist/rtl.js vendored
View File

@ -944,7 +944,7 @@ var rtl = {
var src = arguments[i];
if (src === null) continue;
if (a===null){
a=src; // Note: concat(a) does not clone
a=rtl.arrayRef(src); // Note: concat(a) does not clone
} else {
a=a.concat(src);
}