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 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
procedure Unaligned_Rep_Clause is
|
procedure Unaligned_Rep_Clause is
|
|
|
type One_Bit_Record is
|
type One_Bit_Record is
|
record
|
record
|
B : Boolean;
|
B : Boolean;
|
end record;
|
end record;
|
Pragma Pack(One_Bit_Record);
|
Pragma Pack(One_Bit_Record);
|
|
|
subtype Version_Number_Type is String (1 .. 3);
|
subtype Version_Number_Type is String (1 .. 3);
|
|
|
type Inter is
|
type Inter is
|
record
|
record
|
Version : Version_Number_Type;
|
Version : Version_Number_Type;
|
end record;
|
end record;
|
|
|
type Msg_Type is
|
type Msg_Type is
|
record
|
record
|
Status : One_Bit_Record;
|
Status : One_Bit_Record;
|
Version : Inter;
|
Version : Inter;
|
end record;
|
end record;
|
|
|
for Msg_Type use
|
for Msg_Type use
|
record
|
record
|
Status at 0 range 0 .. 0;
|
Status at 0 range 0 .. 0;
|
Version at 0 range 1 .. 24;
|
Version at 0 range 1 .. 24;
|
end record;
|
end record;
|
for Msg_Type'Size use 25;
|
for Msg_Type'Size use 25;
|
|
|
Data : Msg_Type;
|
Data : Msg_Type;
|
Pragma Warnings (Off, Data);
|
Pragma Warnings (Off, Data);
|
Version : Inter;
|
Version : Inter;
|
|
|
begin
|
begin
|
Version := Data.Version;
|
Version := Data.Version;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.