git-svn-id: trunk@4589 -
@@ -3,13 +3,13 @@
{$mode macpas}
type
- tba = array[0..7] of boolean;
+ tba = packed array[0..7] of boolean;
tkeymap = packed array[0..3] of tba;
var
p: pointer;
km: tkeymap;
begin
- p := @km[2];
+ p := @km[2][3];
end.