Update to LGPL v2.1.
[kopensolaris-gnu/glibc.git] / sysdeps / unix / clock_settime.c
1 /* Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3
4    The GNU C Library is free software; you can redistribute it and/or
5    modify it under the terms of the GNU Lesser General Public
6    License as published by the Free Software Foundation; either
7    version 2.1 of the License, or (at your option) any later version.
8
9    The GNU C Library is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12    Lesser General Public License for more details.
13
14    You should have received a copy of the GNU Lesser General Public
15    License along with the GNU C Library; if not, write to the Free
16    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
17    02111-1307 USA.  */
18
19 #include <errno.h>
20 #include <time.h>
21 #include <sys/time.h>
22 #include <libc-internal.h>
23
24
25 #if HP_TIMING_AVAIL
26 /* Clock frequency of the processor.  We make it a 64-bit variable
27    because some jokers are already playing with processors with more
28    than 4GHz.  */
29 static hp_timing_t freq;
30
31
32 /* We need the starting time for the process.  */
33 extern hp_timing_t _dl_cpuclock_offset;
34
35
36 /* This function is defined in the thread library.  */
37 extern void __pthread_clock_settime (hp_timing_t offset)
38      __attribute__ ((__weak__));
39 #endif
40
41
42 /* Set CLOCK to value TP.  */
43 int
44 clock_settime (clockid_t clock_id, const struct timespec *tp)
45 {
46   struct timeval tv;
47   int retval;
48
49   /* Make sure the time cvalue is OK.  */
50   if (tp->tv_nsec < 0 || tp->tv_nsec >= 1000000000)
51     {
52       __set_errno (EINVAL);
53       return -1;
54     }
55
56   switch (clock_id)
57     {
58     case CLOCK_REALTIME:
59       TIMESPEC_TO_TIMEVAL (&tv, tp);
60
61       retval = settimeofday (&tv, NULL);
62       break;
63
64 #if HP_TIMING_AVAIL
65     case CLOCK_PROCESS_CPUTIME_ID:
66     case CLOCK_THREAD_CPUTIME_ID:
67       {
68         hp_timing_t tsc;
69         hp_timing_t usertime;
70
71         /* First thing is to get the current time.  */
72         HP_TIMING_NOW (tsc);
73
74         if (__builtin_expect (freq == 0, 0))
75           {
76             /* This can only happen if we haven't initialized the `freq'
77                variable yet.  Do this now. We don't have to protect this
78                code against multiple execution since all of them should
79                lead to the same result.  */
80             freq = __get_clockfreq ();
81             if (__builtin_expect (freq == 0, 0))
82               {
83                 /* Something went wrong.  */
84                 retval = -1;
85                 break;
86               }
87           }
88
89         /* Convert the user-provided time into CPU ticks.  */
90         usertime = tp->tv_sec * freq + (tp->tv_nsec * freq) / 1000000000ull;
91
92         /* Determine the offset and use it as the new base value.  */
93         if (clock_id != CLOCK_THREAD_CPUTIME_ID
94             || __pthread_clock_settime == NULL)
95           _dl_cpuclock_offset = tsc - usertime;
96         else
97           __pthread_clock_settime (tsc - usertime);
98
99         retval = 0;
100       }
101       break;
102 #endif
103
104     default:
105       __set_errno (EINVAL);
106       retval = -1;
107       break;
108     }
109
110   return retval;
111 }