blob: f7e31621551cc513e2045dd1346dc2c10ae1e87e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
-- { dg-do compile }
with Ada.Streams; use Ada.Streams;
procedure Addr9_3 is
type Signal_Type is mod 2 ** 16;
type A_Item is record
I : Signal_Type;
Q : Signal_Type;
end record
with Size => 32;
for A_Item use record
I at 0 range 0 .. 15;
Q at 2 range 0 .. 15;
end record;
type A_Array_Type is
array (Positive range <>)
of A_Item
with Alignment => 16;
pragma Pack (A_Array_Type);
type B_Array_Type is new Ada.Streams.Stream_Element_Array
with Alignment => 16;
Ct_Count : constant := 7_000;
package Set is
A : aliased A_Array_Type := (1 .. Ct_Count => <>);
B : B_Array_Type := (1 .. Ct_Count * A_Item'Size / 8 => <>);
for B'Address use A'Address;
end Set;
begin
null;
end;
|
