diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-06 09:15:15 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-06 09:15:15 +0000 |
| commit | 8e63eb25031818b8b7ae9f5c14e074a69b087eb5 (patch) | |
| tree | 2324b2ae83960239267906442bbd67e1705da8fa /gcc/ada/s-solita.adb | |
| parent | 5ffd087f0bb0c1b92c1d331c1c22e7f970cf037b (diff) | |
| download | gcc-8e63eb25031818b8b7ae9f5c14e074a69b087eb5.tar.gz | |
2011-09-06 Vincent Celier <celier@adacore.com>
* projects.texi: Add menus and @node lines.
2011-09-06 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Expand_Inlined_Call): Handle properly the case
where the return type is an unconstrained array and the context
is an assignment. Optimize the case when the target of the
assignment is a selected component.
2011-09-06 Arnaud Charlet <charlet@adacore.com>
* s-solita.adb: Update comments.
2011-09-06 Pascal Obry <obry@adacore.com>
* s-linux.ads, s-linux-alpha.ads, s-linux-hppa.ads, s-linux-mipsel.ads,
s-linux-sparc.ads: Remove hard coded and now wrong definitions.
* s-oscons-tmplt.c: Add support for generating pthread related
types size on GNU/Linux as done for Darwin.
* s-osinte-linux.ads: Use s-oscons to define the pthread types.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178573 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-solita.adb')
| -rw-r--r-- | gcc/ada/s-solita.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/s-solita.adb b/gcc/ada/s-solita.adb index aa3c5a8e25e..666a6d5c521 100644 --- a/gcc/ada/s-solita.adb +++ b/gcc/ada/s-solita.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2011, Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -153,6 +153,10 @@ package body System.Soft_Links.Tasking is -- We can only be here because we are terminating the environment task. -- Task termination for the rest of the tasks is handled in the -- Task_Wrapper. + -- We do not want to enable this check and e.g. call System.OS_Lib.Abort + -- here because some restricted run-times may not have system.os_lib + -- (e.g. JVM), and calling abort may do more harm than good to the + -- main application. pragma Assert (Self_Id = STPO.Environment_Task); @@ -212,7 +216,7 @@ package body System.Soft_Links.Tasking is SSL.Task_Termination_Handler := Task_Termination_Handler_T'Access; -- No need to create a new Secondary Stack, since we will use the - -- default one created in s-secsta.adb + -- default one created in s-secsta.adb. SSL.Set_Sec_Stack_Addr (SSL.Get_Sec_Stack_Addr_NT); SSL.Set_Jmpbuf_Address (SSL.Get_Jmpbuf_Address_NT); |