mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
719c29cf86
treats equal open arrays, open strings and arrays of const
(implicitly also open) as exactly matching (since you
cannot declare such types on their own, so they will
never match exactly)
* require that forward declared procedures match the
implementation exactly for both the parameters (with
the above modification) and result type (mantis
#10425 and the related webtbf/tw10425a.pp)
git-svn-id: trunk@9484 -
28 lines
358 B
ObjectPascal
28 lines
358 B
ObjectPascal
{ %norun }
|
|
{ %fail }
|
|
|
|
unit tw10425a;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
type
|
|
TFloat = double;
|
|
TPoint2D = record x,y:TFloat; end;
|
|
TRectangle = array [1..2] of TPoint2D;
|
|
|
|
TPoint2DArray = array of TPoint2D;
|
|
TPolygon2D = array of TPoint2D;
|
|
|
|
function AABB:TPoint2DArray; overload;
|
|
|
|
implementation
|
|
|
|
function AABB:TPolygon2D;
|
|
begin
|
|
end;
|
|
|
|
end.
|
|
|