diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 10:33:28 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 10:33:28 +0200 |
| commit | b2ed7a03e24eec7539c7656a7aff0ea73ec73f34 (patch) | |
| tree | baccf4205db20ef7eb674c967f68d5e071899d87 /gcc/ada/s-osprim-posix.adb | |
| parent | 9434ad538492ba9fb8b40f58b903f6241882d506 (diff) | |
| download | gcc-b2ed7a03e24eec7539c7656a7aff0ea73ec73f34.zip gcc-b2ed7a03e24eec7539c7656a7aff0ea73ec73f34.tar.gz gcc-b2ed7a03e24eec7539c7656a7aff0ea73ec73f34.tar.bz2 | |
[multiple changes]
2009-04-16 Olivier Hainque <hainque@adacore.com>
* gnat_ugn.texi (gnatmem description): Make it explicit that
gnatmem is designed to work in association with static runtime
library only.
2009-04-16 Thomas Quinot <quinot@adacore.com>
* sem_type.adb: Minor reformatting
2009-04-16 Hristian Kirtchev <kirtchev@adacore.com>
* s-osprim-darwin.adb, s-osprim-posix.adb (Clock): Add comment
concerning return codes of gettimeofday and return value check.
2009-04-16 Ed Falis <falis@adacore.com>
* s-vxwext-kernel.ads (Int_Lock, Int_Unlock): set to convention C so
body can be renaming of imported routines.
2009-04-16 Vasiliy Fofanov <fofanov@adacore.com>
* s-asthan-vms-alpha.adb: Disable warnings on alignment in a more
targeted fashion.
From-SVN: r146149
Diffstat (limited to 'gcc/ada/s-osprim-posix.adb')
| -rw-r--r-- | gcc/ada/s-osprim-posix.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/s-osprim-posix.adb b/gcc/ada/s-osprim-posix.adb index 7042830..c02ad98 100644 --- a/gcc/ada/s-osprim-posix.adb +++ b/gcc/ada/s-osprim-posix.adb @@ -78,6 +78,14 @@ package body System.OS_Primitives is pragma Unreferenced (Result); begin + -- The return codes for gettimeofday are as follows (from man pages): + -- EPERM settimeofday is called by someone other than the superuser + -- EINVAL Timezone (or something else) is invalid + -- EFAULT One of tv or tz pointed outside accessible address space + + -- None of these codes signal a potential clock skew, hence the return + -- value is never checked. + Result := gettimeofday (TV'Access, null); return Duration (TV.tv_sec) + Duration (TV.tv_usec) / 10#1#E6; end Clock; |