1 /* Copyright (C) 2005-2015 Free Software Foundation, Inc.
2 Contributed by Richard Henderson <rth@redhat.com>.
4 This file is part of the GNU Offloading and Multi Processing Library
7 Libgomp is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14 FOR A PARTICULAR PURPOSE. See the GNU General Public License for
17 Under Section 7 of GPL version 3, you are granted additional
18 permissions described in the GCC Runtime Library Exception, version
19 3.1, as published by the Free Software Foundation.
21 You should have received a copy of the GNU General Public License and
22 a copy of the GCC Runtime Library Exception along with this program;
23 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
24 <http://www.gnu.org/licenses/>. */
26 /* This file contains data types and function declarations that are not
27 part of the official OpenACC or OpenMP user interfaces. There are
28 declarations in here that are part of the GNU Offloading and Multi
29 Processing ABI, in that the compiler is required to know about them
32 The convention is that the all caps prefix "GOMP" is used group items
33 that are part of the external ABI, and the lower case prefix "gomp"
34 is used group items that are completely private to the library. */
41 #include "libgomp-plugin.h"
48 #ifdef HAVE_ATTRIBUTE_VISIBILITY
49 # pragma GCC visibility push(hidden)
52 /* If we were a C++ library, we'd get this from <std/atomic>. */
69 /* This structure contains the data to control one work-sharing construct,
70 either a LOOP (FOR/DO) or a SECTIONS. */
72 enum gomp_schedule_type
81 struct gomp_work_share
83 /* This member records the SCHEDULE clause to be used for this construct.
84 The user specification of "runtime" will already have been resolved.
85 If this is a SECTIONS construct, this value will always be DYNAMIC. */
86 enum gomp_schedule_type sched
;
92 /* This is the chunk_size argument to the SCHEDULE clause. */
95 /* This is the iteration end point. If this is a SECTIONS construct,
96 this is the number of contained sections. */
99 /* This is the iteration step. If this is a SECTIONS construct, this
105 /* The same as above, but for the unsigned long long loop variants. */
106 unsigned long long chunk_size_ull
;
107 unsigned long long end_ull
;
108 unsigned long long incr_ull
;
112 /* This is a circular queue that details which threads will be allowed
113 into the ordered region and in which order. When a thread allocates
114 iterations on which it is going to work, it also registers itself at
115 the end of the array. When a thread reaches the ordered region, it
116 checks to see if it is the one at the head of the queue. If not, it
117 blocks on its RELEASE semaphore. */
118 unsigned *ordered_team_ids
;
120 /* This is the number of threads that have registered themselves in
121 the circular queue ordered_team_ids. */
122 unsigned ordered_num_used
;
124 /* This is the team_id of the currently acknowledged owner of the ordered
125 section, or -1u if the ordered section has not been acknowledged by
126 any thread. This is distinguished from the thread that is *allowed*
127 to take the section next. */
128 unsigned ordered_owner
;
130 /* This is the index into the circular queue ordered_team_ids of the
131 current thread that's allowed into the ordered reason. */
132 unsigned ordered_cur
;
134 /* This is a chain of allocated gomp_work_share blocks, valid only
135 in the first gomp_work_share struct in the block. */
136 struct gomp_work_share
*next_alloc
;
138 /* The above fields are written once during workshare initialization,
139 or related to ordered worksharing. Make sure the following fields
140 are in a different cache line. */
142 /* This lock protects the update of the following members. */
143 gomp_mutex_t lock
__attribute__((aligned (64)));
145 /* This is the count of the number of threads that have exited the work
146 share construct. If the construct was marked nowait, they have moved on
147 to other work; otherwise they're blocked on a barrier. The last member
148 of the team to exit the work share construct must deallocate it. */
149 unsigned threads_completed
;
152 /* This is the next iteration value to be allocated. In the case of
153 GFS_STATIC loops, this the iteration start point and never changes. */
156 /* The same, but with unsigned long long type. */
157 unsigned long long next_ull
;
159 /* This is the returned data structure for SINGLE COPYPRIVATE. */
164 /* Link to gomp_work_share struct for next work sharing construct
165 encountered after this one. */
166 gomp_ptrlock_t next_ws
;
168 /* gomp_work_share structs are chained in the free work share cache
170 struct gomp_work_share
*next_free
;
173 /* If only few threads are in the team, ordered_team_ids can point
174 to this array which fills the padding at the end of this struct. */
175 unsigned inline_ordered_team_ids
[0];
178 /* This structure contains all of the thread-local data associated with
179 a thread team. This is the data that must be saved when a thread
180 encounters a nested PARALLEL construct. */
182 struct gomp_team_state
184 /* This is the team of which the thread is currently a member. */
185 struct gomp_team
*team
;
187 /* This is the work share construct which this thread is currently
188 processing. Recall that with NOWAIT, not all threads may be
189 processing the same construct. */
190 struct gomp_work_share
*work_share
;
192 /* This is the previous work share construct or NULL if there wasn't any.
193 When all threads are done with the current work sharing construct,
194 the previous one can be freed. The current one can't, as its
195 next_ws field is used. */
196 struct gomp_work_share
*last_work_share
;
198 /* This is the ID of this thread within the team. This value is
199 guaranteed to be between 0 and N-1, where N is the number of
200 threads in the team. */
206 /* Active nesting level. Only active parallel regions are counted. */
207 unsigned active_level
;
209 /* Place-partition-var, offset and length into gomp_places_list array. */
210 unsigned place_partition_off
;
211 unsigned place_partition_len
;
213 #ifdef HAVE_SYNC_BUILTINS
214 /* Number of single stmts encountered. */
215 unsigned long single_count
;
218 /* For GFS_RUNTIME loops that resolved to GFS_STATIC, this is the
219 trip number through the loop. So first time a particular loop
220 is encountered this number is 0, the second time through the loop
221 is 1, etc. This is unused when the compiler knows in advance that
222 the loop is statically scheduled. */
223 unsigned long static_trip
;
226 struct target_mem_desc
;
228 /* These are the OpenMP 4.0 Internal Control Variables described in
229 section 2.3.1. Those described as having one copy per task are
230 stored within the structure; those described as having one copy
231 for the whole program are (naturally) global variables. */
235 unsigned long nthreads_var
;
236 enum gomp_schedule_type run_sched_var
;
237 int run_sched_modifier
;
238 int default_device_var
;
239 unsigned int thread_limit_var
;
244 struct target_mem_desc
*target_data
;
247 extern struct gomp_task_icv gomp_global_icv
;
248 #ifndef HAVE_SYNC_BUILTINS
249 extern gomp_mutex_t gomp_managed_threads_lock
;
251 extern unsigned long gomp_max_active_levels_var
;
252 extern bool gomp_cancel_var
;
253 extern unsigned long long gomp_spin_count_var
, gomp_throttled_spin_count_var
;
254 extern unsigned long gomp_available_cpus
, gomp_managed_threads
;
255 extern unsigned long *gomp_nthreads_var_list
, gomp_nthreads_var_list_len
;
256 extern char *gomp_bind_var_list
;
257 extern unsigned long gomp_bind_var_list_len
;
258 extern void **gomp_places_list
;
259 extern unsigned long gomp_places_list_len
;
260 extern int gomp_debug_var
;
261 extern int goacc_device_num
;
262 extern char *goacc_device_type
;
273 struct gomp_taskgroup
;
276 struct gomp_task_depend_entry
279 struct gomp_task_depend_entry
*next
;
280 struct gomp_task_depend_entry
*prev
;
281 struct gomp_task
*task
;
287 struct gomp_dependers_vec
291 struct gomp_task
*elem
[];
294 /* Used when in GOMP_taskwait or in gomp_task_maybe_wait_for_dependencies. */
301 struct gomp_task
*last_parent_depends_on
;
302 gomp_sem_t taskwait_sem
;
305 /* This structure describes a "task" to be run by a thread. */
309 struct gomp_task
*parent
;
310 struct gomp_task
*children
;
311 struct gomp_task
*next_child
;
312 struct gomp_task
*prev_child
;
313 struct gomp_task
*next_queue
;
314 struct gomp_task
*prev_queue
;
315 struct gomp_task
*next_taskgroup
;
316 struct gomp_task
*prev_taskgroup
;
317 struct gomp_taskgroup
*taskgroup
;
318 struct gomp_dependers_vec
*dependers
;
319 struct htab
*depend_hash
;
320 struct gomp_taskwait
*taskwait
;
322 size_t num_dependees
;
323 struct gomp_task_icv icv
;
326 enum gomp_task_kind kind
;
329 bool copy_ctors_done
;
330 bool parent_depends_on
;
331 struct gomp_task_depend_entry depend
[];
334 struct gomp_taskgroup
336 struct gomp_taskgroup
*prev
;
337 struct gomp_task
*children
;
338 bool in_taskgroup_wait
;
340 gomp_sem_t taskgroup_sem
;
344 /* This structure describes a "team" of threads. These are the threads
345 that are spawned by a PARALLEL constructs, as well as the work sharing
346 constructs that the team encounters. */
350 /* This is the number of threads in the current team. */
353 /* This is number of gomp_work_share structs that have been allocated
354 as a block last time. */
355 unsigned work_share_chunk
;
357 /* This is the saved team state that applied to a master thread before
358 the current thread was created. */
359 struct gomp_team_state prev_ts
;
361 /* This semaphore should be used by the master thread instead of its
362 "native" semaphore in the thread structure. Required for nested
363 parallels, as the master is a member of two teams. */
364 gomp_sem_t master_release
;
366 /* This points to an array with pointers to the release semaphore
367 of the threads in the team. */
368 gomp_sem_t
**ordered_release
;
370 /* List of work shares on which gomp_fini_work_share hasn't been
371 called yet. If the team hasn't been cancelled, this should be
372 equal to each thr->ts.work_share, but otherwise it can be a possibly
373 long list of workshares. */
374 struct gomp_work_share
*work_shares_to_free
;
376 /* List of gomp_work_share structs chained through next_free fields.
377 This is populated and taken off only by the first thread in the
378 team encountering a new work sharing construct, in a critical
380 struct gomp_work_share
*work_share_list_alloc
;
382 /* List of gomp_work_share structs freed by free_work_share. New
383 entries are atomically added to the start of the list, and
384 alloc_work_share can safely only move all but the first entry
385 to work_share_list alloc, as free_work_share can happen concurrently
386 with alloc_work_share. */
387 struct gomp_work_share
*work_share_list_free
;
389 #ifdef HAVE_SYNC_BUILTINS
390 /* Number of simple single regions encountered by threads in this
392 unsigned long single_count
;
394 /* Mutex protecting addition of workshares to work_share_list_free. */
395 gomp_mutex_t work_share_list_free_lock
;
398 /* This barrier is used for most synchronization of the team. */
399 gomp_barrier_t barrier
;
401 /* Initial work shares, to avoid allocating any gomp_work_share
402 structs in the common case. */
403 struct gomp_work_share work_shares
[8];
405 gomp_mutex_t task_lock
;
406 struct gomp_task
*task_queue
;
407 /* Number of all GOMP_TASK_{WAITING,TIED} tasks in the team. */
408 unsigned int task_count
;
409 /* Number of GOMP_TASK_WAITING tasks currently waiting to be scheduled. */
410 unsigned int task_queued_count
;
411 /* Number of GOMP_TASK_{WAITING,TIED} tasks currently running
412 directly in gomp_barrier_handle_tasks; tasks spawned
413 from e.g. GOMP_taskwait or GOMP_taskgroup_end don't count, even when
414 that is called from a task run from gomp_barrier_handle_tasks.
415 task_running_count should be always <= team->nthreads,
416 and if current task isn't in_tied_task, then it will be
417 even < team->nthreads. */
418 unsigned int task_running_count
;
419 int work_share_cancelled
;
422 /* This array contains structures for implicit tasks. */
423 struct gomp_task implicit_task
[];
426 /* This structure contains all data that is private to libgomp and is
427 allocated per thread. */
431 /* This is the function that the thread should run upon launch. */
432 void (*fn
) (void *data
);
435 /* This is the current team state for this thread. The ts.team member
436 is NULL only if the thread is idle. */
437 struct gomp_team_state ts
;
439 /* This is the task that the thread is currently executing. */
440 struct gomp_task
*task
;
442 /* This semaphore is used for ordered loops. */
445 /* Place this thread is bound to plus one, or zero if not bound
449 /* User pthread thread pool */
450 struct gomp_thread_pool
*thread_pool
;
454 struct gomp_thread_pool
456 /* This array manages threads spawned from the top level, which will
457 return to the idle loop once the current PARALLEL construct ends. */
458 struct gomp_thread
**threads
;
459 unsigned threads_size
;
460 unsigned threads_used
;
461 /* The last team is used for non-nested teams to delay their destruction to
462 make sure all the threads in the team move on to the pool's barrier before
463 the team's barrier is destroyed. */
464 struct gomp_team
*last_team
;
465 /* Number of threads running in this contention group. */
466 unsigned long threads_busy
;
468 /* This barrier holds and releases threads waiting in threads. */
469 gomp_barrier_t threads_dock
;
472 enum gomp_cancel_kind
474 GOMP_CANCEL_PARALLEL
= 1,
475 GOMP_CANCEL_LOOP
= 2,
476 GOMP_CANCEL_FOR
= GOMP_CANCEL_LOOP
,
477 GOMP_CANCEL_DO
= GOMP_CANCEL_LOOP
,
478 GOMP_CANCEL_SECTIONS
= 4,
479 GOMP_CANCEL_TASKGROUP
= 8
482 /* ... and here is that TLS data. */
484 #if defined HAVE_TLS || defined USE_EMUTLS
485 extern __thread
struct gomp_thread gomp_tls_data
;
486 static inline struct gomp_thread
*gomp_thread (void)
488 return &gomp_tls_data
;
491 extern pthread_key_t gomp_tls_key
;
492 static inline struct gomp_thread
*gomp_thread (void)
494 return pthread_getspecific (gomp_tls_key
);
498 extern struct gomp_task_icv
*gomp_new_icv (void);
500 /* Here's how to access the current copy of the ICVs. */
502 static inline struct gomp_task_icv
*gomp_icv (bool write
)
504 struct gomp_task
*task
= gomp_thread ()->task
;
508 return gomp_new_icv ();
510 return &gomp_global_icv
;
513 /* The attributes to be used during thread creation. */
514 extern pthread_attr_t gomp_thread_attr
;
516 /* Function prototypes. */
520 extern void gomp_init_affinity (void);
521 extern void gomp_init_thread_affinity (pthread_attr_t
*, unsigned int);
522 extern void **gomp_affinity_alloc (unsigned long, bool);
523 extern void gomp_affinity_init_place (void *);
524 extern bool gomp_affinity_add_cpus (void *, unsigned long, unsigned long,
526 extern bool gomp_affinity_remove_cpu (void *, unsigned long);
527 extern bool gomp_affinity_copy_place (void *, void *, long);
528 extern bool gomp_affinity_same_place (void *, void *);
529 extern bool gomp_affinity_finalize_place_list (bool);
530 extern bool gomp_affinity_init_level (int, unsigned long, bool);
531 extern void gomp_affinity_print_place (void *);
535 extern void *gomp_malloc (size_t) __attribute__((malloc
));
536 extern void *gomp_malloc_cleared (size_t) __attribute__((malloc
));
537 extern void *gomp_realloc (void *, size_t);
539 /* Avoid conflicting prototypes of alloca() in system headers by using
540 GCC's builtin alloca(). */
541 #define gomp_alloca(x) __builtin_alloca(x)
545 extern void gomp_vdebug (int, const char *, va_list);
546 extern void gomp_debug (int, const char *, ...)
547 __attribute__ ((format (printf
, 2, 3)));
548 #define gomp_vdebug(KIND, FMT, VALIST) \
550 if (__builtin_expect (gomp_debug_var, 0)) \
551 (gomp_vdebug) ((KIND), (FMT), (VALIST)); \
553 #define gomp_debug(KIND, ...) \
555 if (__builtin_expect (gomp_debug_var, 0)) \
556 (gomp_debug) ((KIND), __VA_ARGS__); \
558 extern void gomp_verror (const char *, va_list);
559 extern void gomp_error (const char *, ...)
560 __attribute__ ((format (printf
, 1, 2)));
561 extern void gomp_vfatal (const char *, va_list)
562 __attribute__ ((noreturn
));
563 extern void gomp_fatal (const char *, ...)
564 __attribute__ ((noreturn
, format (printf
, 1, 2)));
568 extern int gomp_iter_static_next (long *, long *);
569 extern bool gomp_iter_dynamic_next_locked (long *, long *);
570 extern bool gomp_iter_guided_next_locked (long *, long *);
572 #ifdef HAVE_SYNC_BUILTINS
573 extern bool gomp_iter_dynamic_next (long *, long *);
574 extern bool gomp_iter_guided_next (long *, long *);
579 extern int gomp_iter_ull_static_next (unsigned long long *,
580 unsigned long long *);
581 extern bool gomp_iter_ull_dynamic_next_locked (unsigned long long *,
582 unsigned long long *);
583 extern bool gomp_iter_ull_guided_next_locked (unsigned long long *,
584 unsigned long long *);
586 #if defined HAVE_SYNC_BUILTINS && defined __LP64__
587 extern bool gomp_iter_ull_dynamic_next (unsigned long long *,
588 unsigned long long *);
589 extern bool gomp_iter_ull_guided_next (unsigned long long *,
590 unsigned long long *);
595 extern void gomp_ordered_first (void);
596 extern void gomp_ordered_last (void);
597 extern void gomp_ordered_next (void);
598 extern void gomp_ordered_static_init (void);
599 extern void gomp_ordered_static_next (void);
600 extern void gomp_ordered_sync (void);
604 extern unsigned gomp_resolve_num_threads (unsigned, unsigned);
606 /* proc.c (in config/) */
608 extern void gomp_init_num_threads (void);
609 extern unsigned gomp_dynamic_max_threads (void);
613 extern void gomp_init_task (struct gomp_task
*, struct gomp_task
*,
614 struct gomp_task_icv
*);
615 extern void gomp_end_task (void);
616 extern void gomp_barrier_handle_tasks (gomp_barrier_state_t
);
619 gomp_finish_task (struct gomp_task
*task
)
621 if (__builtin_expect (task
->depend_hash
!= NULL
, 0))
622 free (task
->depend_hash
);
627 extern struct gomp_team
*gomp_new_team (unsigned);
628 extern void gomp_team_start (void (*) (void *), void *, unsigned,
629 unsigned, struct gomp_team
*);
630 extern void gomp_team_end (void);
631 extern void gomp_free_thread (void *);
635 extern void gomp_init_targets_once (void);
636 extern int gomp_get_num_devices (void);
638 typedef struct splay_tree_node_s
*splay_tree_node
;
639 typedef struct splay_tree_s
*splay_tree
;
640 typedef struct splay_tree_key_s
*splay_tree_key
;
642 struct target_mem_desc
{
643 /* Reference count. */
645 /* All the splay nodes allocated together. */
646 splay_tree_node array
;
647 /* Start of the target region. */
649 /* End of the targer region. */
651 /* Handle to free. */
653 /* Previous target_mem_desc. */
654 struct target_mem_desc
*prev
;
655 /* Number of items in following list. */
658 /* Corresponding target device descriptor. */
659 struct gomp_device_descr
*device_descr
;
661 /* List of splay keys to remove (or decrease refcount)
662 at the end of region. */
663 splay_tree_key list
[];
666 struct splay_tree_key_s
{
667 /* Address of the host object. */
668 uintptr_t host_start
;
669 /* Address immediately after the host object. */
671 /* Descriptor of the target memory. */
672 struct target_mem_desc
*tgt
;
673 /* Offset from tgt->tgt_start to the start of the target object. */
674 uintptr_t tgt_offset
;
675 /* Reference count. */
677 /* Asynchronous reference count. */
678 uintptr_t async_refcount
;
679 /* True if data should be copied from device to host at the end. */
683 #include "splay-tree.h"
685 typedef struct acc_dispatch_t
687 /* This is a linked list of data mapped using the
688 acc_map_data/acc_unmap_data or "acc enter data"/"acc exit data" pragmas.
689 Unlike mapped_data in the goacc_thread struct, unmapping can
690 happen out-of-order with respect to mapping. */
691 /* This is guarded by the lock in the "outer" struct gomp_device_descr. */
692 struct target_mem_desc
*data_environ
;
695 void (*exec_func
) (void (*) (void *), size_t, void **, void **, size_t *,
696 unsigned short *, int, int, int, int, void *);
698 /* Async cleanup callback registration. */
699 void (*register_async_cleanup_func
) (void *);
701 /* Asynchronous routines. */
702 int (*async_test_func
) (int);
703 int (*async_test_all_func
) (void);
704 void (*async_wait_func
) (int);
705 void (*async_wait_async_func
) (int, int);
706 void (*async_wait_all_func
) (void);
707 void (*async_wait_all_async_func
) (int);
708 void (*async_set_async_func
) (int);
710 /* Create/destroy TLS data. */
711 void *(*create_thread_data_func
) (int);
712 void (*destroy_thread_data_func
) (void *);
714 /* NVIDIA target specific routines. */
716 void *(*get_current_device_func
) (void);
717 void *(*get_current_context_func
) (void);
718 void *(*get_stream_func
) (int);
719 int (*set_stream_func
) (int, void *);
723 /* This structure describes accelerator device.
724 It contains name of the corresponding libgomp plugin, function handlers for
725 interaction with the device, ID-number of the device, and information about
727 struct gomp_device_descr
729 /* Immutable data, which is only set during initialization, and which is not
730 guarded by the lock. */
732 /* The name of the device. */
735 /* Capabilities of device (supports OpenACC, OpenMP). */
736 unsigned int capabilities
;
738 /* This is the ID number of device among devices of the same type. */
741 /* This is the TYPE of device. */
742 enum offload_target_type type
;
744 /* Function handlers. */
745 const char *(*get_name_func
) (void);
746 unsigned int (*get_caps_func
) (void);
747 int (*get_type_func
) (void);
748 int (*get_num_devices_func
) (void);
749 void (*init_device_func
) (int);
750 void (*fini_device_func
) (int);
751 unsigned (*version_func
) (void);
752 int (*load_image_func
) (int, unsigned, const void *, struct addr_pair
**);
753 void (*unload_image_func
) (int, unsigned, const void *);
754 void *(*alloc_func
) (int, size_t);
755 void (*free_func
) (int, void *);
756 void *(*dev2host_func
) (int, void *, const void *, size_t);
757 void *(*host2dev_func
) (int, void *, const void *, size_t);
758 void (*run_func
) (int, void *, void *);
760 /* Splay tree containing information about mapped memory regions. */
761 struct splay_tree_s mem_map
;
763 /* Mutex for the mutable data. */
766 /* Set to true when device is initialized. */
769 /* OpenACC-specific data and functions. */
770 /* This is mutable because of its mutable data_environ and target_data
772 acc_dispatch_t openacc
;
775 extern void gomp_acc_insert_pointer (size_t, void **, size_t *, void *);
776 extern void gomp_acc_remove_pointer (void *, bool, int, int);
778 extern struct target_mem_desc
*gomp_map_vars (struct gomp_device_descr
*,
779 size_t, void **, void **,
780 size_t *, void *, bool, bool);
781 extern void gomp_copy_from_async (struct target_mem_desc
*);
782 extern void gomp_unmap_vars (struct target_mem_desc
*, bool);
783 extern void gomp_init_device (struct gomp_device_descr
*);
784 extern void gomp_free_memmap (struct splay_tree_s
*);
785 extern void gomp_fini_device (struct gomp_device_descr
*);
786 extern void gomp_unload_device (struct gomp_device_descr
*);
790 extern void gomp_init_work_share (struct gomp_work_share
*, bool, unsigned);
791 extern void gomp_fini_work_share (struct gomp_work_share
*);
792 extern bool gomp_work_share_start (bool);
793 extern void gomp_work_share_end (void);
794 extern bool gomp_work_share_end_cancel (void);
795 extern void gomp_work_share_end_nowait (void);
798 gomp_work_share_init_done (void)
800 struct gomp_thread
*thr
= gomp_thread ();
801 if (__builtin_expect (thr
->ts
.last_work_share
!= NULL
, 1))
802 gomp_ptrlock_set (&thr
->ts
.last_work_share
->next_ws
, thr
->ts
.work_share
);
805 #ifdef HAVE_ATTRIBUTE_VISIBILITY
806 # pragma GCC visibility pop
809 /* Now that we're back to default visibility, include the globals. */
810 #include "libgomp_g.h"
812 /* Include omp.h by parts. */
813 #include "omp-lock.h"
814 #define _LIBGOMP_OMP_LOCK_DEFINED 1
817 #if !defined (HAVE_ATTRIBUTE_VISIBILITY) \
818 || !defined (HAVE_ATTRIBUTE_ALIAS) \
819 || !defined (HAVE_AS_SYMVER_DIRECTIVE) \
821 || !defined (HAVE_SYMVER_SYMBOL_RENAMING_RUNTIME_SUPPORT)
822 # undef LIBGOMP_GNU_SYMBOL_VERSIONING
825 #ifdef LIBGOMP_GNU_SYMBOL_VERSIONING
826 extern void gomp_init_lock_30 (omp_lock_t
*) __GOMP_NOTHROW
;
827 extern void gomp_destroy_lock_30 (omp_lock_t
*) __GOMP_NOTHROW
;
828 extern void gomp_set_lock_30 (omp_lock_t
*) __GOMP_NOTHROW
;
829 extern void gomp_unset_lock_30 (omp_lock_t
*) __GOMP_NOTHROW
;
830 extern int gomp_test_lock_30 (omp_lock_t
*) __GOMP_NOTHROW
;
831 extern void gomp_init_nest_lock_30 (omp_nest_lock_t
*) __GOMP_NOTHROW
;
832 extern void gomp_destroy_nest_lock_30 (omp_nest_lock_t
*) __GOMP_NOTHROW
;
833 extern void gomp_set_nest_lock_30 (omp_nest_lock_t
*) __GOMP_NOTHROW
;
834 extern void gomp_unset_nest_lock_30 (omp_nest_lock_t
*) __GOMP_NOTHROW
;
835 extern int gomp_test_nest_lock_30 (omp_nest_lock_t
*) __GOMP_NOTHROW
;
837 extern void gomp_init_lock_25 (omp_lock_25_t
*) __GOMP_NOTHROW
;
838 extern void gomp_destroy_lock_25 (omp_lock_25_t
*) __GOMP_NOTHROW
;
839 extern void gomp_set_lock_25 (omp_lock_25_t
*) __GOMP_NOTHROW
;
840 extern void gomp_unset_lock_25 (omp_lock_25_t
*) __GOMP_NOTHROW
;
841 extern int gomp_test_lock_25 (omp_lock_25_t
*) __GOMP_NOTHROW
;
842 extern void gomp_init_nest_lock_25 (omp_nest_lock_25_t
*) __GOMP_NOTHROW
;
843 extern void gomp_destroy_nest_lock_25 (omp_nest_lock_25_t
*) __GOMP_NOTHROW
;
844 extern void gomp_set_nest_lock_25 (omp_nest_lock_25_t
*) __GOMP_NOTHROW
;
845 extern void gomp_unset_nest_lock_25 (omp_nest_lock_25_t
*) __GOMP_NOTHROW
;
846 extern int gomp_test_nest_lock_25 (omp_nest_lock_25_t
*) __GOMP_NOTHROW
;
848 # define strong_alias(fn, al) \
849 extern __typeof (fn) al __attribute__ ((alias (#fn)));
850 # define omp_lock_symver(fn) \
851 __asm (".symver g" #fn "_30, " #fn "@@OMP_3.0"); \
852 __asm (".symver g" #fn "_25, " #fn "@OMP_1.0");
854 # define gomp_init_lock_30 omp_init_lock
855 # define gomp_destroy_lock_30 omp_destroy_lock
856 # define gomp_set_lock_30 omp_set_lock
857 # define gomp_unset_lock_30 omp_unset_lock
858 # define gomp_test_lock_30 omp_test_lock
859 # define gomp_init_nest_lock_30 omp_init_nest_lock
860 # define gomp_destroy_nest_lock_30 omp_destroy_nest_lock
861 # define gomp_set_nest_lock_30 omp_set_nest_lock
862 # define gomp_unset_nest_lock_30 omp_unset_nest_lock
863 # define gomp_test_nest_lock_30 omp_test_nest_lock
866 #ifdef HAVE_ATTRIBUTE_VISIBILITY
867 # define attribute_hidden __attribute__ ((visibility ("hidden")))
869 # define attribute_hidden
872 #ifdef HAVE_ATTRIBUTE_ALIAS
873 # define ialias_ulp ialias_str1(__USER_LABEL_PREFIX__)
874 # define ialias_str1(x) ialias_str2(x)
875 # define ialias_str2(x) #x
876 # define ialias(fn) \
877 extern __typeof (fn) gomp_ialias_##fn \
878 __attribute__ ((alias (#fn))) attribute_hidden;
879 # define ialias_redirect(fn) \
880 extern __typeof (fn) fn __asm__ (ialias_ulp "gomp_ialias_" #fn) attribute_hidden;
881 # define ialias_call(fn) gomp_ialias_ ## fn
884 # define ialias_redirect(fn)
885 # define ialias_call(fn) fn
888 #endif /* LIBGOMP_H */