URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
package OCONST5 is
|
package OCONST5 is
|
|
|
type u1 is mod 2**1;
|
type u1 is mod 2**1;
|
type u8 is mod 2**8;
|
type u8 is mod 2**8;
|
|
|
type HI_Record is record
|
type HI_Record is record
|
A, B : U8;
|
A, B : U8;
|
end record;
|
end record;
|
pragma Suppress_Initialization (HI_Record);
|
pragma Suppress_Initialization (HI_Record);
|
|
|
type R is record
|
type R is record
|
Bit : U1;
|
Bit : U1;
|
Agg : HI_Record;
|
Agg : HI_Record;
|
end record;
|
end record;
|
pragma Suppress_Initialization (R);
|
pragma Suppress_Initialization (R);
|
|
|
for R use record
|
for R use record
|
Bit at 0 range 0 .. 0;
|
Bit at 0 range 0 .. 0;
|
Agg at 0 range 1 .. 16;
|
Agg at 0 range 1 .. 16;
|
end record;
|
end record;
|
|
|
My_R0 : R := (Bit => 0, Agg => (A => 3, B => 7));
|
My_R0 : R := (Bit => 0, Agg => (A => 3, B => 7));
|
My_R1 : R := (Bit => 1, Agg => (A => 3, B => 7));
|
My_R1 : R := (Bit => 1, Agg => (A => 3, B => 7));
|
|
|
procedure Check (Arg : R; Bit : U1);
|
procedure Check (Arg : R; Bit : U1);
|
|
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.