summaryrefslogtreecommitdiff
path: root/packages/pastojs/src/fppas2js.pp
diff options
context:
space:
mode:
Diffstat (limited to 'packages/pastojs/src/fppas2js.pp')
-rw-r--r--packages/pastojs/src/fppas2js.pp6
1 files changed, 5 insertions, 1 deletions
diff --git a/packages/pastojs/src/fppas2js.pp b/packages/pastojs/src/fppas2js.pp
index 53315c08b0..be4f36ceed 100644
--- a/packages/pastojs/src/fppas2js.pp
+++ b/packages/pastojs/src/fppas2js.pp
@@ -15848,11 +15848,15 @@ begin
else if ExprResolved.BaseType in btAllStringAndChars then
begin
US:=StrToJSString(aResolver.ComputeConstString(Expr,false,true));
- ArrLit:=TJSArrayLiteral(CreateElement(TJSArrayLiteral,El));
+ ArrLit:=TJSArrayLiteral(CreateElement(TJSArrayLiteral,Expr));
Result:=ArrLit;
for i:=1 to length(US) do
ArrLit.Elements.AddElement.Expr:=CreateLiteralJSString(Expr,US[i]);
end
+ else if ExprResolved.BaseType=btNil then
+ begin
+ Result:=TJSArrayLiteral(CreateElement(TJSArrayLiteral,Expr));
+ end
else
RaiseNotSupported(Expr,AContext,20170223133034);
end