URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
-- PR ada/28591
|
-- PR ada/28591
|
-- Reported by Martin Michlmayr <tbm@cyrius.com>
|
-- Reported by Martin Michlmayr <tbm@cyrius.com>
|
|
|
-- { dg-do compile }
|
-- { dg-do compile }
|
-- { dg-options "-g" }
|
-- { dg-options "-g" }
|
|
|
with Interfaces; use Interfaces;
|
with Interfaces; use Interfaces;
|
|
|
package Unchecked_Union is
|
package Unchecked_Union is
|
type Mode_Type is (Mode_B2);
|
type Mode_Type is (Mode_B2);
|
|
|
type Value_Union (Mode : Mode_Type := Mode_B2) is record
|
type Value_Union (Mode : Mode_Type := Mode_B2) is record
|
case Mode is
|
case Mode is
|
when Mode_B2 =>
|
when Mode_B2 =>
|
B2 : Integer_32;
|
B2 : Integer_32;
|
end case;
|
end case;
|
end record;
|
end record;
|
pragma Unchecked_Union (Value_Union);
|
pragma Unchecked_Union (Value_Union);
|
|
|
end Unchecked_Union;
|
end Unchecked_Union;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.