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 384 |
|
|
package Ifaces is
|
package Ifaces is
|
type Iface_1 is interface;
|
type Iface_1 is interface;
|
procedure op1(this : Iface_1) is abstract;
|
procedure op1(this : Iface_1) is abstract;
|
--
|
--
|
type Iface_2 is interface;
|
type Iface_2 is interface;
|
procedure op2 (this : Iface_2) is abstract;
|
procedure op2 (this : Iface_2) is abstract;
|
--
|
--
|
type Root is new Iface_1 with record
|
type Root is new Iface_1 with record
|
m_name : String(1..4);
|
m_name : String(1..4);
|
end record;
|
end record;
|
--
|
--
|
procedure op1 (this : Root);
|
procedure op1 (this : Root);
|
--
|
--
|
type DT is new Root and Iface_2 with null record;
|
type DT is new Root and Iface_2 with null record;
|
procedure op2 (this : DT);
|
procedure op2 (this : DT);
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.