diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-23 14:48:46 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-23 14:48:46 +0200 |
| commit | ed11bbfe441b0d223566174af18e04e4753f3fbb (patch) | |
| tree | b69bed28b03d0c1d889700d5c5ee54994f08a04c /gcc/ada/s-taskin.ads | |
| parent | bf8f12c2a6b7c557031b431909fc831a6f6d7763 (diff) | |
| download | gcc-ed11bbfe441b0d223566174af18e04e4753f3fbb.zip gcc-ed11bbfe441b0d223566174af18e04e4753f3fbb.tar.gz gcc-ed11bbfe441b0d223566174af18e04e4753f3fbb.tar.bz2 | |
[multiple changes]
2015-10-23 Arnaud Charlet <charlet@adacore.com>
* s-taskin.ads: Minor code clean up.
(Ada_Task_Control_Block): Move fixed size field before variable sized
ones.
* einfo.ads: Minor editing.
2015-10-23 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Check_Aggregate_Accessibility): Apply rule in RM
6.5 (8.3) to verify that access discriminants in an aggregate
in a return statement have the proper accessibility, i.e. do
not lead to dangling references.
2015-10-23 Eric Botcazou <ebotcazou@adacore.com>
* sem_ch13.adb (Analyze_Attribute_Definition_Clause): Add missing
test on Address_Clause_Overlay_Warnings to the "constant overlays
variable" warning. For the reverse case, also issue a warning if
the modification is potentially made through the initialization
of the variable.
2015-10-23 Jose Ruiz <ruiz@adacore.com>
* a-exetim-posix.adb (Clock): Use the pthread_getcpuclockid
function to have access to CPU clocks for tasks other than the
calling task.
From-SVN: r229247
Diffstat (limited to 'gcc/ada/s-taskin.ads')
| -rw-r--r-- | gcc/ada/s-taskin.ads | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/gcc/ada/s-taskin.ads b/gcc/ada/s-taskin.ads index f48d98d..539d088 100644 --- a/gcc/ada/s-taskin.ads +++ b/gcc/ada/s-taskin.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1135,20 +1135,23 @@ package System.Tasking is -- User-writeable location, for use in debugging tasks; also provides a -- simple task specific data. + Free_On_Termination : Boolean := False; + -- Deallocate the ATCB when the task terminates. This flag is normally + -- False, and is set True when Unchecked_Deallocation is called on a + -- non-terminated task so that the associated storage is automatically + -- reclaimed when the task terminates. + Attributes : Attribute_Array := (others => 0); -- Task attributes + -- IMPORTANT Note: the Entry_Queues field is last for efficiency of + -- access to other fields, do not put new fields after this one. + Entry_Queues : Task_Entry_Queue_Array (1 .. Entry_Num); -- An array of task entry queues -- -- Protection: Self.L. Once a task has set Self.Stage to Completing, it -- has exclusive access to this field. - - Free_On_Termination : Boolean := False; - -- Deallocate the ATCB when the task terminates. This flag is normally - -- False, and is set True when Unchecked_Deallocation is called on a - -- non-terminated task so that the associated storage is automatically - -- reclaimed when the task terminates. end record; -------------------- |