URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [task_name.ads] - Rev 304
Go to most recent revision | Compare with Previous | Blame | View Log
with Ada.Finalization; package task_name is type Base_Controller is abstract new Ada.Finalization.Limited_Controlled with null record; type Extended_Controller is abstract new Base_Controller with private; type Task_Object (Controller : access Extended_Controller'Class) is limited private; private type String_Access is access string; type Extended_Controller is abstract new Base_Controller with record Thread : aliased Task_Object (Extended_Controller'Access); Name : String_Access := new string'("the_name_of_the_task"); end record; task type Task_Object (Controller : access Extended_Controller'Class) is pragma Task_Name (Controller.Name.all); end Task_Object; end;
Go to most recent revision | Compare with Previous | Blame | View Log