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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [volatile10_pkg.ads] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 696 jeremybenn 
package Volatile10_Pkg is
2 
 
3 
   type Num is mod 2**9;
4 
 
5 
   type Rec is record
6 
      B1  : Boolean;
7 
      N1  : Num;
8 
      B2  : Boolean;
9 
      N2  : Num;
10 
      B3  : Boolean;
11 
      B4  : Boolean;
12 
      B5  : Boolean;
13 
      B6  : Boolean;
14 
      B7  : Boolean;
15 
      B8  : Boolean;
16 
      B9  : Boolean;
17 
      B10 : Boolean;
18 
      B11 : Boolean;
19 
      B12 : Boolean;
20 
      B13 : Boolean;
21 
      B14 : Boolean;
22 
   end record;
23 
   pragma Pack (Rec);
24 
   for Rec'Size use 32;
25 
   pragma Volatile(Rec);
26 
 
27 
   function F return Rec;
28 
 
29 
end Volatile10_Pkg;

powered by: WebSVN 2.1.0

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