URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
| Rev 304 |
Rev 384 |
package Discr20 is
|
package Discr20 is
|
|
|
Size : Integer;
|
Size : Integer;
|
|
|
type Name is new String (1..Size);
|
type Name is new String (1..Size);
|
|
|
type Rec is record
|
type Rec is record
|
It : Name;
|
It : Name;
|
end record;
|
end record;
|
|
|
type Danger is (This, That);
|
type Danger is (This, That);
|
type def (X : Danger := This) is record
|
type def (X : Danger := This) is record
|
case X is
|
case X is
|
when This => It : Rec;
|
when This => It : Rec;
|
when That => null;
|
when That => null;
|
end case;
|
end case;
|
end record;
|
end record;
|
|
|
type Switch is (On, Off);
|
type Switch is (On, Off);
|
type Wrapper (Disc : Switch := On) is private;
|
type Wrapper (Disc : Switch := On) is private;
|
function Get (X : Wrapper) return Def;
|
function Get (X : Wrapper) return Def;
|
|
|
private
|
private
|
type Wrapper (Disc : Switch := On) is record
|
type Wrapper (Disc : Switch := On) is record
|
Case Disc is
|
Case Disc is
|
when On => It : Def;
|
when On => It : Def;
|
when Off => null;
|
when Off => null;
|
end case;
|
end case;
|
end record;
|
end record;
|
|
|
end Discr20;
|
end Discr20;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.