mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
16774350d7
pgenutil.pas, generate_specialization: * first check whether we can reuse the current specialization or another specialization and only /then/ retrieve the symtable to specialize to + added test git-svn-id: trunk@28705 -
28 lines
306 B
ObjectPascal
28 lines
306 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw26749;
|
|
|
|
{$mode delphi}
|
|
{$modeswitch advancedrecords}
|
|
|
|
type
|
|
|
|
{ TVector3 }
|
|
|
|
TVector3<T> = record
|
|
class function null : TVector3<T>; static;
|
|
end;
|
|
|
|
TLine<T> = array[0..1] of TVector3<T>;
|
|
|
|
{ TVector3<T> }
|
|
|
|
class function TVector3<T>.null : TVector3<T>;
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|