mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 00:49:31 +02:00
bb00c76fe7
symdef.pas: * tobjectdef.find_implemented_interface: use equal_defs to ensure that equal specializations of interfaces are found as well * getparaencoding: use globals.CP_NONE instead of just CP_NONE, because defcmp contains a cp_none enum as well. + added test git-svn-id: trunk@25609 -
17 lines
187 B
ObjectPascal
17 lines
187 B
ObjectPascal
unit uw21015;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
type
|
|
ITest<T> = interface
|
|
end;
|
|
|
|
TGenImpl<T> = class (TInterfacedObject,ITest<T>)
|
|
end;
|
|
|
|
IIntTest = Itest<Integer>;
|
|
implementation
|
|
|
|
end. |