mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-07 11:20:32 +01:00
7be4e20307
be held in one kind of register to a type that can be held in another kind
of register (mantis #25361)
git-svn-id: trunk@26128 -
18 lines
163 B
ObjectPascal
18 lines
163 B
ObjectPascal
{ %norun }
|
|
|
|
type
|
|
float64=record
|
|
high,low: longint;
|
|
end;
|
|
|
|
procedure foo(x: double);
|
|
var
|
|
a: float64 absolute x;
|
|
begin
|
|
writeln(a.low);
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|