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

* ensure that _LookupVtableInfoEx isn't called with a type that needs special handling as we can't (or won't) really cover that using some generic RTTI handling

Browse Source
This commit is contained in:
Sven/Sarah Barth 2023-03-28 23:13:34 +02:00
parent 939f7345ac
commit db66d8f057
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3382,6 +3382,10 @@ end;
function _LookupVtableInfoEx(AGInterface: TDefaultGenericInterface; ATypeInfo: PTypeInfo; ASize: SizeInt;
AFactory: THashFactoryClass): Pointer;
begin
if ATypeInfo^.Kind in TComparerService.UseBinaryMethods then begin
System.Error(reInvalidCast);
Exit(Nil);
end;
case AGInterface of
giComparer:
Exit(