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