mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-11-28 21:10:49 +08:00
e45483c7c4
This patch implements the OpenMP 5.1 scope construct, which is similar
to worksharing constructs in many regards, but isn't one of them.
The body of the construct is encountered by all threads though, it can
be nested in itself or intermixed with taskgroup and worksharing etc.
constructs can appear inside of it (but it can't be nested in
worksharing etc. constructs). The main purpose of the construct
is to allow reductions (normal and task ones) without the need to
close the parallel and reopen another one.
If it doesn't have task reductions, it can be implemented without
any new library support, with nowait it just does the privatizations
at the start if any and reductions before the end of the body, with
without nowait emits a normal GOMP_barrier{,_cancel} at the end too.
For task reductions, we need to ensure only one thread initializes
the task reduction library data structures and other threads copy from that,
so a new GOMP_scope_start routine is added to the library for that.
It acts as if the start of the scope construct is a nowait worksharing
construct (that is ok, it can't be nested in other worksharing
constructs and all threads need to encounter the start in the same
order) which does the task reduction initialization, but as the body
can have other scope constructs and/or worksharing constructs, that is
all where we use this dummy worksharing construct. With task reductions,
the construct must not have nowait and ends with a GOMP_barrier{,_cancel},
followed by task reductions followed by GOMP_workshare_task_reduction_unregister.
Only C/C++ FE support is done.
2021-08-17 Jakub Jelinek <jakub@redhat.com>
gcc/
* tree.def (OMP_SCOPE): New tree code.
* tree.h (OMP_SCOPE_BODY, OMP_SCOPE_CLAUSES): Define.
* tree-nested.c (convert_nonlocal_reference_stmt,
convert_local_reference_stmt, convert_gimple_call): Handle
GIMPLE_OMP_SCOPE.
* tree-pretty-print.c (dump_generic_node): Handle OMP_SCOPE.
* gimple.def (GIMPLE_OMP_SCOPE): New gimple code.
* gimple.c (gimple_build_omp_scope): New function.
(gimple_copy): Handle GIMPLE_OMP_SCOPE.
* gimple.h (gimple_build_omp_scope): Declare.
(gimple_has_substatements): Handle GIMPLE_OMP_SCOPE.
(gimple_omp_scope_clauses, gimple_omp_scope_clauses_ptr,
gimple_omp_scope_set_clauses): New inline functions.
(CASE_GIMPLE_OMP): Add GIMPLE_OMP_SCOPE.
* gimple-pretty-print.c (dump_gimple_omp_scope): New function.
(pp_gimple_stmt_1): Handle GIMPLE_OMP_SCOPE.
* gimple-walk.c (walk_gimple_stmt): Likewise.
* gimple-low.c (lower_stmt): Likewise.
* gimplify.c (is_gimple_stmt): Handle OMP_MASTER.
(gimplify_scan_omp_clauses): For task reductions, handle OMP_SCOPE
like ORT_WORKSHARE constructs. Adjust diagnostics for %<scope%>
allowing task reductions. Reject inscan reductions on scope.
(omp_find_stores_stmt): Handle GIMPLE_OMP_SCOPE.
(gimplify_omp_workshare, gimplify_expr): Handle OMP_SCOPE.
* tree-inline.c (remap_gimple_stmt): Handle GIMPLE_OMP_SCOPE.
(estimate_num_insns): Likewise.
* omp-low.c (build_outer_var_ref): Look through GIMPLE_OMP_SCOPE
contexts if var isn't privatized there.
(check_omp_nesting_restrictions): Handle GIMPLE_OMP_SCOPE.
(scan_omp_1_stmt): Likewise.
(maybe_add_implicit_barrier_cancel): Look through outer
scope constructs.
(lower_omp_scope): New function.
(lower_omp_task_reductions): Handle OMP_SCOPE.
(lower_omp_1): Handle GIMPLE_OMP_SCOPE.
(diagnose_sb_1, diagnose_sb_2): Likewise.
* omp-expand.c (expand_omp_single): Support also GIMPLE_OMP_SCOPE.
(expand_omp): Handle GIMPLE_OMP_SCOPE.
(omp_make_gimple_edges): Likewise.
* omp-builtins.def (BUILT_IN_GOMP_SCOPE_START): New built-in.
gcc/c-family/
* c-pragma.h (enum pragma_kind): Add PRAGMA_OMP_SCOPE.
* c-pragma.c (omp_pragmas): Add scope construct.
* c-omp.c (omp_directives): Uncomment scope directive entry.
gcc/c/
* c-parser.c (OMP_SCOPE_CLAUSE_MASK): Define.
(c_parser_omp_scope): New function.
(c_parser_omp_construct): Handle PRAGMA_OMP_SCOPE.
gcc/cp/
* parser.c (OMP_SCOPE_CLAUSE_MASK): Define.
(cp_parser_omp_scope): New function.
(cp_parser_omp_construct, cp_parser_pragma): Handle PRAGMA_OMP_SCOPE.
* pt.c (tsubst_expr): Handle OMP_SCOPE.
gcc/testsuite/
* c-c++-common/gomp/nesting-2.c (foo): Add scope and masked
construct tests.
* c-c++-common/gomp/scan-1.c (f3): Add scope construct test..
* c-c++-common/gomp/cancel-1.c (f2): Add scope and masked
construct tests.
* c-c++-common/gomp/reduction-task-2.c (bar): Add scope construct
test. Adjust diagnostics for the addition of scope.
* c-c++-common/gomp/loop-1.c (f5): Add master, masked and scope
construct tests.
* c-c++-common/gomp/clause-dups-1.c (f1): Add scope construct test.
* gcc.dg/gomp/nesting-1.c (f1, f2, f3): Add scope construct tests.
* c-c++-common/gomp/scope-1.c: New test.
* c-c++-common/gomp/scope-2.c: New test.
* g++.dg/gomp/attrs-1.C (bar): Add scope construct tests.
* g++.dg/gomp/attrs-2.C (bar): Likewise.
* gfortran.dg/gomp/reduction4.f90: Adjust expected diagnostics.
* gfortran.dg/gomp/reduction7.f90: Likewise.
libgomp/
* Makefile.am (libgomp_la_SOURCES): Add scope.c
* Makefile.in: Regenerated.
* libgomp_g.h (GOMP_scope_start): Declare.
* libgomp.map: Add GOMP_scope_start@@GOMP_5.1.
* scope.c: New file.
* testsuite/libgomp.c-c++-common/scope-1.c: New test.
* testsuite/libgomp.c-c++-common/task-reduction-16.c: New test.
398 lines
15 KiB
C
398 lines
15 KiB
C
/* Copyright (C) 2005-2021 Free Software Foundation, Inc.
|
|
Contributed by Richard Henderson <rth@redhat.com>.
|
|
|
|
This file is part of the GNU Offloading and Multi Processing Library
|
|
(libgomp).
|
|
|
|
Libgomp 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.
|
|
|
|
Libgomp 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/>. */
|
|
|
|
/* This file contains prototypes of functions in the external ABI.
|
|
This file is included by files in the testsuite. */
|
|
|
|
#ifndef LIBGOMP_G_H
|
|
#define LIBGOMP_G_H 1
|
|
|
|
#include <stdbool.h>
|
|
#include <stddef.h>
|
|
#include <stdint.h>
|
|
|
|
/* barrier.c */
|
|
|
|
extern void GOMP_barrier (void);
|
|
extern bool GOMP_barrier_cancel (void);
|
|
|
|
/* critical.c */
|
|
|
|
extern void GOMP_critical_start (void);
|
|
extern void GOMP_critical_end (void);
|
|
extern void GOMP_critical_name_start (void **);
|
|
extern void GOMP_critical_name_end (void **);
|
|
extern void GOMP_atomic_start (void);
|
|
extern void GOMP_atomic_end (void);
|
|
|
|
/* loop.c */
|
|
|
|
extern bool GOMP_loop_static_start (long, long, long, long, long *, long *);
|
|
extern bool GOMP_loop_dynamic_start (long, long, long, long, long *, long *);
|
|
extern bool GOMP_loop_guided_start (long, long, long, long, long *, long *);
|
|
extern bool GOMP_loop_runtime_start (long, long, long, long *, long *);
|
|
extern bool GOMP_loop_nonmonotonic_dynamic_start (long, long, long, long,
|
|
long *, long *);
|
|
extern bool GOMP_loop_nonmonotonic_guided_start (long, long, long, long,
|
|
long *, long *);
|
|
extern bool GOMP_loop_nonmonotonic_runtime_start (long, long, long,
|
|
long *, long *);
|
|
extern bool GOMP_loop_maybe_nonmonotonic_runtime_start (long, long, long,
|
|
long *, long *);
|
|
extern bool GOMP_loop_start (long, long, long, long, long, long *, long *,
|
|
uintptr_t *, void **);
|
|
|
|
extern bool GOMP_loop_ordered_static_start (long, long, long, long,
|
|
long *, long *);
|
|
extern bool GOMP_loop_ordered_dynamic_start (long, long, long, long,
|
|
long *, long *);
|
|
extern bool GOMP_loop_ordered_guided_start (long, long, long, long,
|
|
long *, long *);
|
|
extern bool GOMP_loop_ordered_runtime_start (long, long, long, long *, long *);
|
|
extern bool GOMP_loop_ordered_start (long, long, long, long, long, long *,
|
|
long *, uintptr_t *, void **);
|
|
|
|
extern bool GOMP_loop_static_next (long *, long *);
|
|
extern bool GOMP_loop_dynamic_next (long *, long *);
|
|
extern bool GOMP_loop_guided_next (long *, long *);
|
|
extern bool GOMP_loop_runtime_next (long *, long *);
|
|
extern bool GOMP_loop_nonmonotonic_dynamic_next (long *, long *);
|
|
extern bool GOMP_loop_nonmonotonic_guided_next (long *, long *);
|
|
extern bool GOMP_loop_nonmonotonic_runtime_next (long *, long *);
|
|
extern bool GOMP_loop_maybe_nonmonotonic_runtime_next (long *, long *);
|
|
|
|
extern bool GOMP_loop_ordered_static_next (long *, long *);
|
|
extern bool GOMP_loop_ordered_dynamic_next (long *, long *);
|
|
extern bool GOMP_loop_ordered_guided_next (long *, long *);
|
|
extern bool GOMP_loop_ordered_runtime_next (long *, long *);
|
|
|
|
extern bool GOMP_loop_doacross_static_start (unsigned, long *, long, long *,
|
|
long *);
|
|
extern bool GOMP_loop_doacross_dynamic_start (unsigned, long *, long, long *,
|
|
long *);
|
|
extern bool GOMP_loop_doacross_guided_start (unsigned, long *, long, long *,
|
|
long *);
|
|
extern bool GOMP_loop_doacross_runtime_start (unsigned, long *, long *,
|
|
long *);
|
|
extern bool GOMP_loop_doacross_start (unsigned, long *, long, long, long *,
|
|
long *, uintptr_t *, void **);
|
|
|
|
extern void GOMP_parallel_loop_static_start (void (*)(void *), void *,
|
|
unsigned, long, long, long, long);
|
|
extern void GOMP_parallel_loop_dynamic_start (void (*)(void *), void *,
|
|
unsigned, long, long, long, long);
|
|
extern void GOMP_parallel_loop_guided_start (void (*)(void *), void *,
|
|
unsigned, long, long, long, long);
|
|
extern void GOMP_parallel_loop_runtime_start (void (*)(void *), void *,
|
|
unsigned, long, long, long);
|
|
extern void GOMP_parallel_loop_static (void (*)(void *), void *,
|
|
unsigned, long, long, long, long,
|
|
unsigned);
|
|
extern void GOMP_parallel_loop_dynamic (void (*)(void *), void *,
|
|
unsigned, long, long, long, long,
|
|
unsigned);
|
|
extern void GOMP_parallel_loop_guided (void (*)(void *), void *,
|
|
unsigned, long, long, long, long,
|
|
unsigned);
|
|
extern void GOMP_parallel_loop_runtime (void (*)(void *), void *,
|
|
unsigned, long, long, long,
|
|
unsigned);
|
|
extern void GOMP_parallel_loop_nonmonotonic_dynamic (void (*)(void *), void *,
|
|
unsigned, long, long,
|
|
long, long, unsigned);
|
|
extern void GOMP_parallel_loop_nonmonotonic_guided (void (*)(void *), void *,
|
|
unsigned, long, long,
|
|
long, long, unsigned);
|
|
extern void GOMP_parallel_loop_nonmonotonic_runtime (void (*)(void *), void *,
|
|
unsigned, long, long,
|
|
long, unsigned);
|
|
extern void GOMP_parallel_loop_maybe_nonmonotonic_runtime (void (*)(void *),
|
|
void *, unsigned,
|
|
long, long,
|
|
long, unsigned);
|
|
|
|
extern void GOMP_loop_end (void);
|
|
extern void GOMP_loop_end_nowait (void);
|
|
extern bool GOMP_loop_end_cancel (void);
|
|
|
|
/* loop_ull.c */
|
|
|
|
extern bool GOMP_loop_ull_static_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_dynamic_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_guided_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_runtime_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_nonmonotonic_dynamic_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_nonmonotonic_guided_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_nonmonotonic_runtime_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_maybe_nonmonotonic_runtime_start (bool,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_start (bool, unsigned long long, unsigned long long,
|
|
unsigned long long, long, unsigned long long,
|
|
unsigned long long *, unsigned long long *,
|
|
uintptr_t *, void **);
|
|
|
|
extern bool GOMP_loop_ull_ordered_static_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_ordered_dynamic_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_ordered_guided_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_ordered_runtime_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_ordered_start (bool, unsigned long long,
|
|
unsigned long long,
|
|
unsigned long long, long,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *,
|
|
uintptr_t *, void **);
|
|
|
|
extern bool GOMP_loop_ull_static_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_dynamic_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_guided_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_runtime_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_nonmonotonic_dynamic_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_nonmonotonic_guided_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_nonmonotonic_runtime_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_maybe_nonmonotonic_runtime_next (unsigned long long *,
|
|
unsigned long long *);
|
|
|
|
extern bool GOMP_loop_ull_ordered_static_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_ordered_dynamic_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_ordered_guided_next (unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_ordered_runtime_next (unsigned long long *,
|
|
unsigned long long *);
|
|
|
|
extern bool GOMP_loop_ull_doacross_static_start (unsigned,
|
|
unsigned long long *,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_doacross_dynamic_start (unsigned,
|
|
unsigned long long *,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_doacross_guided_start (unsigned,
|
|
unsigned long long *,
|
|
unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_doacross_runtime_start (unsigned,
|
|
unsigned long long *,
|
|
unsigned long long *,
|
|
unsigned long long *);
|
|
extern bool GOMP_loop_ull_doacross_start (unsigned, unsigned long long *,
|
|
long, unsigned long long,
|
|
unsigned long long *,
|
|
unsigned long long *,
|
|
uintptr_t *, void **);
|
|
|
|
/* ordered.c */
|
|
|
|
extern void GOMP_ordered_start (void);
|
|
extern void GOMP_ordered_end (void);
|
|
extern void GOMP_doacross_post (long *);
|
|
extern void GOMP_doacross_wait (long, ...);
|
|
extern void GOMP_doacross_ull_post (unsigned long long *);
|
|
extern void GOMP_doacross_ull_wait (unsigned long long, ...);
|
|
|
|
/* parallel.c */
|
|
|
|
extern void GOMP_parallel_start (void (*) (void *), void *, unsigned);
|
|
extern void GOMP_parallel_end (void);
|
|
extern void GOMP_parallel (void (*) (void *), void *, unsigned, unsigned);
|
|
extern unsigned GOMP_parallel_reductions (void (*) (void *), void *, unsigned,
|
|
unsigned);
|
|
extern bool GOMP_cancel (int, bool);
|
|
extern bool GOMP_cancellation_point (int);
|
|
|
|
/* task.c */
|
|
|
|
extern void GOMP_task (void (*) (void *), void *, void (*) (void *, void *),
|
|
long, long, bool, unsigned, void **, int, void *);
|
|
extern void GOMP_taskloop (void (*) (void *), void *,
|
|
void (*) (void *, void *), long, long, unsigned,
|
|
unsigned long, int, long, long, long);
|
|
extern void GOMP_taskloop_ull (void (*) (void *), void *,
|
|
void (*) (void *, void *), long, long,
|
|
unsigned, unsigned long, int,
|
|
unsigned long long, unsigned long long,
|
|
unsigned long long);
|
|
extern void GOMP_taskwait (void);
|
|
extern void GOMP_taskwait_depend (void **);
|
|
extern void GOMP_taskyield (void);
|
|
extern void GOMP_taskgroup_start (void);
|
|
extern void GOMP_taskgroup_end (void);
|
|
extern void GOMP_taskgroup_reduction_register (uintptr_t *);
|
|
extern void GOMP_taskgroup_reduction_unregister (uintptr_t *);
|
|
extern void GOMP_task_reduction_remap (size_t, size_t, void **);
|
|
extern void GOMP_workshare_task_reduction_unregister (bool);
|
|
|
|
/* sections.c */
|
|
|
|
extern unsigned GOMP_sections_start (unsigned);
|
|
extern unsigned GOMP_sections2_start (unsigned, uintptr_t *, void **);
|
|
extern unsigned GOMP_sections_next (void);
|
|
extern void GOMP_parallel_sections_start (void (*) (void *), void *,
|
|
unsigned, unsigned);
|
|
extern void GOMP_parallel_sections (void (*) (void *), void *,
|
|
unsigned, unsigned, unsigned);
|
|
extern void GOMP_sections_end (void);
|
|
extern void GOMP_sections_end_nowait (void);
|
|
extern bool GOMP_sections_end_cancel (void);
|
|
|
|
/* single.c */
|
|
|
|
extern bool GOMP_single_start (void);
|
|
extern void *GOMP_single_copy_start (void);
|
|
extern void GOMP_single_copy_end (void *);
|
|
|
|
/* scope.c */
|
|
|
|
extern void GOMP_scope_start (uintptr_t *);
|
|
|
|
/* target.c */
|
|
|
|
extern void GOMP_target (int, void (*) (void *), const void *,
|
|
size_t, void **, size_t *, unsigned char *);
|
|
extern void GOMP_target_ext (int, void (*) (void *), size_t, void **, size_t *,
|
|
unsigned short *, unsigned int, void **, void **);
|
|
extern void GOMP_target_data (int, const void *,
|
|
size_t, void **, size_t *, unsigned char *);
|
|
extern void GOMP_target_data_ext (int, size_t, void **, size_t *,
|
|
unsigned short *);
|
|
extern void GOMP_target_end_data (void);
|
|
extern void GOMP_target_update (int, const void *,
|
|
size_t, void **, size_t *, unsigned char *);
|
|
extern void GOMP_target_update_ext (int, size_t, void **, size_t *,
|
|
unsigned short *, unsigned int, void **);
|
|
extern void GOMP_target_enter_exit_data (int, size_t, void **, size_t *,
|
|
unsigned short *, unsigned int,
|
|
void **);
|
|
extern void GOMP_teams (unsigned int, unsigned int);
|
|
|
|
/* teams.c */
|
|
|
|
extern void GOMP_teams_reg (void (*) (void *), void *, unsigned, unsigned,
|
|
unsigned);
|
|
|
|
/* allocator.c */
|
|
|
|
extern void *GOMP_alloc (size_t, size_t, uintptr_t);
|
|
extern void GOMP_free (void *, uintptr_t);
|
|
|
|
/* oacc-async.c */
|
|
|
|
extern void GOACC_wait (int, int, ...);
|
|
|
|
/* oacc-mem.c */
|
|
|
|
extern void GOACC_enter_exit_data (int, size_t, void **, size_t *,
|
|
unsigned short *, int, int, ...);
|
|
extern void GOACC_enter_data (int, size_t, void **, size_t *,
|
|
unsigned short *, int, int, ...);
|
|
extern void GOACC_exit_data (int, size_t, void **, size_t *,
|
|
unsigned short *, int, int, ...);
|
|
extern void GOACC_declare (int, size_t, void **, size_t *, unsigned short *);
|
|
|
|
/* oacc-parallel.c */
|
|
|
|
extern void GOACC_parallel_keyed (int, void (*) (void *), size_t,
|
|
void **, size_t *, unsigned short *, ...);
|
|
extern void GOACC_parallel (int, void (*) (void *), size_t, void **, size_t *,
|
|
unsigned short *, int, int, int, int, int, ...);
|
|
extern void GOACC_data_start (int, size_t, void **, size_t *,
|
|
unsigned short *);
|
|
extern void GOACC_data_end (void);
|
|
extern void GOACC_update (int, size_t, void **, size_t *,
|
|
unsigned short *, int, int, ...);
|
|
extern int GOACC_get_num_threads (void);
|
|
extern int GOACC_get_thread_num (void);
|
|
|
|
#endif /* LIBGOMP_G_H */
|