Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gnat.dg/sso8_pkg.ads @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 84e7813d76e9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 with Interfaces;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 with System;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 with Unchecked_Conversion;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 package SSO8_Pkg is
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 Val8 : Interfaces.Unsigned_8;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 type Two_Bit_Int is range 0 .. 3;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 for Two_Bit_Int'size use 2;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 type Arr is array (1 .. 5) of Boolean;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13 for Arr'scalar_storage_order use System.High_Order_First;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 pragma Pack (Arr);
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 type Rec is record
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17 Boolean_Data : Boolean;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 Array_Data : Arr;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 Two_Bit_Data : Two_Bit_Int;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 end record;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 for Rec use record
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 Boolean_Data at 0 range 0 .. 0;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 Array_Data at 0 range 1 .. 5;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 Two_Bit_Data at 0 range 6 .. 7;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 end record;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26 for Rec'size use 8;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 for Rec'bit_order use System.High_Order_First;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28 for Rec'scalar_storage_order use System.High_Order_First;
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
30 function Conv is new Unchecked_Conversion (Rec, Interfaces.Unsigned_8);
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
31
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
32 end SSO8_Pkg;