diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2005-11-28 08:16:33 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2005-11-28 08:16:33 +0100 |
| commit | 401cd90a905d8cf4ad2339da824e13943912a89c (patch) | |
| tree | bff7ffdea06ed9c1aad7564d6cf64222f1e7e9ff /libgfortran/intrinsics/tty.c | |
| parent | 07a3df01000ca438d63254fc86a0d8aaf8db6f7d (diff) | |
| download | gcc-401cd90a905d8cf4ad2339da824e13943912a89c.zip gcc-401cd90a905d8cf4ad2339da824e13943912a89c.tar.gz gcc-401cd90a905d8cf4ad2339da824e13943912a89c.tar.bz2 | |
ftell.c (ftell, FTELL_SUB): Add unlock_unit call.
* intrinsics/ftell.c (ftell, FTELL_SUB): Add unlock_unit call.
* intrinsics/fget.c (fgetc, fputs): Likewise.
* intrinsics/tty.c (ttynam): Likewise.
From-SVN: r107595
Diffstat (limited to 'libgfortran/intrinsics/tty.c')
| -rw-r--r-- | libgfortran/intrinsics/tty.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/tty.c b/libgfortran/intrinsics/tty.c index 63c2a5e..93416f9 100644 --- a/libgfortran/intrinsics/tty.c +++ b/libgfortran/intrinsics/tty.c @@ -121,8 +121,10 @@ ttynam (char ** name, gfc_charlen_type * name_len, int unit) { *name_len = strlen (*name); *name = strdup (*name); + unlock_unit (u); return; } + unlock_unit (u); } *name_len = 0; |