diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-20 09:44:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-20 09:44:10 +0000 |
| commit | eec7772e67389de1629bf1f8ad0673cc4695faba (patch) | |
| tree | b49e8db45c4f24e5ecfeee5550af7e826a984c83 /gcc/ada/s-taprop-linux.adb | |
| parent | d7a87dfa0a39e0eae352c203007e97016039bef7 (diff) | |
| download | gcc-eec7772e67389de1629bf1f8ad0673cc4695faba.tar.gz | |
2009-04-20 Thomas Quinot <quinot@adacore.com>
* s-taprop-irix.adb, s-taprop-tru64.adb, s-taprop-vms.adb,
output.adb, output.ads, s-taprop-hpux-dce.adb,
s-taprop-linux.adb, s-taprop-solaris.adb, s-taprop-posix.adb: Minor
reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146388 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-linux.adb')
| -rw-r--r-- | gcc/ada/s-taprop-linux.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/s-taprop-linux.adb b/gcc/ada/s-taprop-linux.adb index b9c3c5e6ae9..6d197f76d1d 100644 --- a/gcc/ada/s-taprop-linux.adb +++ b/gcc/ada/s-taprop-linux.adb @@ -1085,11 +1085,11 @@ package body System.Task_Primitives.Operations is S.Waiting := True; loop - -- loop in case pthread_cond_wait returns earlier than - -- expected (e.g. in case of EINTR caused by a signal). - -- This should not happen on current implementation of pthread - -- under Linux, but POSIX does not guarantee it, so this may - -- change in the future. + -- Loop in case pthread_cond_wait returns earlier than expected + -- (e.g. in case of EINTR caused by a signal). This should not + -- happen with the current Linux implementation of pthread, but + -- POSIX does not guarantee it, so this may change in the + -- future. Result := pthread_cond_wait (S.CV'Access, S.L'Access); pragma Assert (Result = 0 or else Result = EINTR); |