mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:27:59 +02:00
943a094683
symdef.pas, tprocdef: * defaultmangledname: don't use the potentially unassigned hp, but use - as intended - returndef if it is set (analog to the non-CRC part) + added test git-svn-id: trunk@29537 -
24 lines
306 B
ObjectPascal
24 lines
306 B
ObjectPascal
unit uw27320.Defaults;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
interface
|
|
|
|
type
|
|
IEqualityComparer<T> = interface
|
|
end;
|
|
|
|
TEqualityComparer<T> = class
|
|
public
|
|
class function Default: IEqualityComparer<T>; static;
|
|
end;
|
|
|
|
implementation
|
|
|
|
class function TEqualityComparer<T>.Default: IEqualityComparer<T>;
|
|
begin
|
|
end;
|
|
|
|
end.
|
|
|