mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 17:48:01 +02:00
20 lines
238 B
ObjectPascal
20 lines
238 B
ObjectPascal
{$mode macpas}
|
|
|
|
type
|
|
tba = array[0..7] of boolean;
|
|
tkeymap = packed array[0..3] of tba;
|
|
|
|
procedure test(var b: tba);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
km: tkeymap;
|
|
i: longint;
|
|
a: tba;
|
|
begin
|
|
i := 1;
|
|
fillchar(a,sizeof(a),0);
|
|
km[i] := a;
|
|
end.
|