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

Compare with Previous | Blame | View Log

package OCONST3 is
 
  type bit is (zero, one);
  type u8 is mod 2**8;
 
  type Base is record
    i1 : Integer;
  end Record;
 
  type R is record
    u : u8;
    f : bit;
    b : Base;
  end record;
 
  for R use record
    u at 0 range 0 .. 7;
    f at 1 range 0 .. 0;
    b at 1 range 1 .. 32;  -- unaligned SImode bitfield
  end record;
 
  My_R : constant R := (u=>1, f=>one, b=>(i1=>3));
 
  procedure check (arg : R);
 
end;
 

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.