URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
with ada.task_identification;
|
with ada.task_identification;
|
with ada.text_io; use ada.text_io;
|
with ada.text_io; use ada.text_io;
|
package body test_image_p is
|
package body test_image_p is
|
function to_type1 (arg1 : in Integer) return type1 is
|
function to_type1 (arg1 : in Integer) return type1 is
|
begin
|
begin
|
return (f2 => (others => Standard.False));
|
return (f2 => (others => Standard.False));
|
end to_type1;
|
end to_type1;
|
task body task_t is
|
task body task_t is
|
Name : String :=
|
Name : String :=
|
ada.task_identification.image (arg.the_task'identity);
|
ada.task_identification.image (arg.the_task'identity);
|
begin
|
begin
|
arg.the_array := (others => to_type1 (-1));
|
arg.the_array := (others => to_type1 (-1));
|
if Name (1 .. 19) /= "my_at5c.f3.the_task" then
|
if Name (1 .. 19) /= "my_at5c.f3.the_task" then
|
Put_Line ("error");
|
Put_Line ("error");
|
raise Program_Error;
|
raise Program_Error;
|
end if;
|
end if;
|
|
|
select
|
select
|
accept entry1;
|
accept entry1;
|
or
|
or
|
terminate;
|
terminate;
|
end select;
|
end select;
|
end task_t;
|
end task_t;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.