mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-02 05:22:36 +02:00
8a31764a7b
integer registers, for homogeneous records/arrays on ppc64le (related to
mantis #36934)
git-svn-id: trunk@45205 -
(cherry picked from commit 722ad1ff7b)
60 lines
899 B
ObjectPascal
60 lines
899 B
ObjectPascal
type
|
|
TPointF = record
|
|
x,y,z,v,u: single;
|
|
end;
|
|
|
|
procedure test(pt1, pt2, pt3: TPointF);
|
|
begin
|
|
if pt1.x<>1.0 then
|
|
halt(1);
|
|
if pt1.y<>2.0 then
|
|
halt(2);
|
|
if pt1.z<>3.0 then
|
|
halt(3);
|
|
if pt1.u<>4.0 then
|
|
halt(4);
|
|
if pt1.v<>5.0 then
|
|
halt(5);
|
|
if pt2.x<>6.0 then
|
|
halt(6);
|
|
if pt2.y<>7.0 then
|
|
halt(7);
|
|
if pt2.z<>8.0 then
|
|
halt(8);
|
|
if pt2.u<>9.0 then
|
|
halt(9);
|
|
if pt2.v<>10.0 then
|
|
halt(10);
|
|
if pt3.x<>11.0 then
|
|
halt(11);
|
|
if pt3.y<>12.0 then
|
|
halt(12);
|
|
if pt3.z<>13.0 then
|
|
halt(13);
|
|
if pt3.u<>14.0 then
|
|
halt(14);
|
|
if pt3.v<>15.0 then
|
|
halt(15);
|
|
end;
|
|
|
|
var
|
|
p1,p2,p3,p4,t1,t2,t3,t4: tpointf;
|
|
begin
|
|
p1.x:=1.0;
|
|
p1.y:=2.0;
|
|
p1.z:=3.0;
|
|
p1.u:=4.0;
|
|
p1.v:=5.0;
|
|
p2.x:=6.0;
|
|
p2.y:=7.0;
|
|
p2.z:=8.0;
|
|
p2.u:=9.0;
|
|
p2.v:=10.0;
|
|
p3.x:=11.0;
|
|
p3.y:=12.0;
|
|
p3.z:=13.0;
|
|
p3.u:=14.0;
|
|
p3.v:=15.0;
|
|
test(p1,p2,p3);
|
|
end.
|