diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-29 10:21:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-29 10:21:52 +0000 |
| commit | e8b5f25d30e610f0d631f008da46b7b29f76d6c6 (patch) | |
| tree | 2db6b0cdcdb8e86bd4b29ad8d6f7162bd1e7f412 /gcc/ada/s-tarest.ads | |
| parent | b9e61b2aeb50f45afb780ac29b711754b56d187f (diff) | |
| download | ppe42-gcc-e8b5f25d30e610f0d631f008da46b7b29f76d6c6.tar.gz ppe42-gcc-e8b5f25d30e610f0d631f008da46b7b29f76d6c6.zip | |
2012-10-29 Robert Dewar <dewar@adacore.com>
* warnsw.adb: Complete previous change.
2012-10-29 Tristan Gingold <gingold@adacore.com>
* bindgen.adb (Check_File_In_Partition, Check_System_Restrictions_Used):
Removed.
(Check_Dispatching_Domains_Used): Removed.
(Gen_Adafinal): Remove call to above procedures.
(Resolve_Binder_Options): Handle system restrictions and dispatching
domains.
2012-10-29 Tristan Gingold <gingold@adacore.com>
* s-tarest.ads, s-tarest.adb (Create_Restricted_Task): Remove
Chain parameter.
* exp_ch9.adb (Make_Task_Create_Call): Do not add Chain parameter
on restricted runtime.
2012-10-29 Pascal Obry <obry@adacore.com>
* g-sechas.adb, g-sechas.ads: Minor code clean-up.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@192920 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-tarest.ads')
| -rw-r--r-- | gcc/ada/s-tarest.ads | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/gcc/ada/s-tarest.ads b/gcc/ada/s-tarest.ads index 9b52b619f38..af7030e9bf7 100644 --- a/gcc/ada/s-tarest.ads +++ b/gcc/ada/s-tarest.ads @@ -89,7 +89,7 @@ package System.Tasking.Restricted.Stages is -- create_restricted_task (unspecified_priority, tZ, -- unspecified_task_info, unspecified_cpu, -- task_procedure_access!(tB'address), _init'address, - -- tE'unchecked_access, _chain, _task_name, _init._task_id); + -- tE'unchecked_access, _task_name, _init._task_id); -- return; -- end tVIP; @@ -120,8 +120,6 @@ package System.Tasking.Restricted.Stages is -- t1S : constant String := "t1"; -- tIP (t1, 3, _chain, t1S, 1); - -- activate_restricted_tasks (_chain'unchecked_access); - procedure Create_Restricted_Task (Priority : Integer; Stack_Address : System.Address; @@ -131,7 +129,6 @@ package System.Tasking.Restricted.Stages is State : Task_Procedure_Access; Discriminants : System.Address; Elaborated : Access_Boolean; - Chain : in out Activation_Chain; Task_Image : String; Created_Task : Task_Id); -- Compiler interface only. Do not call from within the RTS. @@ -164,10 +161,6 @@ package System.Tasking.Restricted.Stages is -- Elaborated is a pointer to a Boolean that must be set to true on exit -- if the task could be successfully elaborated. -- - -- Chain is a linked list of task that needs to be created. On exit, - -- Created_Task.Activation_Link will be Chain.T_ID, and Chain.T_ID will be - -- Created_Task (the created task will be linked at the front of Chain). - -- -- Task_Image is a string created by the compiler that the run time can -- store to ease the debugging and the Ada.Task_Identification facility. -- |
