paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 17:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: made TPasProperty.Args readonly

Browse Source 
git-svn-id: trunk@38221 -
This commit is contained in:
Mattias Gaertner 2018-02-12 12:01:39 +00:00
parent c1f368f8d9
commit 57c79acf3f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-passrc/src/pastree.pp
View File

@ -868,6 +868,7 @@ type
TPasProperty = class(TPasVariable)
private
FArgs: TFPList;
FResolvedType : TPasType;
function GetIsClass: boolean;
procedure SetIsClass(AValue: boolean);
@ -887,13 +888,13 @@ type
StoredAccessor: TPasExpr;
DefaultExpr: TPasExpr;
Args: TFPList; // List of TPasArgument objects
ReadAccessorName: string; // not used by resolver
WriteAccessorName: string; // not used by resolver
ImplementsName: string; // not used by resolver
StoredAccessorName: string; // not used by resolver
DispIDReadOnly,
IsDefault, IsNodefault: Boolean;
property Args: TFPList read FArgs; // List of TPasArgument objects
property IsClass: boolean read GetIsClass write SetIsClass;
Function ResolvedType : TPasType;
Function IndexValue : String;
@ -2846,7 +2847,7 @@ end;
constructor TPasProperty.Create(const AName: string; AParent: TPasElement);
begin
inherited Create(AName, AParent);
Args := TFPList.Create;
FArgs := TFPList.Create;
end;
destructor TPasProperty.Destroy;
@ -2855,7 +2856,7 @@ var
begin
for i := 0 to Args.Count - 1 do
TPasArgument(Args[i]).Release;
FreeAndNil(Args);
FreeAndNil(FArgs);
ReleaseAndNil(TPasElement(IndexExpr));
ReleaseAndNil(TPasElement(ReadAccessor));
ReleaseAndNil(TPasElement(WriteAccessor));