paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 10:48:12 +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;
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];