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 }
|
|
|
with Unchecked_Conversion;
|
with Unchecked_Conversion;
|
|
|
package Static_Initializer3 is
|
package Static_Initializer3 is
|
|
|
type Byte is range 0 .. 16#FF#;
|
type Byte is range 0 .. 16#FF#;
|
for Byte'Size use 8;
|
for Byte'Size use 8;
|
|
|
type Word is range 0 .. 16#FFFF# ;
|
type Word is range 0 .. 16#FFFF# ;
|
for Word'Size use 16;
|
for Word'Size use 16;
|
|
|
type R is record
|
type R is record
|
b1 : Boolean;
|
b1 : Boolean;
|
b2 : Boolean;
|
b2 : Boolean;
|
end record;
|
end record;
|
for R use record
|
for R use record
|
b1 at 0 range 0..3;
|
b1 at 0 range 0..3;
|
b2 at 0 range 4..7;
|
b2 at 0 range 4..7;
|
end record;
|
end record;
|
for R'Size use 8;
|
for R'Size use 8;
|
|
|
function Conv is new Unchecked_Conversion (R, Byte);
|
function Conv is new Unchecked_Conversion (R, Byte);
|
|
|
C1 : constant Byte := Conv ((true, false));
|
C1 : constant Byte := Conv ((true, false));
|
|
|
C2 : constant Word := Word(C1);
|
C2 : constant Word := Word(C1);
|
|
|
end Static_Initializer3;
|
end Static_Initializer3;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.