diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 2002-06-01 12:38:32 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 2002-06-01 12:38:32 +0000 |
| commit | 407c72cb298e71da241639399ee64e65308d21a1 (patch) | |
| tree | c6c7b1fe59f3ddb8b8ccf102855193850daecdfc /libf2c/libI77/rewind.c | |
| parent | 113dc14387308310e28710562f69f1bd624a7aaf (diff) | |
| download | gcc-407c72cb298e71da241639399ee64e65308d21a1.zip gcc-407c72cb298e71da241639399ee64e65308d21a1.tar.gz gcc-407c72cb298e71da241639399ee64e65308d21a1.tar.bz2 | |
*: Fix formatting.
* libF77/*: Fix formatting.
* libI77/*: Likewise.
* libU77/*: Likewise.
From-SVN: r54145
Diffstat (limited to 'libf2c/libI77/rewind.c')
| -rw-r--r-- | libf2c/libI77/rewind.c | 38 |
1 files changed, 20 insertions, 18 deletions
diff --git a/libf2c/libI77/rewind.c b/libf2c/libI77/rewind.c index 39c2dae..d7a9b76 100644 --- a/libf2c/libI77/rewind.c +++ b/libf2c/libI77/rewind.c @@ -1,23 +1,25 @@ #include "config.h" #include "f2c.h" #include "fio.h" -integer f_rew(alist *a) +integer +f_rew (alist * a) { - unit *b; - if (f__init & 2) - f__fatal (131, "I/O recursion"); - if(a->aunit>=MXUNIT || a->aunit<0) - err(a->aerr,101,"rewind"); - b = &f__units[a->aunit]; - if(b->ufd == NULL || b->uwrt == 3) - return(0); - if(!b->useek) - err(a->aerr,106,"rewind"); - if(b->uwrt) { - (void) t_runc(a); - b->uwrt = 3; - } - FSEEK(b->ufd, 0, SEEK_SET); - b->uend=0; - return(0); + unit *b; + if (f__init & 2) + f__fatal (131, "I/O recursion"); + if (a->aunit >= MXUNIT || a->aunit < 0) + err (a->aerr, 101, "rewind"); + b = &f__units[a->aunit]; + if (b->ufd == NULL || b->uwrt == 3) + return (0); + if (!b->useek) + err (a->aerr, 106, "rewind"); + if (b->uwrt) + { + (void) t_runc (a); + b->uwrt = 3; + } + FSEEK (b->ufd, 0, SEEK_SET); + b->uend = 0; + return (0); } |