paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:30:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* binary compare data compared data1 with itself, mantis #22241 Patch by ...

Browse Source 
git-svn-id: trunk@21576 -
This commit is contained in:
marco 2012-06-10 09:30:11 +00:00
parent 64ac48c815
commit 262ff83658
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/fgl.pp
View File

@ -1164,7 +1164,7 @@ end;
function TFPSMap.BinaryCompareData(Data1, Data2: Pointer): Integer; function TFPSMap.BinaryCompareData(Data1, Data2: Pointer): Integer;
begin begin
Result := CompareByte(Data1^, Data1^, FDataSize); Result := CompareByte(Data1^, Data2^, FDataSize);
end; end;
procedure TFPSMap.SetOnKeyPtrCompare(Proc: TFPSListCompareFunc); procedure TFPSMap.SetOnKeyPtrCompare(Proc: TFPSListCompareFunc);