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/] [atomic1_pkg.ads] - Rev 304

Compare with Previous | Blame | View Log

package Atomic1_Pkg is
 
   type Four_Bits is mod 2 ** 4;
 
   type R16 is record
      F1 : Four_Bits;
      F2 : Four_Bits;
      F3 : Four_Bits;
      F4 : Four_Bits;
   end record;
   for R16 use record
      F1 at 0 range 0  ..  3;
      F2 at 0 range 4  ..  7;
      F3 at 0 range 8  .. 11;
      F4 at 0 range 12 .. 15;
   end record;
 
   type R32 is record
      F1 : Four_Bits;
      F2 : Four_Bits;
      F3 : Four_Bits;
      F4 : Four_Bits;
      F5 : Four_Bits;
      F6 : Four_Bits;
      F7 : Four_Bits;
      F8 : Four_Bits;
   end record;
   for R32 use record
      F1 at 0 range 0  ..  3;
      F2 at 0 range 4  ..  7;
      F3 at 0 range 8  .. 11;
      F4 at 0 range 12 .. 15;
      F5 at 0 range 16 .. 19;
      F6 at 0 range 20 .. 23;
      F7 at 0 range 24 .. 27;
      F8 at 0 range 28 .. 31;
   end record;
 
   C_16 : constant R16 := (2, 3, 5, 7);
   C_32 : constant R32 := (1, 1, 2, 3, 5, 8, 13, 5);
 
   V_16 : R16;
   pragma Atomic (V_16);
   V_32 : R32;
   pragma Atomic (V_32);
 
end Atomic1_Pkg;
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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