public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r14-6412] OpenMP: Minor '!$omp allocators' cleanup
@ 2023-12-11 14:08 Tobias Burnus
0 siblings, 0 replies; only message in thread
From: Tobias Burnus @ 2023-12-11 14:08 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:2505a8b41d3b74a545755a278f3750a29c1340b6
commit r14-6412-g2505a8b41d3b74a545755a278f3750a29c1340b6
Author: Tobias Burnus <tobias@codesourcery.com>
Date: Mon Dec 11 15:08:07 2023 +0100
OpenMP: Minor '!$omp allocators' cleanup
gcc/fortran/ChangeLog:
* trans-openmp.cc (gfc_omp_call_add_alloc,
gfc_omp_call_is_alloc): Set 'fn spec'.
libgomp/ChangeLog:
* libgomp_g.h (GOMP_add_alloc, GOMP_is_alloc): Add.
Diff:
---
gcc/fortran/trans-openmp.cc | 8 ++++++--
libgomp/libgomp_g.h | 3 +++
2 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index 9e166c94f8e..95184920cf7 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -8361,8 +8361,10 @@ gfc_omp_call_add_alloc (tree ptr)
if (fn == NULL_TREE)
{
fn = build_function_type_list (void_type_node, ptr_type_node, NULL_TREE);
+ tree att = build_tree_list (NULL_TREE, build_string (4, ". R "));
+ att = tree_cons (get_identifier ("fn spec"), att, TYPE_ATTRIBUTES (fn));
+ fn = build_type_attribute_variant (fn, att);
fn = build_fn_decl ("GOMP_add_alloc", fn);
-/* FIXME: attributes. */
}
return build_call_expr_loc (input_location, fn, 1, ptr);
}
@@ -8380,7 +8382,9 @@ gfc_omp_call_is_alloc (tree ptr)
fn = build_function_type_list (boolean_type_node, ptr_type_node,
NULL_TREE);
fn = build_fn_decl ("GOMP_is_alloc", fn);
-/* FIXME: attributes. */
+ tree att = build_tree_list (NULL_TREE, build_string (4, ". R "));
+ att = tree_cons (get_identifier ("fn spec"), att, TYPE_ATTRIBUTES (fn));
+ fn = build_type_attribute_variant (fn, att);
}
return build_call_expr_loc (input_location, fn, 1, ptr);
}
diff --git a/libgomp/libgomp_g.h b/libgomp/libgomp_g.h
index 95046312ae9..ec619f255f2 100644
--- a/libgomp/libgomp_g.h
+++ b/libgomp/libgomp_g.h
@@ -366,6 +366,9 @@ extern void GOMP_teams_reg (void (*) (void *), void *, unsigned, unsigned,
/* allocator.c */
+extern void GOMP_add_alloc (void *);
+extern bool GOMP_is_alloc (void *);
+
extern void *GOMP_alloc (size_t, size_t, uintptr_t);
extern void GOMP_free (void *, uintptr_t);
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2023-12-11 14:08 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-12-11 14:08 [gcc r14-6412] OpenMP: Minor '!$omp allocators' cleanup Tobias Burnus
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).