paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 16:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ensure that the ATypeInfo parameter is valid before checking it

Browse Source
This commit is contained in:
Sven/Sarah Barth 2023-06-30 16:26:16 +02:00
parent 8592d42afa
commit 574d07041e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3382,7 +3382,7 @@ end;
function _LookupVtableInfoEx(AGInterface: TDefaultGenericInterface; ATypeInfo: PTypeInfo; ASize: SizeInt;
AFactory: THashFactoryClass): Pointer;
begin
if ATypeInfo^.Kind in TComparerService.UseBinaryMethods then begin
if not Assigned(ATypeInfo) or (ATypeInfo^.Kind in TComparerService.UseBinaryMethods) then begin
System.Error(reInvalidCast);
Exit(Nil);
end;