From b0533c4ccb5a7e43dccdc1c4e497d27c0e30e2c2 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sat, 27 Mar 2021 09:35:02 +0000
Subject: [PATCH] * don't use GetTypeData() when ATypeInfo is Nil
git-svn-id: trunk@49063 -
(cherry picked from commit 57e040cb8234aac29a28a76a2befe3f46eb35faf)
---
packages/rtl-generics/src/generics.defaults.pas | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/packages/rtl-generics/src/generics.defaults.pas b/packages/rtl-generics/src/generics.defaults.pas
index db04e0c7d0..5537fd696e 100644
--- a/packages/rtl-generics/src/generics.defaults.pas
+++ b/packages/rtl-generics/src/generics.defaults.pas
@@ -2163,7 +2163,7 @@ var
LInstance: PInstance;
begin
if ATypeInfo = nil then
- Exit(SelectBinaryComparer(GetTypeData(ATypeInfo), ASize))
+ Exit(SelectBinaryComparer(Nil, ASize))
else
begin
LInstance := @ComparerInstances[ATypeInfo.Kind];
@@ -2279,7 +2279,7 @@ var
LSelectMethod: TSelectMethod;
begin
if ATypeInfo = nil then
- Exit(SelectBinaryEqualityComparer(GetTypeData(ATypeInfo), ASize))
+ Exit(SelectBinaryEqualityComparer(Nil, ASize))
else
begin
LInstance := @FEqualityComparerInstances[ATypeInfo.Kind];
@@ -2492,7 +2492,7 @@ var
LSelectMethod: TSelectMethod;
begin
if ATypeInfo = nil then
- Exit(SelectBinaryEqualityComparer(GetTypeData(ATypeInfo), ASize))
+ Exit(SelectBinaryEqualityComparer(Nil, ASize))
else
begin
LInstance := @FExtendedEqualityComparerInstances[ATypeInfo.Kind];