__libc_once_define (static, once);
_dlerror_run (void (*operate) (void *), void *args){  __libc_once_define (static, once);  struct dl_action_result *result;  /* If we have not yet initialized the buffer do it now.  */  __libc_once (once, init);  /* Get error string and number.  */  if (static_buf != NULL)    result = static_buf;  else    {      /* We don't use the static buffer and so we have a key.  Use it	 to get the thread-specific buffer.  */      result = __libc_getspecific (key);      if (result == NULL)	{	  result = (struct dl_action_result *) calloc (1, sizeof (*result));	  if (result == NULL)	    /* We are out of memory.  Since this is no really critical	       situation we carry on by using the global variable.	       This might lead to conflicts between the threads but	       they soon all will have memory problems.  */	    result = &last_result;	  else	    /* Set the tsd.  */	    __libc_setspecific (key, result);	}    }  if (result->errstring != NULL)    {      /* Free the error string from the last failed command.  This can	 happen if `dlerror' was not run after an error was found.  */      if (strcmp (result->errstring, "out of memory") != 0)	free ((char *) result->errstring);      result->errstring = NULL;    }  result->errcode = _dl_catch_error (&result->objname, &result->errstring,				     operate, args);  /* If no error we mark that no error string is available.  */  result->returned = result->errstring == NULL;  return result->errstring != NULL;}