OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [bit_packed_array.ads] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
with Interfaces;
2
 
3
package Bit_Packed_Array is
4
 
5
   type laser_illuminator_code_group_t is (zero, one);
6
   pragma Convention (C, laser_illuminator_code_group_t);
7
 
8
   subtype lic_array_index_t is Interfaces.Unsigned_8 range 0 .. 3;
9
 
10
   type lic_array_t is array (lic_array_index_t) of laser_illuminator_code_group_t;
11
   pragma Convention (C, lic_array_t);
12
 
13
   type Eighty_Bytes_T is array (1 .. 80) of Interfaces.Unsigned_8;
14
 
15
   type Mission_Assignment_T is record
16
      Eighty_Bytes           : Eighty_Bytes_T;
17
      Laser_Illuminator_Code : lic_array_t;
18
   end record;
19
 
20
   for Mission_Assignment_T use record
21
      Eighty_Bytes           at 0 range   0 .. 639;
22
      Laser_Illuminator_Code at 0 range 653 .. 780;
23
   end record;
24
 
25
   type Mission_Assignment_Dbase_Rec_T is record
26
      ISF : Mission_Assignment_T;
27
   end record;
28
 
29
   MADR : Mission_Assignment_Dbase_Rec_T;
30
 
31
   procedure Generate_Callforward;
32
 
33
end Bit_Packed_Array;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.