URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
package Rep_Clause3 is
|
package Rep_Clause3 is
|
|
|
type Record1 is
|
type Record1 is
|
record
|
record
|
Page_Handle : Integer range 0 .. 255;
|
Page_Handle : Integer range 0 .. 255;
|
Page_Owner : Integer range 0 .. 15;
|
Page_Owner : Integer range 0 .. 15;
|
end record;
|
end record;
|
for Record1 use
|
for Record1 use
|
record
|
record
|
Page_Handle at 0 range 0 .. 15;
|
Page_Handle at 0 range 0 .. 15;
|
Page_Owner at 0 range 16 .. 19;
|
Page_Owner at 0 range 16 .. 19;
|
end record;
|
end record;
|
for Record1'Size use 20;
|
for Record1'Size use 20;
|
|
|
type Range_A is range 1 .. 7;
|
type Range_A is range 1 .. 7;
|
for Range_A'Size use 16;
|
for Range_A'Size use 16;
|
|
|
type Array_Type is array (Range_A) of Record1;
|
type Array_Type is array (Range_A) of Record1;
|
pragma Pack (Array_Type);
|
pragma Pack (Array_Type);
|
for Array_Type'Size use 7 * 20;
|
for Array_Type'Size use 7 * 20;
|
-- for array_Type'alignment use 1;
|
-- for array_Type'alignment use 1;
|
|
|
type Record2 is
|
type Record2 is
|
record
|
record
|
Page_Tree_Index : Range_A;
|
Page_Tree_Index : Range_A;
|
Page_Tree : Array_Type;
|
Page_Tree : Array_Type;
|
end record;
|
end record;
|
|
|
for Record2 use
|
for Record2 use
|
record
|
record
|
Page_Tree_Index at 0 range 0 .. 15;
|
Page_Tree_Index at 0 range 0 .. 15;
|
Page_Tree at 0 range 16 .. 15 + (7 * 20);
|
Page_Tree at 0 range 16 .. 15 + (7 * 20);
|
end record;
|
end record;
|
for Record2'Size use 16 + (7 * 20);
|
for Record2'Size use 16 + (7 * 20);
|
|
|
end Rep_Clause3;
|
end Rep_Clause3;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.