1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
/* os.h -*-C++-*-
*
*************************************************************************
*
* Copyright (C) 2009-2011
* Intel Corporation
*
* This file is part of the Intel Cilk Plus Library. This library is free
* software; you can redistribute it and/or modify it under the
* terms of the GNU General Public License as published by the
* Free Software Foundation; either version 3, or (at your option)
* any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* Under Section 7 of GPL version 3, you are granted additional
* permissions described in the GCC Runtime Library Exception, version
* 3.1, as published by the Free Software Foundation.
*
* You should have received a copy of the GNU General Public License and
* a copy of the GCC Runtime Library Exception along with this program;
* see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
* <http://www.gnu.org/licenses/>.
**************************************************************************/
/**
* @file os.h
*
* @brief Low-level operating-system dependent facilities, not dependent on
* any Cilk facilities.
*/
#ifndef INCLUDED_OS_DOT_H
#define INCLUDED_OS_DOT_H
#include "rts-common.h"
#include <cilk/common.h>
#ifdef __cplusplus
# include <cstddef>
#else
# include <stddef.h>
#endif
// #ifndef _WIN32
// # include <pthread.h> // For pthread_key_t
// #endif
// Forward declarations
typedef struct __cilk_tbb_stack_op_thunk __cilk_tbb_stack_op_thunk;
__CILKRTS_BEGIN_EXTERN_C
#ifdef _WIN32
typedef unsigned cilkos_thread_id_t;
#else
typedef void* cilkos_thread_id_t;
#endif
// /* Thread-local storage */
// #ifdef _WIN32
// typedef unsigned cilkos_tls_key_t;
// #else
// typedef pthread_key_t cilkos_tls_key_t;
// #endif
// cilkos_tls_key_t cilkos_allocate_tls_key();
// void cilkos_set_tls_pointer(cilkos_tls_key_t key, void* ptr);
// void* cilkos_get_tls_pointer(cilkos_tls_key_t key);
/* The RTS assumes that some thread-local state exists that stores the
worker and reducer map currently associated with a thread. These routines
manipulate this state. */
typedef struct __cilkrts_worker __cilkrts_worker;
typedef struct cilkred_map cilkred_map;
typedef struct __cilkrts_pedigree __cilkrts_pedigree;
COMMON_SYSDEP void __cilkrts_init_tls_variables(void);
COMMON_SYSDEP
void __cilkrts_set_tls_worker(__cilkrts_worker *w) cilk_nothrow;
/* Likewise for reducer maps */
COMMON_SYSDEP cilkred_map *__cilkrts_get_tls_reducer(void) cilk_nothrow;
COMMON_SYSDEP void __cilkrts_set_tls_reducer(cilkred_map *) cilk_nothrow;
/* Ditto for TBB-interop structures. */
COMMON_SYSDEP
__cilk_tbb_stack_op_thunk *__cilkrts_get_tls_tbb_interop(void);
COMMON_SYSDEP
void __cilkrts_set_tls_tbb_interop(__cilk_tbb_stack_op_thunk *t);
/**
* Function to get a pointer to the thread's pedigree leaf node. This
* pointer can be NULL.
*/
COMMON_SYSDEP
__cilkrts_pedigree * __cilkrts_get_tls_pedigree_leaf(int create_new);
/**
* Set the pointer to the pedigree leaf node.
*
* If the previous pointer value was not NULL, it is the caller's
* responsibility to ensure that previous pointer value is saved and
* freed.
*/
COMMON_SYSDEP
void __cilkrts_set_tls_pedigree_leaf(__cilkrts_pedigree* pedigree_leaf);
/* Return number of CPUs supported by this hardware, using whatever definition
of CPU is considered appropriate. */
COMMON_SYSDEP int __cilkrts_hardware_cpu_count(void);
/* timer support */
COMMON_SYSDEP unsigned long long __cilkrts_getticks(void);
/* Machine instructions */
COMMON_SYSDEP void __cilkrts_short_pause(void);
COMMON_SYSDEP int __cilkrts_xchg(volatile int *ptr, int x);
/* gcc before 4.4 does not implement __sync_synchronize properly */
#if (__ICC >= 1110 && !(__MIC__ || __MIC2__)) \
|| (!defined __ICC && __GNUC__ * 10 + __GNUC_MINOR__ > 43)
# define HAVE_SYNC_INTRINSICS 1
#endif
/*
* void __cilkrts_fence(void)
*
* Executes an MFENCE instruction to serialize all load and store instructions
* that were issued prior the MFENCE instruction. This serializing operation
* guarantees that every load and store instruction that precedes the MFENCE
* instruction is globally visible before any load or store instruction that
* follows the MFENCE instruction. The MFENCE instruction is ordered with
* respect to all load and store instructions, other MFENCE instructions, any
* SFENCE and LFENCE instructions, and any serializing instructions (such as
* the CPUID instruction).
*/
#ifdef HAVE_SYNC_INTRINSICS
# define __cilkrts_fence() __sync_synchronize()
#elif defined __ICC || defined __GNUC__
/* mfence is a strict subset of lock add but takes longer on many
* processors. */
// # define __cilkrts_fence() __asm__ volatile ("mfence")
/* On MIC, fence seems to be completely unnecessary.
* Just for simplicity of 1st implementation, it defaults to x86 */
# define __cilkrts_fence() __asm__ volatile ("lock addl $0,(%rsp)")
// #elif defined _WIN32
// # pragma intrinsic(_ReadWriteBarrier)
// # define __cilkrts_fence() _ReadWriteBarrier()
#else
COMMON_SYSDEP void __cilkrts_fence(void);
#endif
COMMON_SYSDEP void __cilkrts_sleep(void); /* Sleep briefly */
COMMON_SYSDEP void __cilkrts_yield(void); /* Yield quantum */
/*
* Gets environment variable 'varname' and copy its value into 'value'.
* If the entire value, including the null terminator fits into 'vallen'
* bytes, then returns the length of the value excluding the null. Otherwise,
* leaves the contents of 'value' undefined and returns the number of
* characters needed to store the environment variable's value, *including*
* the null terminator.
*/
COMMON_SYSDEP __STDNS size_t cilkos_getenv(char* value, __STDNS size_t vallen,
const char* varname);
/*
* Unrecoverable error: Print an error message and abort execution.
*/
COMMON_SYSDEP void cilkos_error(const char *fmt, ...);
/*
* Print a warning message and return.
*/
COMMON_SYSDEP void cilkos_warning(const char *fmt, ...);
/*
* Convert the user's specified stack size into a "reasonable" value
* for the current OS.
*/
COMMON_SYSDEP size_t cilkos_validate_stack_size(size_t specified_stack_size);
#ifdef _WIN32
/*
* Windows-only low-level functions for processor groups.
*/
typedef struct _GROUP_AFFINITY GROUP_AFFINITY;
/*
* init_processor_group_function_ptrs
*
* Probe the executing OS to see if it supports processor groups. These
* functions are expected to be available in Windows 7 or later.
*/
void win_init_processor_groups(void);
unsigned long win_get_active_processor_count(unsigned short GroupNumber);
unsigned short win_get_active_processor_group_count(void);
int win_set_thread_group_affinity(/*HANDLE*/ void* hThread,
const GROUP_AFFINITY *GroupAffinity,
GROUP_AFFINITY* PreviousGroupAffinity);
/**
* This method should be called to clean up any state it allocated in
* TLS.
*
* Only defined for Windows because Linux calls destructors for each
* thread-local variable.
*/
void __cilkrts_per_thread_tls_cleanup(void);
#endif // _WIN32
__CILKRTS_END_EXTERN_C
#endif // ! defined(INCLUDED_OS_DOT_H)
|
