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-2014, 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 43int 44__gnat_pthread_condattr_setup(pthread_condattr_t *attr) { 45 return pthread_condattr_setclock (attr, CLOCK_RT_Ada); 46} 47 48#else 49 50int 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 66int 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} 89