URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
-- { dg-do run }
|
-- { dg-do run }
|
|
|
procedure Outer_Agg_Bitfield_Constructor is
|
procedure Outer_Agg_Bitfield_Constructor is
|
|
|
type Mod_64 is mod 2 ** 64;
|
type Mod_64 is mod 2 ** 64;
|
for Mod_64'Size use 64;
|
for Mod_64'Size use 64;
|
|
|
type Uint_16 is range 0 .. 2 ** 16 - 1;
|
type Uint_16 is range 0 .. 2 ** 16 - 1;
|
for Uint_16'Size use 16;
|
for Uint_16'Size use 16;
|
|
|
type Values_Type is record
|
type Values_Type is record
|
M64 : Mod_64;
|
M64 : Mod_64;
|
U16 : Uint_16;
|
U16 : Uint_16;
|
end record;
|
end record;
|
|
|
for Values_Type use record
|
for Values_Type use record
|
M64 at 0 range 0 .. 63;
|
M64 at 0 range 0 .. 63;
|
U16 at 8 range 0 .. 15;
|
U16 at 8 range 0 .. 15;
|
end record;
|
end record;
|
|
|
type Wrapper_Type is record
|
type Wrapper_Type is record
|
Values : Values_Type;
|
Values : Values_Type;
|
end record;
|
end record;
|
|
|
for Wrapper_Type use record
|
for Wrapper_Type use record
|
Values at 0 range 0 .. 79;
|
Values at 0 range 0 .. 79;
|
end record;
|
end record;
|
|
|
M : constant := 2;
|
M : constant := 2;
|
U : constant := 4;
|
U : constant := 4;
|
|
|
W : Wrapper_Type := (Values => (M, U));
|
W : Wrapper_Type := (Values => (M, U));
|
|
|
procedure Check (O : Wrapper_Type) is
|
procedure Check (O : Wrapper_Type) is
|
begin
|
begin
|
if O.Values.M64 /= M or else O.Values.U16 /= U then
|
if O.Values.M64 /= M or else O.Values.U16 /= U then
|
raise Program_Error;
|
raise Program_Error;
|
end if;
|
end if;
|
end;
|
end;
|
begin
|
begin
|
Check (W);
|
Check (W);
|
end;
|
end;
|
|
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.