diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-20 15:39:55 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-20 15:39:55 +0000 |
| commit | 78be29d10935a602ca658463c0ea04f7c14c33bf (patch) | |
| tree | 617227db0bb63d276a03b86319ba887c1fc9d4da /gcc/ada/exp_intr.adb | |
| parent | cd309f05a95107a396d509bea3b9efa326aeb1db (diff) | |
| download | gcc-78be29d10935a602ca658463c0ea04f7c14c33bf.tar.gz | |
2014-01-20 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb, checks.adb, exp_intr.adb: Minor reformatting.
* sem_res.adb (Resolve): Fix error causing infinite loop for
integer used as address. Allow addresses as integers.
2014-01-20 Arnaud Charlet <charlet@adacore.com>
* s-osinte-linux.ads (struct_sigaction): Fix rep clause.
2014-01-20 Bob Duff <duff@adacore.com>
* par-ch8.adb (P_Use_Type_Clause): Detect syntax
error when "use all" is not followed by "type".
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206829 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_intr.adb')
| -rw-r--r-- | gcc/ada/exp_intr.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 058b8274e04..6289b1ee224 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -1018,11 +1018,12 @@ package body Exp_Intr is -- For a task type, call Free_Task before freeing the ATCB if Is_Task_Type (Desig_T) then + -- We used to detect the case of Abort followed by a Free here, - -- because the Free wouldn't actually free if it happens before the - -- aborted task actually terminates. The warning is removed, because - -- Free now works properly (the task will be freed once it - -- terminates). + -- because the Free wouldn't actually free if it happens before + -- the aborted task actually terminates. The warning was removed, + -- because Free now works properly (the task will be freed once + -- it terminates). Append_To (Stmts, Cleanup_Task (N, Duplicate_Subexpr_No_Checks (Arg))); |