From 262ff836581fcebfc83abe81dc47c2e5eb7fe440 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 10 Jun 2012 09:30:11 +0000
Subject: [PATCH]  * binary compare data compared data1 with itself, mantis
 #22241 Patch by ...

git-svn-id: trunk@21576 -
---
 rtl/objpas/fgl.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/fgl.pp b/rtl/objpas/fgl.pp
index 1418c1cbb7..0b6670334f 100644
--- a/rtl/objpas/fgl.pp
+++ b/rtl/objpas/fgl.pp
@@ -1164,7 +1164,7 @@ end;
 
 function TFPSMap.BinaryCompareData(Data1, Data2: Pointer): Integer;
 begin
-  Result := CompareByte(Data1^, Data1^, FDataSize);
+  Result := CompareByte(Data1^, Data2^, FDataSize);
 end;
 
 procedure TFPSMap.SetOnKeyPtrCompare(Proc: TFPSListCompareFunc);