mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-02 10:00:32 +01:00
cc65ac20c5
ptype.pas:
* read_named_type:
allow specializations for pointers in Delphi modes
* single_type:
correctly handle forwarddefs; as we can only specialize generics if
they are completely defined (srsym<>nil) we don't need to return a
forward def, but instead return the specialized def itself
+ added tests to "test" instead of "webtbs" as no explicit tests were given
in the report
git-svn-id: trunk@21689 -
18 lines
193 B
ObjectPascal
18 lines
193 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tgeneric88;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
generic TTest<T> = record
|
|
|
|
end;
|
|
|
|
PTestLongInt = ^specialize TTest<LongInt>;
|
|
PTestBoolean = ^specialize TTest<Boolean>;
|
|
|
|
begin
|
|
|
|
end.
|