diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 11:47:36 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 11:47:36 +0200 |
| commit | 3204b9cd43a75f23985533f14c6e1ff40e92c7db (patch) | |
| tree | 062e0ba09344455dcff99935705e0775be767d7e /gcc/ada/s-taprop-posix.adb | |
| parent | f17f3601670ddeff49783fb6d10e41a555695b37 (diff) | |
| download | gcc-3204b9cd43a75f23985533f14c6e1ff40e92c7db.zip gcc-3204b9cd43a75f23985533f14c6e1ff40e92c7db.tar.gz gcc-3204b9cd43a75f23985533f14c6e1ff40e92c7db.tar.bz2 | |
[multiple changes]
2009-04-16 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Map_Formal_Package_Entities): renamed from Map_Entities
and made global, to be used when installing parents of a child
instance, to provide mappings for entities declared in formal packages
of ancestor units. Now called from Install_Formal_Packages.
2009-04-16 Doug Rupp <rupp@adacore.com>
* s-taskin.adb (Initialize_ATCB): Initialize Debug_Events with others
notation for clarity.
* s-taprop-vxworks.adb, s-taprop-tru64.adb, s-taprop-vms.adb,
s-taprop-mingw.adb, s-taprop-linux.adb, s-taprop-solaris.adb,
s-taprop-irix.adb, s-taprop-hpux-dce.adb, s-taprop-posix.adb
(Initialize): Initialize Known_Tasks with Environment task.
* s-taskin.ads (Task_States): Move new states to end for the sake of
GDB compatibility.
* s-tassta.adb (Task_Wrapper): Fix comment about Enter_Task.
From-SVN: r146158
Diffstat (limited to 'gcc/ada/s-taprop-posix.adb')
| -rw-r--r-- | gcc/ada/s-taprop-posix.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/s-taprop-posix.adb b/gcc/ada/s-taprop-posix.adb index 51f20a6..d87b1e6 100644 --- a/gcc/ada/s-taprop-posix.adb +++ b/gcc/ada/s-taprop-posix.adb @@ -1423,6 +1423,12 @@ package body System.Task_Primitives.Operations is Alternate_Stack'Address; end if; + -- Make environment task known here because it doesn't go through + -- Activate_Tasks, which does it for all other tasks. + + Known_Tasks (Known_Tasks'First) := Environment_Task; + Environment_Task.Known_Tasks_Index := Known_Tasks'First; + Enter_Task (Environment_Task); -- Install the abort-signal handler |