mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-07 10:00:35 +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 -
19 lines
213 B
ObjectPascal
19 lines
213 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tgeneric87;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
generic TTest<T> = record
|
|
|
|
end;
|
|
|
|
const
|
|
TestLongIntNil: ^specialize TTest<LongInt> = Nil;
|
|
TestBooleanNil: ^specialize TTest<Boolean> = Nil;
|
|
|
|
begin
|
|
|
|
end.
|