mirror/gcc
1
0
Fork 0
mirror of https://github.com/gcc-mirror/gcc.git synced 2024-11-21 13:40:47 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

OpenMP: Minor '!$omp allocators' cleanup

Browse Source 
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.
This commit is contained in:
Tobias Burnus 2023-12-11 15:08:07 +01:00
parent 8d2e5ad7f1
commit 2505a8b41d
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/fortran/trans-openmp.cc
View File

@ -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);
}

3
libgomp/libgomp_g.h
View File

@ -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);