diff options
Diffstat (limited to 'packages/pastojs/src/fppas2js.pp')
-rw-r--r-- | packages/pastojs/src/fppas2js.pp | 6 |
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 |