From 2b80ac13535cab40a47b1867fffbafc58d80bfe2 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 17 Jan 2016 09:21:07 +0000
Subject: [PATCH] * Fix bug ID #29415 (compilation with 2.6.4)

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

diff --git a/rtl/objpas/fgl.pp b/rtl/objpas/fgl.pp
index de17b60be9..5e57120e8b 100644
--- a/rtl/objpas/fgl.pp
+++ b/rtl/objpas/fgl.pp
@@ -1491,7 +1491,11 @@ begin
   if Result then
     AData := TData(inherited GetData(I)^)
   else
+{$IFDEF VER2_6}  
+    FillChar(AData,SizeOf(TData),0);
+{$ELSE}
     AData := Default(TData);
+{$ENDIF}    
 end;
 
 procedure TFPGMap.AddOrSetData(const AKey: TKey; const AData: TData);