1: /* Copyright (C) 1993, 1995, 1996, 1997 Free Software Foundation, Inc.
    2:    This file is part of the GNU C Library.
    3: 
    4:    The GNU C Library is free software; you can redistribute it and/or
    5:    modify it under the terms of the GNU Lesser General Public
    6:    License as published by the Free Software Foundation; either
    7:    version 2.1 of the License, or (at your option) any later version.
    8: 
    9:    The GNU C Library is distributed in the hope that it will be useful,
   10:    but WITHOUT ANY WARRANTY; without even the implied warranty of
   11:    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   12:    Lesser General Public License for more details.
   13: 
   14:    You should have received a copy of the GNU Lesser General Public
   15:    License along with the GNU C Library; if not, write to the Free
   16:    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   17:    02111-1307 USA.
   18: 
   19:    As a special exception, if you link the code in this file with
   20:    files compiled with a GNU compiler to produce an executable,
   21:    that does not cause the resulting executable to be covered by
   22:    the GNU Lesser General Public License.  This exception does not
   23:    however invalidate any other reasons why the executable file
   24:    might be covered by the GNU Lesser General Public License.
   25:    This exception applies to code released by its copyright holders
   26:    in files containing the exception.  */
   27: 
   28: #include "libioP.h"
   29: #include "stdio.h"
   30: 
   31: int
   32: _IO_ferror (fp)
   33:      _IO_FILE* fp;
   34: {
   35:   int result;
   36:   CHECK_FILE (fp, EOF);
   37:   _IO_flockfile (fp);
   38:   result = _IO_ferror_unlocked (fp);
   39:   _IO_funlockfile (fp);
   40:   return result;
   41: }
   42: 
   43: #ifdef weak_alias
   44: weak_alias (_IO_ferror, ferror)
   45: 
   46: #ifndef _IO_MTSAFE_IO
   47: #undef ferror_unlocked
   48: weak_alias (_IO_ferror, ferror_unlocked)
   49: #endif
   50: #endif