mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-30 20:20:47 +02:00
fcl-js: clean up
This commit is contained in:
parent
dfcbdd9aa6
commit
3b9035c946
@ -140,7 +140,6 @@ Type
|
||||
FResultType: TJSTypeDef;
|
||||
FTypedParams: TJSTypedParams;
|
||||
FGenericParams : TJSElementNodes;
|
||||
procedure SetParams(const AValue: TStrings);
|
||||
Public
|
||||
Constructor Create;
|
||||
Destructor Destroy; override;
|
||||
@ -3575,14 +3574,6 @@ end;
|
||||
|
||||
{ TJSFuncDef }
|
||||
|
||||
procedure TJSFuncDef.SetParams(const AValue: TStrings);
|
||||
begin
|
||||
if FParams=AValue then exit;
|
||||
FParams.Assign(AValue);
|
||||
TStringList(FParams).OwnsObjects:=True;
|
||||
end;
|
||||
|
||||
|
||||
constructor TJSFuncDef.Create;
|
||||
begin
|
||||
FParams:=TStringList.Create;
|
||||
|
Loading…
Reference in New Issue
Block a user