mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 15:08:06 +02:00
db77aad2cc
into integer registers (a record that consists of 4 32 bit floats is
returned in 2 xmm registers on x86_64) (mantis #30329)
git-svn-id: trunk@34058 -
33 lines
526 B
ObjectPascal
33 lines
526 B
ObjectPascal
program TestOutbox2d;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
TGF2DPoint = array[0..1] of Single;
|
|
|
|
TGF2DOutbox = packed record
|
|
FMin, FMax: TGF2DPoint;
|
|
end;
|
|
|
|
function Some2DOutbox : TGF2DOutbox;
|
|
begin
|
|
Result.FMin[0]:=1.0;
|
|
Result.FMin[1]:=2.0;
|
|
Result.FMax[0]:=3.0;
|
|
Result.FMax[1]:=4.0;
|
|
end;
|
|
|
|
|
|
var
|
|
Outbox : TGF2DOutbox;
|
|
begin
|
|
Outbox:=Some2DOutbox;
|
|
with outbox do
|
|
if (fmin[0]<>1.0) or
|
|
(fmin[1]<>2.0) or
|
|
(fmax[0]<>3.0) or
|
|
(fmax[1]<>4.0) then
|
|
halt(1);
|
|
end.
|
|
|