URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
package OCONST3 is
|
package OCONST3 is
|
|
|
type bit is (zero, one);
|
type bit is (zero, one);
|
type u8 is mod 2**8;
|
type u8 is mod 2**8;
|
|
|
type Base is record
|
type Base is record
|
i1 : Integer;
|
i1 : Integer;
|
end Record;
|
end Record;
|
|
|
type R is record
|
type R is record
|
u : u8;
|
u : u8;
|
f : bit;
|
f : bit;
|
b : Base;
|
b : Base;
|
end record;
|
end record;
|
|
|
for R use record
|
for R use record
|
u at 0 range 0 .. 7;
|
u at 0 range 0 .. 7;
|
f at 1 range 0 .. 0;
|
f at 1 range 0 .. 0;
|
b at 1 range 1 .. 32; -- unaligned SImode bitfield
|
b at 1 range 1 .. 32; -- unaligned SImode bitfield
|
end record;
|
end record;
|
|
|
My_R : constant R := (u=>1, f=>one, b=>(i1=>3));
|
My_R : constant R := (u=>1, f=>one, b=>(i1=>3));
|
|
|
procedure check (arg : R);
|
procedure check (arg : R);
|
|
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.