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 384 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
procedure Discr_Test is
|
procedure Discr_Test is
|
procedure P is begin null; end P;
|
procedure P is begin null; end P;
|
|
|
task type Tsk1 is
|
task type Tsk1 is
|
entry rvT;
|
entry rvT;
|
end Tsk1;
|
end Tsk1;
|
|
|
task body Tsk1 is
|
task body Tsk1 is
|
begin
|
begin
|
accept rvT;
|
accept rvT;
|
end Tsk1;
|
end Tsk1;
|
|
|
task type Tsk2 (pS : not null access procedure) is
|
task type Tsk2 (pS : not null access procedure) is
|
entry rvT;
|
entry rvT;
|
end Tsk2;
|
end Tsk2;
|
|
|
task body Tsk2 is
|
task body Tsk2 is
|
tskT : Tsk1;
|
tskT : Tsk1;
|
begin
|
begin
|
accept rvT do
|
accept rvT do
|
requeue tskT.rvT;
|
requeue tskT.rvT;
|
end rvT;
|
end rvT;
|
pS.all;
|
pS.all;
|
end;
|
end;
|
|
|
Obj : Tsk2 (P'access);
|
Obj : Tsk2 (P'access);
|
begin
|
begin
|
Obj.rvT;
|
Obj.rvT;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.