Subversion Repositories openrisc

package OCONST5 is

  type u1 is mod 2**1;

  type u8 is mod 2**8;

  type HI_Record is record

    A, B : U8;

  end record;

  pragma Suppress_Initialization (HI_Record);

  type R is record

     Bit : U1;

     Agg : HI_Record;

  end record;

  pragma Suppress_Initialization (R);

  for R use record

     Bit at 0 range  0 .. 0;

     Agg at 0 range  1 .. 16;

  end record;

  My_R0 : R := (Bit => 0, Agg => (A => 3, B => 7));

  My_R1 : R := (Bit => 1, Agg => (A => 3, B => 7));

  procedure Check (Arg : R; Bit : U1);

end;