From 57c79acf3f06bf0219bfbd9770402d1d19db9a39 Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Mon, 12 Feb 2018 12:01:39 +0000
Subject: [PATCH] fcl-passrc: made TPasProperty.Args readonly

git-svn-id: trunk@38221 -
---
 packages/fcl-passrc/src/pastree.pp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-passrc/src/pastree.pp b/packages/fcl-passrc/src/pastree.pp
index 6bbf489b8f..ce0a412706 100644
--- a/packages/fcl-passrc/src/pastree.pp
+++ b/packages/fcl-passrc/src/pastree.pp
@@ -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));