mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
8 lines
158 B
ObjectPascal
8 lines
158 B
ObjectPascal
{$mode macpas}
|
|
program test;
|
|
var r: record field: packed array [0..1] of byte; b: byte; end;
|
|
procedure p(a: pointer); begin end;
|
|
begin p(@r.field[0]);
|
|
end.
|
|
|