URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
with Ada.Finalization;
|
with Ada.Finalization;
|
package task_name is
|
package task_name is
|
type Base_Controller is
|
type Base_Controller is
|
abstract new Ada.Finalization.Limited_Controlled with null record;
|
abstract new Ada.Finalization.Limited_Controlled with null record;
|
|
|
type Extended_Controller is
|
type Extended_Controller is
|
abstract new Base_Controller with private;
|
abstract new Base_Controller with private;
|
|
|
type Task_Object (Controller : access Extended_Controller'Class) is
|
type Task_Object (Controller : access Extended_Controller'Class) is
|
limited private;
|
limited private;
|
private
|
private
|
type String_Access is access string;
|
type String_Access is access string;
|
|
|
type Extended_Controller is
|
type Extended_Controller is
|
abstract new Base_Controller with record
|
abstract new Base_Controller with record
|
Thread : aliased Task_Object (Extended_Controller'Access);
|
Thread : aliased Task_Object (Extended_Controller'Access);
|
Name : String_Access := new string'("the_name_of_the_task");
|
Name : String_Access := new string'("the_name_of_the_task");
|
end record;
|
end record;
|
|
|
task type Task_Object (Controller : access Extended_Controller'Class) is pragma Task_Name (Controller.Name.all);
|
task type Task_Object (Controller : access Extended_Controller'Class) is pragma Task_Name (Controller.Name.all);
|
end Task_Object;
|
end Task_Object;
|
end;
|
end;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.