mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02: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 -
27 lines
256 B
ObjectPascal
27 lines
256 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tgeneric90;
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
TTest = record
|
|
|
|
end;
|
|
|
|
TTest<T> = record
|
|
|
|
end;
|
|
|
|
TTest<T, S> = record
|
|
|
|
end;
|
|
|
|
PTestLongInt = ^TTest<LongInt>;
|
|
PTestLongIntLongInt = ^TTest<LongInt, LongInt>;
|
|
PTest = ^TTest;
|
|
|
|
begin
|
|
|
|
end.
|