]>
Commit | Line | Data |
---|---|---|
96aa2d94 RM |
1 | /* |
2 | Copyright (C) 1993, 1995 Free Software Foundation | |
3 | ||
4 | This file is part of the GNU IO Library. This library is free | |
5 | software; you can redistribute it and/or modify it under the | |
6 | terms of the GNU General Public License as published by the | |
7 | Free Software Foundation; either version 2, or (at your option) | |
8 | any later version. | |
9 | ||
10 | This library is distributed in the hope that it will be useful, | |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 | GNU General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU General Public License | |
16 | along with this library; see the file COPYING. If not, write to the Free | |
17 | Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
18 | ||
19 | As a special exception, if you link this library with files | |
20 | compiled with a GNU compiler to produce an executable, this does not cause | |
21 | the resulting executable to be covered by the GNU General Public License. | |
22 | This exception does not however invalidate any other reasons why | |
23 | the executable file might be covered by the GNU General Public License. */ | |
24 | ||
25 | #include "libioP.h" | |
26 | #ifdef __STDC__ | |
27 | #include <stdlib.h> | |
28 | #endif | |
29 | ||
30 | int | |
31 | _IO_fclose (fp) | |
32 | register _IO_FILE *fp; | |
33 | { | |
34 | int status; | |
35 | ||
36 | CHECK_FILE(fp, EOF); | |
37 | ||
edf5b2d7 | 38 | __libc_cleanup_region_start (&_IO_funlockfile, fp); |
7c713e28 | 39 | _IO_flockfile (fp); |
96aa2d94 RM |
40 | if (fp->_IO_file_flags & _IO_IS_FILEBUF) |
41 | status = _IO_file_close_it (fp); | |
42 | else | |
43 | status = fp->_flags & _IO_ERR_SEEN ? -1 : 0; | |
44 | _IO_FINISH (fp); | |
45 | if (fp != _IO_stdin && fp != _IO_stdout && fp != _IO_stderr) | |
46 | { | |
47 | fp->_IO_file_flags = 0; | |
48 | free(fp); | |
49 | } | |
edf5b2d7 | 50 | __libc_cleanup_region_end (1); |
96aa2d94 RM |
51 | return status; |
52 | } | |
53 | ||
54 | weak_alias (_IO_fclose, fclose) |