paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't use GetTypeData() when ATypeInfo is Nil

Browse Source 
git-svn-id: trunk@49063 -
(cherry picked from commit 57e040cb82)
This commit is contained in:
svenbarth 2021-03-27 09:35:02 +00:00 committed by marcoonthegit
parent 638b81dcaa
commit b0533c4ccb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-generics/src/generics.defaults.pas
View File

@ -2163,7 +2163,7 @@ var
LInstance: PInstance; LInstance: PInstance;
begin begin
if ATypeInfo = nil then if ATypeInfo = nil then
Exit(SelectBinaryComparer(GetTypeData(ATypeInfo), ASize)) Exit(SelectBinaryComparer(Nil, ASize))
else else
begin begin
LInstance := @ComparerInstances[ATypeInfo.Kind]; LInstance := @ComparerInstances[ATypeInfo.Kind];
@ -2279,7 +2279,7 @@ var
LSelectMethod: TSelectMethod; LSelectMethod: TSelectMethod;
begin begin
if ATypeInfo = nil then if ATypeInfo = nil then
Exit(SelectBinaryEqualityComparer(GetTypeData(ATypeInfo), ASize)) Exit(SelectBinaryEqualityComparer(Nil, ASize))
else else
begin begin
LInstance := @FEqualityComparerInstances[ATypeInfo.Kind]; LInstance := @FEqualityComparerInstances[ATypeInfo.Kind];
@ -2492,7 +2492,7 @@ var
LSelectMethod: TSelectMethod; LSelectMethod: TSelectMethod;
begin begin
if ATypeInfo = nil then if ATypeInfo = nil then
Exit(SelectBinaryEqualityComparer(GetTypeData(ATypeInfo), ASize)) Exit(SelectBinaryEqualityComparer(Nil, ASize))
else else
begin begin
LInstance := @FExtendedEqualityComparerInstances[ATypeInfo.Kind]; LInstance := @FExtendedEqualityComparerInstances[ATypeInfo.Kind];