From 4c95e9fce5f13ae65049abf8b4ac504891358560 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 17 Aug 2011 11:47:41 +0000
Subject: [PATCH] * commented pdata type as proposed in #20004 by Michalis
 Kamburelis, resolves #20004

git-svn-id: trunk@18244 -
---
 rtl/objpas/fgl.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/fgl.pp b/rtl/objpas/fgl.pp
index 2531a320ce..4b55fe16e8 100644
--- a/rtl/objpas/fgl.pp
+++ b/rtl/objpas/fgl.pp
@@ -275,7 +275,7 @@ type
       TKeyCompareFunc = function(const Key1, Key2: TKey): Integer;
       TDataCompareFunc = function(const Data1, Data2: TData): Integer;
       PKey = ^TKey;
-      PData = ^TData;
+// unsed      PData = ^TData;
   {$ifndef OldSyntax}protected var{$else}var protected{$endif}
       FOnKeyCompare: TKeyCompareFunc;
       FOnDataCompare: TDataCompareFunc;
@@ -320,7 +320,7 @@ type
       TKeyCompareFunc = function(const Key1, Key2: TKey): Integer;
       TDataCompareFunc = function(const Data1, Data2: TData): Integer;
       PKey = ^TKey;
-      PData = ^TData;
+// unsed      PData = ^TData;
   {$ifndef OldSyntax}protected var{$else}var protected{$endif}
       FOnKeyCompare: TKeyCompareFunc;
       FOnDataCompare: TDataCompareFunc;