[gcc r16-7283] [PATCH] RISC-V: fix nullptr dereference in parse_arch
Jeff Law
law@gcc.gnu.org
Wed Feb 4 14:49:17 GMT 2026
https://gcc.gnu.org/g:09d7a79c796fb333fa279b550c8b0f768e46d97f
commit r16-7283-g09d7a79c796fb333fa279b550c8b0f768e46d97f
Author: Yangyu Chen <cyy@cyyself.name>
Date: Wed Feb 4 07:48:17 2026 -0700
[PATCH] RISC-V: fix nullptr dereference in parse_arch
When parsing target attributes, if an invalid architecture string is
provided, the function parse_single_ext may return nullptr. The existing
code does not check for this case, leading to a nullptr dereference when
attempting to access the returned pointer. This patch adds a check to
ensure that the returned pointer is not nullptr before dereferencing it.
If it is nullptr, an appropriate error message is generated.
gcc/ChangeLog:
* config/riscv/riscv-target-attr.cc
(riscv_target_attr_parser::parse_arch): Fix nullptr dereference
when parsing invalid arch string.
gcc/testsuite/ChangeLog:
* gcc.target/riscv/target-attr-bad-11.c: New test.
Diff:
---
gcc/config/riscv/riscv-target-attr.cc | 2 +-
.../gcc.target/riscv/target-attr-bad-11.c | 8 +
libgomp/J | 498 +++++++++++++++++++++
3 files changed, 507 insertions(+), 1 deletion(-)
diff --git a/gcc/config/riscv/riscv-target-attr.cc b/gcc/config/riscv/riscv-target-attr.cc
index 99af5308fea4..683b2a02f807 100644
--- a/gcc/config/riscv/riscv-target-attr.cc
+++ b/gcc/config/riscv/riscv-target-attr.cc
@@ -156,7 +156,7 @@ riscv_target_attr_parser::parse_arch (const char *str)
const char *result = m_subset_list->parse_single_ext (token + 1);
/* Check parse_single_ext has consume all string. */
- if (*result != '\0')
+ if (result == nullptr || *result != '\0')
{
if (m_loc)
error_at (*m_loc, "unexpected arch for %<target()%> "
diff --git a/gcc/testsuite/gcc.target/riscv/target-attr-bad-11.c b/gcc/testsuite/gcc.target/riscv/target-attr-bad-11.c
new file mode 100644
index 000000000000..92da82ffc97c
--- /dev/null
+++ b/gcc/testsuite/gcc.target/riscv/target-attr-bad-11.c
@@ -0,0 +1,8 @@
+/* { dg-do compile } */
+/* { dg-skip-if "" { *-*-* } { "-fno-fat-lto-objects" } } */
+/* { dg-options "-march=rv64gc -O2 -mabi=lp64" } */
+
+long foo(long a, long b) __attribute__((target("arch=+randomstring"))); /* { dg-error "unexpected arch for 'target\\(\\)' attribute: bad string found '\\+randomstring'" } */
+long foo(long a, long b){
+ return a + (b * 2);
+}
diff --git a/libgomp/J b/libgomp/J
new file mode 100644
index 000000000000..a31961ee060a
--- /dev/null
+++ b/libgomp/J
@@ -0,0 +1,498 @@
+254a858ae7ae (Jakub Jelinek 2026-01-02 09:53:48 +0100 1) /* Copyright (C) 2018-2026 Free Software Foundation, Inc.
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 2) Contributed by Jakub Jelinek <jakub@redhat.com>.
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 3)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 4) This file is part of the GNU Offloading and Multi Processing Library
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 5) (libgomp).
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 6)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 7) Libgomp is free software; you can redistribute it and/or modify it
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 8) under the terms of the GNU General Public License as published by
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 9) the Free Software Foundation; either version 3, or (at your option)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 10) any later version.
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 11)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 12) Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 13) WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 14) FOR A PARTICULAR PURPOSE. See the GNU General Public License for
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 15) more details.
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 16)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 17) Under Section 7 of GPL version 3, you are granted additional
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 18) permissions described in the GCC Runtime Library Exception, version
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 19) 3.1, as published by the Free Software Foundation.
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 20)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 21) You should have received a copy of the GNU General Public License and
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 22) a copy of the GCC Runtime Library Exception along with this program;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 23) see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 24) <http://www.gnu.org/licenses/>. */
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 25)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 26) #include "libgomp.h"
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 27) #include <string.h>
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 28) #include <stdio.h>
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 29) #include <stdlib.h>
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 30) #ifdef HAVE_UNISTD_H
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 31) #include <unistd.h>
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 32) #endif
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 33) #ifdef HAVE_INTTYPES_H
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 34) # include <inttypes.h> /* For PRIx64. */
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 35) #endif
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 36) #ifdef HAVE_UNAME
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 37) #include <sys/utsname.h>
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 38) #endif
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 39)
+3749c3aff651 (Jakub Jelinek 2021-10-01 10:42:07 +0200 40) ialias_redirect (omp_get_team_num)
+3749c3aff651 (Jakub Jelinek 2021-10-01 10:42:07 +0200 41) ialias_redirect (omp_get_num_teams)
+3749c3aff651 (Jakub Jelinek 2021-10-01 10:42:07 +0200 42)
+91df4397a140 (Jakub Jelinek 2020-01-10 21:42:00 +0100 43) bool
+fe0827eed09d (Tom de Vries 2018-12-13 18:04:05 +0000 44) gomp_print_string (const char *str, size_t len)
+fe0827eed09d (Tom de Vries 2018-12-13 18:04:05 +0000 45) {
+91df4397a140 (Jakub Jelinek 2020-01-10 21:42:00 +0100 46) return fwrite (str, 1, len, stderr) != len;
+fe0827eed09d (Tom de Vries 2018-12-13 18:04:05 +0000 47) }
+fe0827eed09d (Tom de Vries 2018-12-13 18:04:05 +0000 48)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 49) void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 50) gomp_set_affinity_format (const char *format, size_t len)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 51) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 52) if (len < gomp_affinity_format_len)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 53) memcpy (gomp_affinity_format_var, format, len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 54) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 55) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 56) char *p;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 57) if (gomp_affinity_format_len)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 58) p = gomp_realloc (gomp_affinity_format_var, len + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 59) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 60) p = gomp_malloc (len + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 61) memcpy (p, format, len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 62) gomp_affinity_format_var = p;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 63) gomp_affinity_format_len = len + 1;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 64) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 65) gomp_affinity_format_var[len] = '\0';
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 66) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 67)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 68) void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 69) omp_set_affinity_format (const char *format)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 70) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 71) gomp_set_affinity_format (format, strlen (format));
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 72) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 73)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 74) size_t
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 75) omp_get_affinity_format (char *buffer, size_t size)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 76) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 77) size_t len = strlen (gomp_affinity_format_var);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 78) if (size)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 79) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 80) if (len < size)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 81) memcpy (buffer, gomp_affinity_format_var, len + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 82) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 83) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 84) memcpy (buffer, gomp_affinity_format_var, size - 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 85) buffer[size - 1] = '\0';
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 86) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 87) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 88) return len;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 89) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 90)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 91) void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 92) gomp_display_string (char *buffer, size_t size, size_t *ret,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 93) const char *str, size_t len)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 94) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 95) size_t r = *ret;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 96) if (size && r < size)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 97) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 98) size_t l = len;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 99) if (size - r < len)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 100) l = size - r;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 101) memcpy (buffer + r, str, l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 102) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 103) *ret += len;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 104) if (__builtin_expect (r > *ret, 0))
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 105) gomp_fatal ("overflow in omp_capture_affinity");
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 106) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 107)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 108) static void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 109) gomp_display_repeat (char *buffer, size_t size, size_t *ret,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 110) char c, size_t len)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 111) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 112) size_t r = *ret;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 113) if (size && r < size)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 114) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 115) size_t l = len;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 116) if (size - r < len)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 117) l = size - r;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 118) memset (buffer + r, c, l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 119) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 120) *ret += len;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 121) if (__builtin_expect (r > *ret, 0))
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 122) gomp_fatal ("overflow in omp_capture_affinity");
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 123) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 124)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 125) static void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 126) gomp_display_num (char *buffer, size_t size, size_t *ret,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 127) bool zero, bool right, size_t sz, char *buf)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 128) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 129) size_t l = strlen (buf);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 130) if (sz == (size_t) -1 || l >= sz)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 131) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 132) gomp_display_string (buffer, size, ret, buf, l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 133) return;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 134) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 135) if (zero)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 136) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 137) if (buf[0] == '-')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 138) gomp_display_string (buffer, size, ret, buf, 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 139) else if (buf[0] == '0' && buf[1] == 'x')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 140) gomp_display_string (buffer, size, ret, buf, 2);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 141) gomp_display_repeat (buffer, size, ret, '0', sz - l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 142) if (buf[0] == '-')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 143) gomp_display_string (buffer, size, ret, buf + 1, l - 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 144) else if (buf[0] == '0' && buf[1] == 'x')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 145) gomp_display_string (buffer, size, ret, buf + 2, l - 2);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 146) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 147) gomp_display_string (buffer, size, ret, buf, l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 148) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 149) else if (right)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 150) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 151) gomp_display_repeat (buffer, size, ret, ' ', sz - l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 152) gomp_display_string (buffer, size, ret, buf, l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 153) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 154) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 155) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 156) gomp_display_string (buffer, size, ret, buf, l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 157) gomp_display_repeat (buffer, size, ret, ' ', sz - l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 158) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 159) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 160)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 161) static void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 162) gomp_display_int (char *buffer, size_t size, size_t *ret,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 163) bool zero, bool right, size_t sz, int num)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 164) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 165) char buf[3 * sizeof (int) + 2];
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 166) sprintf (buf, "%d", num);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 167) gomp_display_num (buffer, size, ret, zero, right, sz, buf);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 168) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 169)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 170) static void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 171) gomp_display_string_len (char *buffer, size_t size, size_t *ret,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 172) bool right, size_t sz, char *str, size_t len)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 173) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 174) if (sz == (size_t) -1 || len >= sz)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 175) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 176) gomp_display_string (buffer, size, ret, str, len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 177) return;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 178) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 179)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 180) if (right)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 181) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 182) gomp_display_repeat (buffer, size, ret, ' ', sz - len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 183) gomp_display_string (buffer, size, ret, str, len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 184) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 185) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 186) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 187) gomp_display_string (buffer, size, ret, str, len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 188) gomp_display_repeat (buffer, size, ret, ' ', sz - len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 189) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 190) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 191)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 192) static void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 193) gomp_display_hostname (char *buffer, size_t size, size_t *ret,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 194) bool right, size_t sz)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 195) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 196) #ifdef HAVE_GETHOSTNAME
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 197) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 198) char buf[256];
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 199) char *b = buf;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 200) size_t len = 256;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 201) do
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 202) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 203) b[len - 1] = '\0';
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 204) if (gethostname (b, len - 1) == 0)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 205) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 206) size_t l = strlen (b);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 207) if (l < len - 1)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 208) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 209) gomp_display_string_len (buffer, size, ret,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 210) right, sz, b, l);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 211) if (b != buf)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 212) free (b);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 213) return;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 214) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 215) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 216) if (len == 1048576)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 217) break;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 218) len = len * 2;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 219) if (len == 512)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 220) b = gomp_malloc (len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 221) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 222) b = gomp_realloc (b, len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 223) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 224) while (1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 225) if (b != buf)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 226) free (b);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 227) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 228) #endif
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 229) #ifdef HAVE_UNAME
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 230) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 231) struct utsname buf;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 232) if (uname (&buf) == 0)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 233) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 234) gomp_display_string_len (buffer, size, ret, right, sz,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 235) buf.nodename, strlen (buf.nodename));
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 236) return;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 237) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 238) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 239) #endif
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 240) gomp_display_string_len (buffer, size, ret, right, sz, "node", 4);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 241) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 242)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 243) struct affinity_types_struct {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 244) char long_str[18];
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 245) char long_len;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 246) char short_c; };
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 247)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 248) static struct affinity_types_struct affinity_types[] =
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 249) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 250) #define AFFINITY_TYPE(l, s) \
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 251) { #l, sizeof (#l) - 1, s }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 252) AFFINITY_TYPE (team_num, 't'),
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 253) AFFINITY_TYPE (num_teams, 'T'),
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 254) AFFINITY_TYPE (nesting_level, 'L'),
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 255) AFFINITY_TYPE (thread_num, 'n'),
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 256) AFFINITY_TYPE (num_threads, 'N'),
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 257) AFFINITY_TYPE (ancestor_tnum, 'a'),
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 258) AFFINITY_TYPE (host, 'H'),
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 259) AFFINITY_TYPE (process_id, 'P'),
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 260) AFFINITY_TYPE (native_thread_id, 'i'),
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 261) AFFINITY_TYPE (thread_affinity, 'A')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 262) #undef AFFINITY_TYPE
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 263) };
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 264)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 265) size_t
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 266) gomp_display_affinity (char *buffer, size_t size,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 267) const char *format, gomp_thread_handle handle,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 268) struct gomp_team_state *ts, unsigned int place)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 269) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 270) size_t ret = 0;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 271) do
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 272) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 273) const char *p = strchr (format, '%');
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 274) bool zero = false;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 275) bool right = false;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 276) size_t sz = -1;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 277) char c;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 278) int val;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 279) if (p == NULL)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 280) p = strchr (format, '\0');
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 281) if (p != format)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 282) gomp_display_string (buffer, size, &ret,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 283) format, p - format);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 284) if (*p == '\0')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 285) break;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 286) p++;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 287) if (*p == '%')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 288) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 289) gomp_display_string (buffer, size, &ret, "%", 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 290) format = p + 1;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 291) continue;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 292) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 293) if (*p == '0')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 294) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 295) zero = true;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 296) p++;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 297) if (*p != '.')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 298) gomp_fatal ("leading zero not followed by dot in affinity format");
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 299) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 300) if (*p == '.')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 301) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 302) right = true;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 303) p++;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 304) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 305) if (*p >= '1' && *p <= '9')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 306) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 307) char *end;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 308) sz = strtoul (p, &end, 10);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 309) p = end;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 310) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 311) else if (zero || right)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 312) gomp_fatal ("leading zero or right justification in affinity format "
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 313) "requires size");
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 314) c = *p;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 315) if (c == '{')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 316) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 317) int i;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 318) for (i = 0;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 319) i < sizeof (affinity_types) / sizeof (affinity_types[0]); ++i)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 320) if (strncmp (p + 1, affinity_types[i].long_str,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 321) affinity_types[i].long_len) == 0
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 322) && p[affinity_types[i].long_len + 1] == '}')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 323) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 324) c = affinity_types[i].short_c;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 325) p += affinity_types[i].long_len + 1;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 326) break;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 327) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 328) if (c == '{')
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 329) {
+9c9d3aef2f66 (Frank Scheiner 2025-11-25 16:58:23 -0700 330) const char *q = strchr (p + 1, '}');
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 331) if (q)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 332) gomp_fatal ("unsupported long type name '%.*s' in affinity "
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 333) "format", (int) (q - (p + 1)), p + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 334) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 335) gomp_fatal ("unterminated long type name '%s' in affinity "
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 336) "format", p + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 337) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 338) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 339) switch (c)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 340) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 341) case 't':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 342) val = omp_get_team_num ();
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 343) goto do_int;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 344) case 'T':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 345) val = omp_get_num_teams ();
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 346) goto do_int;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 347) case 'L':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 348) val = ts->level;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 349) goto do_int;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 350) case 'n':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 351) val = ts->team_id;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 352) goto do_int;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 353) case 'N':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 354) val = ts->team ? ts->team->nthreads : 1;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 355) goto do_int;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 356) case 'a':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 357) val = ts->team ? ts->team->prev_ts.team_id : -1;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 358) goto do_int;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 359) case 'H':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 360) gomp_display_hostname (buffer, size, &ret, right, sz);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 361) break;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 362) case 'P':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 363) #ifdef HAVE_GETPID
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 364) val = getpid ();
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 365) #else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 366) val = 0;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 367) #endif
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 368) goto do_int;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 369) case 'i':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 370) #if defined(LIBGOMP_USE_PTHREADS) && defined(__GNUC__)
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 371) {
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 372) char buf[3 * (sizeof (handle) + sizeof (uintptr_t) + sizeof (int))
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 373) + 4];
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 374) /* This macro returns expr unmodified for integral or pointer
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 375) types and 0 for anything else (e.g. aggregates). */
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 376) #define gomp_nonaggregate(expr) \
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 377) __builtin_choose_expr (__builtin_classify_type (expr) == 1 \
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 378) || __builtin_classify_type (expr) == 5, expr, 0)
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 379) /* This macro returns expr unmodified for integral types,
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 380) (uintptr_t) (expr) for pointer types and 0 for anything else
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 381) (e.g. aggregates). */
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 382) #define gomp_integral(expr) \
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 383) __builtin_choose_expr (__builtin_classify_type (expr) == 5, \
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 384) (uintptr_t) gomp_nonaggregate (expr), \
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 385) gomp_nonaggregate (expr))
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 386)
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 387) if (sizeof (gomp_integral (handle)) == sizeof (unsigned long))
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 388) sprintf (buf, "0x%lx", (unsigned long) gomp_integral (handle));
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 389) #if defined (HAVE_INTTYPES_H) && defined (PRIx64)
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 390) else if (sizeof (gomp_integral (handle)) == sizeof (uint64_t))
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 391) sprintf (buf, "0x%" PRIx64, (uint64_t) gomp_integral (handle));
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 392) #else
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 393) else if (sizeof (gomp_integral (handle))
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 394) == sizeof (unsigned long long))
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 395) sprintf (buf, "0x%llx",
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 396) (unsigned long long) gomp_integral (handle));
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 397) #endif
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 398) else
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 399) sprintf (buf, "0x%x", (unsigned int) gomp_integral (handle));
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 400) gomp_display_num (buffer, size, &ret, zero, right, sz, buf);
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 401) break;
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 402) }
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 403) #else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 404) val = 0;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 405) goto do_int;
+9666c52203b7 (Jakub Jelinek 2018-11-09 21:17:40 +0100 406) #endif
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 407) case 'A':
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 408) if (sz == (size_t) -1)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 409) gomp_display_affinity_place (buffer, size, &ret,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 410) place - 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 411) else if (right)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 412) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 413) size_t len = 0;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 414) gomp_display_affinity_place (NULL, 0, &len, place - 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 415) if (len < sz)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 416) gomp_display_repeat (buffer, size, &ret, ' ', sz - len);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 417) gomp_display_affinity_place (buffer, size, &ret, place - 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 418) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 419) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 420) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 421) size_t start = ret;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 422) gomp_display_affinity_place (buffer, size, &ret, place - 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 423) if (ret - start < sz)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 424) gomp_display_repeat (buffer, size, &ret, ' ', sz - (ret - start));
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 425) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 426) break;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 427) do_int:
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 428) gomp_display_int (buffer, size, &ret, zero, right, sz, val);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 429) break;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 430) default:
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 431) gomp_fatal ("unsupported type %c in affinity format", c);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 432) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 433) format = p + 1;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 434) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 435) while (1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 436) return ret;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 437) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 438)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 439) size_t
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 440) omp_capture_affinity (char *buffer, size_t size, const char *format)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 441) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 442) struct gomp_thread *thr = gomp_thread ();
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 443) size_t ret
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 444) = gomp_display_affinity (buffer, size,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 445) format && *format
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 446) ? format : gomp_affinity_format_var,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 447) gomp_thread_self (), &thr->ts, thr->place);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 448) if (size)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 449) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 450) if (ret >= size)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 451) buffer[size - 1] = '\0';
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 452) else
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 453) buffer[ret] = '\0';
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 454) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 455) return ret;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 456) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 457) ialias (omp_capture_affinity)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 458)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 459) void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 460) omp_display_affinity (const char *format)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 461) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 462) char buf[512];
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 463) char *b;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 464) size_t ret = ialias_call (omp_capture_affinity) (buf, sizeof buf, format);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 465) if (ret < sizeof buf)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 466) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 467) buf[ret] = '\n';
+fe0827eed09d (Tom de Vries 2018-12-13 18:04:05 +0000 468) gomp_print_string (buf, ret + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 469) return;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 470) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 471) b = gomp_malloc (ret + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 472) ialias_call (omp_capture_affinity) (b, ret + 1, format);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 473) b[ret] = '\n';
+fe0827eed09d (Tom de Vries 2018-12-13 18:04:05 +0000 474) gomp_print_string (b, ret + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 475) free (b);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 476) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 477)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 478) void
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 479) gomp_display_affinity_thread (gomp_thread_handle handle,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 480) struct gomp_team_state *ts, unsigned int place)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 481) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 482) char buf[512];
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 483) char *b;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 484) size_t ret = gomp_display_affinity (buf, sizeof buf, gomp_affinity_format_var,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 485) handle, ts, place);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 486) if (ret < sizeof buf)
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 487) {
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 488) buf[ret] = '\n';
+fe0827eed09d (Tom de Vries 2018-12-13 18:04:05 +0000 489) gomp_print_string (buf, ret + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 490) return;
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 491) }
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 492) b = gomp_malloc (ret + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 493) gomp_display_affinity (b, ret + 1, gomp_affinity_format_var,
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 494) handle, ts, place);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 495) b[ret] = '\n';
+fe0827eed09d (Tom de Vries 2018-12-13 18:04:05 +0000 496) gomp_print_string (b, ret + 1);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 497) free (b);
+28567c40e2c7 (Jakub Jelinek 2018-11-08 18:13:04 +0100 498) }
More information about the Gcc-cvs
mailing list