mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:49:33 +02:00
66781b5526
ptype.pas: * record_dec: if parse_generic is given set current_genericdef + added test git-svn-id: trunk@31437 -
26 lines
649 B
ObjectPascal
26 lines
649 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw28530;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
generic TDistanceFunction<t> = function (x,y : t) : Extended;
|
|
|
|
generic PlanarCoordinate<t> = record
|
|
x,y : t;
|
|
d : specialize TDistanceFunction<t>;
|
|
end;
|
|
TScreenCoordinate = specialize PLanarCoordinate<word>;
|
|
TDiscreteCoordinate = specialize PlanarCoordinate<integer>;
|
|
TRealCoordinate = specialize PlanarCoordinate<extended>;
|
|
|
|
TScreenDistance = specialize TDistanceFunction<word>;
|
|
TDiscreteDistance = specialize TDistanceFunction<integer>;
|
|
TRealDistance = specialize TDistanceFunction<Extended>;
|
|
|
|
generic TPointSet<t> = array of specialize PlanarCoordinate<t>;
|
|
|
|
begin
|
|
end.
|