On Wed, 19 Apr 2023 at 14:51, Bernhard Reutner-Fischer <rep.dot....@gmail.com> wrote: > > On 19 April 2023 09:06:28 CEST, Lipeng Zhu via Fortran <fort...@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.
Sorry, i hit send too early. Please use xmalloc as defined in libgfortran/runtime/memory.c PS: IIRC we have likely() / unlikely() macros in libgfortran, so you may want to check if you want to annotate some conditions accordingly if predict gets it wrong. thanks, > > >+ 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) > >+ >