URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
with Discr12_Pkg; use Discr12_Pkg;
|
with Discr12_Pkg; use Discr12_Pkg;
|
|
|
procedure Discr13 is
|
procedure Discr13 is
|
|
|
function F1 return Integer is
|
function F1 return Integer is
|
begin
|
begin
|
return Dummy (1);
|
return Dummy (1);
|
end F1;
|
end F1;
|
|
|
protected type Poe (D3 : Integer := F1) is
|
protected type Poe (D3 : Integer := F1) is
|
entry E (D3 .. F1); -- F1 evaluated
|
entry E (D3 .. F1); -- F1 evaluated
|
function Is_Ok (D3 : Integer; E_First : Integer; E_Last : Integer) return Boolean;
|
function Is_Ok (D3 : Integer; E_First : Integer; E_Last : Integer) return Boolean;
|
end Poe;
|
end Poe;
|
|
|
protected body Poe is
|
protected body Poe is
|
entry E (for I in D3 .. F1) when True is
|
entry E (for I in D3 .. F1) when True is
|
begin
|
begin
|
null;
|
null;
|
end E;
|
end E;
|
function Is_Ok (D3 : Integer; E_First : Integer; E_Last : Integer) return Boolean is
|
function Is_Ok (D3 : Integer; E_First : Integer; E_Last : Integer) return Boolean is
|
begin
|
begin
|
return False;
|
return False;
|
end Is_Ok;
|
end Is_Ok;
|
end Poe;
|
end Poe;
|
|
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.