mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 08:39:33 +02:00
33 lines
470 B
ObjectPascal
33 lines
470 B
ObjectPascal
{$mode objfpc}
|
|
|
|
program test;
|
|
|
|
type
|
|
TVec2 = record
|
|
x, y: single;
|
|
end;
|
|
|
|
function ViewToWorld (x, y: single): TVec2; overload;
|
|
begin
|
|
result.x := x;
|
|
result.y := y;
|
|
end;
|
|
|
|
function ViewToWorld (pt: TVec2): TVec2; overload; inline;
|
|
begin
|
|
result := ViewToWorld(pt.x, pt.y);
|
|
end;
|
|
|
|
var
|
|
pt: TVec2;
|
|
begin
|
|
pt.x:=1.0;
|
|
pt.y:=2.0;
|
|
// ERROR: Internal error 2009112601
|
|
pt := ViewToWorld(pt);
|
|
if pt.x<>1.0 then
|
|
halt(1);
|
|
if pt.y<>2.0 then
|
|
halt(2);
|
|
end.
|