mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
39 lines
668 B
ObjectPascal
39 lines
668 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw31033;
|
|
|
|
{$MODESWITCH RESULT}
|
|
{$MODESWITCH ADVANCEDRECORDS}
|
|
|
|
Type
|
|
generic TGData<T> = record
|
|
public type
|
|
// FIXME: Compiler bug, details see:
|
|
// http://lists.freepascal.org/pipermail/fpc-pascal/2016-November/049444.html [^]
|
|
|
|
TSelf = specialize TGData<T>;
|
|
|
|
PSelf = ^TSelf;
|
|
|
|
public
|
|
d: T;
|
|
n: PSelf
|
|
end;
|
|
|
|
generic Function Init<T>: specialize TGData<T>.PSelf; forward;
|
|
|
|
generic Function Init<T>: specialize TGData<T>.PSelf;
|
|
Begin
|
|
new(result);
|
|
|
|
result^.d := default(T);
|
|
result^.n := nil
|
|
End;
|
|
|
|
var
|
|
t: ^specialize TGData<LongInt>;
|
|
Begin
|
|
t := specialize Init<LongInt>;
|
|
dispose(t);
|
|
End.
|