fprintf (stderr, "%s: ", program_name);
error (status, errnum, message, va_alist)     int status;     int errnum;     char *message;     va_dcl#endif{#ifdef VA_START  va_list args;#endif#if defined _LIBC && defined __libc_ptf_call  /* We do not want this call to be cut short by a thread     cancellation.  Therefore disable cancellation for now.  */  int state = PTHREAD_CANCEL_ENABLE;  __libc_ptf_call (pthread_setcancelstate, (PTHREAD_CANCEL_DISABLE, &state),		   0);#endif  fflush (stdout);#ifdef _LIBC  _IO_flockfile (stderr);#endif  if (error_print_progname)    (*error_print_progname) ();  else    {#if _LIBC      if (_IO_fwide (stderr, 0) > 0)	__fwprintf (stderr, L"%s: ", program_name);      else#endif	fprintf (stderr, "%s: ", program_name);    }#ifdef VA_START  VA_START (args, message);  error_tail (status, errnum, message, args);#else  fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8);  ++error_message_count;  if (errnum)    print_errno_message (errnum);  putc ('\n', stderr);  fflush (stderr);  if (status)    exit (status);#endif#ifdef _LIBC  _IO_funlockfile (stderr);# ifdef __libc_ptf_call  __libc_ptf_call (pthread_setcancelstate, (state, NULL), 0);# endif#endif}