From 82346563c118fa536cdc0b5472be1f2be0e74c6f Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 20 Aug 2020 12:06:14 +0000
Subject: [PATCH] * Add StoredAttribute class, bug ID #37602

git-svn-id: trunk@46506 -
---
 rtl/inc/objpas.inc  | 22 ++++++++++++++++++++++
 rtl/inc/objpash.inc | 13 +++++++++++++
 2 files changed, 35 insertions(+)

diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index d0beaba2f2..6207928a40 100644
--- a/rtl/inc/objpas.inc
+++ b/rtl/inc/objpas.inc
@@ -1172,6 +1172,28 @@
       inherited;
     end;
 
+{****************************************************************************
+                               TCustomStoredAttribute
+****************************************************************************}
+
+
+    constructor StoredAttribute.Create;
+    begin
+    end;
+
+
+    constructor  StoredAttribute.Create(Const aFlag : Boolean);
+    begin
+      FFlag:=aFlag;
+    end;
+
+
+
+    constructor StoredAttribute.Create(Const aName : string);
+    begin
+      FName:=aName;
+    end;
+
 
 {****************************************************************************
                              Exception Support
diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc
index 1ff5c7ac41..711969e897 100644
--- a/rtl/inc/objpash.inc
+++ b/rtl/inc/objpash.inc
@@ -444,6 +444,19 @@
        UnsafeAttribute = class(TCustomAttribute);
        RefAttribute = class(TCustomAttribute);
        VolatileAttribute = class(TCustomAttribute);
+       
+       StoredAttribute = Class(TCustomAttribute)
+       Private
+          FFlag : Boolean;
+          FName : String;
+       Public
+         Constructor Create; 
+         Constructor Create(Const aFlag : Boolean); 
+         Constructor Create(Const aName : String); 
+         Property Flag : Boolean Read FFlag;
+         Property Name : String Read FName; 
+       end;
+       
   
     Const
        ExceptProc : TExceptProc = Nil;