On 19 April 2023 09:06:28 CEST, Lipeng Zhu via Fortran <fortran@gcc.gnu.org>
wrote:
>+#ifdef __GTHREAD_RWLOCK_INIT
>+#define RWLOCK_DEBUG_ADD(rwlock) do { \
>+ aio_rwlock_debug *n; \
>+ n = malloc (sizeof(aio_rwlock_debug)); \
My malloc can fail.
>+ n->prev = TAIL_RWLOCK_DEBUG_QUEUE; \
>+ if (n->prev) \
>+ n->prev->next = n; \
>+ n->next = NULL; \
>+ n->line = __LINE__; \
>+ n->func = __FUNCTION__; \
>+ n->rw = rwlock; \
>+ if (!aio_rwlock_debug_head) { \
>+ aio_rwlock_debug_head = n; \
>+ } \
>+ } while (0)
>+
