]>
Commit | Line | Data |
---|---|---|
b168057a | 1 | /* Copyright (C) 1993-2015 Free Software Foundation, Inc. |
41bdb6e2 | 2 | This file is part of the GNU C Library. |
1ea89a40 | 3 | |
41bdb6e2 AJ |
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. | |
1ea89a40 | 8 | |
41bdb6e2 AJ |
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 | |
1ea89a40 | 11 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
41bdb6e2 | 12 | Lesser General Public License for more details. |
1ea89a40 | 13 | |
41bdb6e2 | 14 | You should have received a copy of the GNU Lesser General Public |
59ba27a6 PE |
15 | License along with the GNU C Library; if not, see |
16 | <http://www.gnu.org/licenses/>. | |
1ea89a40 | 17 | |
41bdb6e2 AJ |
18 | As a special exception, if you link the code in this file with |
19 | files compiled with a GNU compiler to produce an executable, | |
20 | that does not cause the resulting executable to be covered by | |
21 | the GNU Lesser General Public License. This exception does not | |
22 | however invalidate any other reasons why the executable file | |
23 | might be covered by the GNU Lesser General Public License. | |
24 | This exception applies to code released by its copyright holders | |
25 | in files containing the exception. */ | |
1ea89a40 | 26 | |
0bf98029 | 27 | #include <shlib-compat.h> |
1ab1ea76 | 28 | #if SHLIB_COMPAT (libc, GLIBC_2_0, GLIBC_2_1) |
0bf98029 | 29 | |
bd355af0 | 30 | #define _IO_USE_OLD_IO_FILE |
1ea89a40 | 31 | #include "libioP.h" |
6973fc01 | 32 | #include <stdlib.h> |
1ea89a40 | 33 | |
6973fc01 | 34 | int |
4a381a81 | 35 | attribute_compat_text_section |
6973fc01 UD |
36 | _IO_old_fclose (fp) |
37 | _IO_FILE *fp; | |
1ea89a40 | 38 | { |
6973fc01 UD |
39 | int status; |
40 | ||
41 | CHECK_FILE(fp, EOF); | |
42 | ||
c7f7281e UD |
43 | /* We desperately try to help programs which are using streams in a |
44 | strange way and mix old and new functions. Detect new streams | |
45 | here. */ | |
46 | if (fp->_vtable_offset == 0) | |
47 | return _IO_new_fclose (fp); | |
48 | ||
beafb752 UD |
49 | /* First unlink the stream. */ |
50 | if (fp->_IO_file_flags & _IO_IS_FILEBUF) | |
d18ea0c5 | 51 | _IO_un_link ((struct _IO_FILE_plus *) fp); |
beafb752 | 52 | |
0261d33f | 53 | _IO_acquire_lock (fp); |
6973fc01 UD |
54 | if (fp->_IO_file_flags & _IO_IS_FILEBUF) |
55 | status = _IO_old_file_close_it (fp); | |
56 | else | |
57 | status = fp->_flags & _IO_ERR_SEEN ? -1 : 0; | |
a334319f | 58 | _IO_release_lock (fp); |
4e62e258 | 59 | _IO_FINISH (fp); |
3a90adda | 60 | if (_IO_have_backup (fp)) |
d18ea0c5 | 61 | _IO_free_backup_area (fp); |
6973fc01 UD |
62 | if (fp != _IO_stdin && fp != _IO_stdout && fp != _IO_stderr) |
63 | { | |
64 | fp->_IO_file_flags = 0; | |
65 | free(fp); | |
66 | } | |
67 | ||
68 | return status; | |
1ea89a40 UD |
69 | } |
70 | ||
6973fc01 | 71 | strong_alias (_IO_old_fclose, __old_fclose) |
16710d58 RM |
72 | compat_symbol (libc, _IO_old_fclose, _IO_fclose, GLIBC_2_0); |
73 | compat_symbol (libc, __old_fclose, fclose, GLIBC_2_0); | |
0bf98029 UD |
74 | |
75 | #endif |