paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 20:40:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-js: TJSCallExpression.InsertArg

Browse Source 
git-svn-id: trunk@47271 -
This commit is contained in:
Mattias Gaertner 2020-11-01 18:30:56 +00:00
parent 5c119d5f67
commit 04de97bc09
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-js/src/jstree.pp
View File

@ -230,7 +230,7 @@ Type
Property Elements[AIndex : Integer] : TJSArrayLiteralElement Read GetE ; default;
end;
{ TJSArrayLiteral - [element1,...] }
{ TJSArrayLiteral - [element1,...] or Args of a function }
TJSArrayLiteral = Class(TJSElement)
private
@ -328,6 +328,7 @@ Type
Public
Destructor Destroy; override;
procedure AddArg(El: TJSElement);
procedure InsertArg(Index: integer; El: TJSElement);
Property Expr : TJSElement Read FExpr Write FExpr;
Property Args : TJSArguments Read FArgs Write FArgs;
end;
@ -1698,6 +1699,14 @@ begin
Args.Elements.AddElement.Expr:=El;
end;
procedure TJSCallExpression.InsertArg(Index: integer; El: TJSElement);
var
NewEl: TJSArrayLiteralElement;
begin
NewEl:=TJSArrayLiteralElement(Args.Elements.Insert(Index));
NewEl.Expr:=El;
end;
{ TJSUnary }
Class function TJSUnary.PrefixOperatorToken: tjsToken;