From 5e7291af15e0e24f74cc5ccbf45d64df10d20630 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 27 Jan 2021 11:42:34 +0000
Subject: [PATCH] * Patch from Bart Broersma to introduce protected data
 property

git-svn-id: trunk@48436 -
---
 packages/fcl-stl/src/gdeque.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-stl/src/gdeque.pp b/packages/fcl-stl/src/gdeque.pp
index 8ff8ad0d80..ac106e5581 100644
--- a/packages/fcl-stl/src/gdeque.pp
+++ b/packages/fcl-stl/src/gdeque.pp
@@ -42,6 +42,7 @@ type
     procedure MoveData(StartIndex: SizeUInt; Offset: SizeInt; NrElems: SizeUInt);
     procedure ClearSingleDataEntry(Index: SizeUInt); virtual;
     procedure ClearData; virtual;
+    property Data: TArr read FData;
   public
     function Size():SizeUInt;inline;
     constructor Create();