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

* fix #40331: for enumeration with holes (that don't have type information) use the binary comparers

Browse Source 
+ added test
This commit is contained in:
Sven/Sarah Barth 2023-06-30 16:30:46 +02:00
parent 82857174cc
commit d5c1533377
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2180,7 +2180,8 @@ end;
class function TComparerService.TypeNeedsBinaryMethods<T>: Boolean; class function TComparerService.TypeNeedsBinaryMethods<T>: Boolean;
begin begin
Result := GetTypeKind(T) in TComparerService.UseBinaryMethods; Result := (GetTypeKind(T) in TComparerService.UseBinaryMethods) or
((GetTypeKind(T) = tkEnumeration) and not Assigned(TypeInfo(T)));
end; end;
class function TComparerService.LookupComparer(ATypeInfo: PTypeInfo; ASize: SizeInt): Pointer; class function TComparerService.LookupComparer(ATypeInfo: PTypeInfo; ASize: SizeInt): Pointer;

13
tests/webtbs/tw40331.pp Normal file
View File

@ -0,0 +1,13 @@
program tw40331;
{$mode delphi}
uses Generics.Defaults;
type
SomeEnum = (zero = 0, two = 2);
var
z: IEqualityComparer<SomeEnum>;
begin
z:= TEqualityComparer<SomeEnum>.Default;
WriteLn('Done');
//ReadLn;
end.