diff options
| author | Nicolas Roche <roche@adacore.com> | 2009-04-15 10:06:20 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-15 12:06:20 +0200 |
| commit | 442dd5fb23f716aaabf465ead17b4dfb63421699 (patch) | |
| tree | 4469e171ddac22ee50aeea8398d926ae45ad780e /gcc/ada/s-taprop-linux.adb | |
| parent | cbd8be94c2233082bb4af2074b7878c7f7797adc (diff) | |
| download | gcc-442dd5fb23f716aaabf465ead17b4dfb63421699.zip gcc-442dd5fb23f716aaabf465ead17b4dfb63421699.tar.gz gcc-442dd5fb23f716aaabf465ead17b4dfb63421699.tar.bz2 | |
adaint.c: Add function __gnat_lwp_self that retrieves the LWP of the current thread.
2009-04-15 Nicolas Roche <roche@adacore.com>
* adaint.c: Add function __gnat_lwp_self that retrieves the LWP of the
current thread.
* s-osinte-linux.ads: Import the __gnat_lwp_self function as lwp_self
* s-taprop-linux.adb (Enter_Task): Store the LWP in the TCB
From-SVN: r146097
Diffstat (limited to 'gcc/ada/s-taprop-linux.adb')
| -rw-r--r-- | gcc/ada/s-taprop-linux.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/s-taprop-linux.adb b/gcc/ada/s-taprop-linux.adb index 08bbac1..addffde 100644 --- a/gcc/ada/s-taprop-linux.adb +++ b/gcc/ada/s-taprop-linux.adb @@ -701,6 +701,7 @@ package body System.Task_Primitives.Operations is end if; Self_ID.Common.LL.Thread := pthread_self; + Self_ID.Common.LL.LWP := lwp_self; Specific.Set (Self_ID); |