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 |
generic
|
generic
|
|
|
type T is (<>);
|
type T is (<>);
|
with function MAX_ADD(X : T; I : INTEGER) return T;
|
with function MAX_ADD(X : T; I : INTEGER) return T;
|
|
|
package Discr16_G is
|
package Discr16_G is
|
|
|
LO : T := T'val(T'pos(T'first));
|
LO : T := T'val(T'pos(T'first));
|
HI : T := T'val(T'pos(MAX_ADD(LO, 15)));
|
HI : T := T'val(T'pos(MAX_ADD(LO, 15)));
|
|
|
type A2 is array(T range <>) of T;
|
type A2 is array(T range <>) of T;
|
|
|
type R2(D : T) is
|
type R2(D : T) is
|
record
|
record
|
C : A2(LO..D);
|
C : A2(LO..D);
|
end record;
|
end record;
|
|
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.