Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/libgnarl/thread.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 /****************************************************************************
2 * *
3 * GNAT COMPILER COMPONENTS *
4 * *
5 * P T H R E A D *
6 * *
7 * C Implementation File *
8 * *
9 * Copyright (C) 2011-2017, Free Software Foundation, Inc. *
10 * *
11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 3, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
15 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
16 * or FITNESS FOR A PARTICULAR PURPOSE. *
17 * *
18 * As a special exception under Section 7 of GPL version 3, you are granted *
19 * additional permissions described in the GCC Runtime Library Exception, *
20 * version 3.1, as published by the Free Software Foundation. *
21 * *
22 * You should have received a copy of the GNU General Public License and *
23 * a copy of the GCC Runtime Library Exception along with this program; *
24 * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see *
25 * <http://www.gnu.org/licenses/>. *
26 * *
27 * GNAT was originally developed by the GNAT team at New York University. *
28 * Extensive contributions were provided by Ada Core Technologies Inc. *
29 * *
30 ****************************************************************************/
31
32 /* This file provides utility functions to access the threads API */
33
34 #include "s-oscons.h"
35
36 /* If the clock we used for tasking (CLOCK_RT_Ada) is not the default
37 * CLOCK_REALTIME, we need to set cond var attributes accordingly.
38 */
39 #if CLOCK_RT_Ada != CLOCK_REALTIME
40 # include <pthread.h>
41 # include <time.h>
42
43 int
44 __gnat_pthread_condattr_setup(pthread_condattr_t *attr) {
45 return pthread_condattr_setclock (attr, CLOCK_RT_Ada);
46 }
47
48 #else
49
50 int
51 __gnat_pthread_condattr_setup (void *attr) {
52 /* Dummy version for other platforms, which may or may not have pthread.h */
53 return 0;
54 }
55
56 #endif
57
58 #if defined (__APPLE__)
59 #include <mach/mach.h>
60 #include <mach/clock.h>
61 #endif
62
63 /* Return the clock ticks per nanosecond for Posix systems lacking the
64 Posix extension function clock_getres, or else 0 nsecs on error. */
65
66 int
67 __gnat_clock_get_res (void)
68 {
69 #if defined (__APPLE__)
70 clock_serv_t clock_port;
71 mach_msg_type_number_t count;
72 int nsecs;
73 int result;
74
75 count = 1;
76 result = host_get_clock_service
77 (mach_host_self (), SYSTEM_CLOCK, &clock_port);
78
79 if (result == KERN_SUCCESS)
80 result = clock_get_attributes (clock_port, CLOCK_GET_TIME_RES,
81 (clock_attr_t) &nsecs, &count);
82
83 if (result == KERN_SUCCESS)
84 return nsecs;
85 #endif
86
87 return 0;
88 }