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 |
-- { dg-excess-errors "no code generated" }
|
-- { dg-excess-errors "no code generated" }
|
|
|
with Varsize_Return_Pkg2;
|
with Varsize_Return_Pkg2;
|
|
|
generic
|
generic
|
type Id_T is range <>;
|
type Id_T is range <>;
|
package Varsize_Return_Pkg1 is
|
package Varsize_Return_Pkg1 is
|
|
|
type Variable_Data_T (Fixed : Boolean := False) is
|
type Variable_Data_T (Fixed : Boolean := False) is
|
record
|
record
|
case Fixed is
|
case Fixed is
|
when True =>
|
when True =>
|
Length : Natural;
|
Length : Natural;
|
when False =>
|
when False =>
|
null;
|
null;
|
end case;
|
end case;
|
end record;
|
end record;
|
|
|
function Is_Fixed return Boolean;
|
function Is_Fixed return Boolean;
|
|
|
type Variable_Data_Fixed_T is new Variable_Data_T (Is_Fixed);
|
type Variable_Data_Fixed_T is new Variable_Data_T (Is_Fixed);
|
|
|
package Db is new Varsize_Return_Pkg2 (Id_T => Id_T,
|
package Db is new Varsize_Return_Pkg2 (Id_T => Id_T,
|
Data_T => Variable_Data_Fixed_T);
|
Data_T => Variable_Data_Fixed_T);
|
|
|
end Varsize_Return_Pkg1;
|
end Varsize_Return_Pkg1;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.