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/libF77/system_.c | |
| parent | 113dc14387308310e28710562f69f1bd624a7aaf (diff) | |
| download | gcc-407c72cb298e71da241639399ee64e65308d21a1.tar.gz | |
*: Fix formatting.
* libF77/*: Fix formatting.
* libI77/*: Likewise.
* libU77/*: Likewise.
From-SVN: r54145
Diffstat (limited to 'libf2c/libF77/system_.c')
| -rw-r--r-- | libf2c/libF77/system_.c | 31 |
1 files changed, 15 insertions, 16 deletions
diff --git a/libf2c/libF77/system_.c b/libf2c/libF77/system_.c index ebb3041618b..b8d1d3d2ea4 100644 --- a/libf2c/libF77/system_.c +++ b/libf2c/libF77/system_.c @@ -6,24 +6,23 @@ #undef min #undef max #include <stdlib.h> -extern char *F77_aloc(ftnlen, char*); +extern char *F77_aloc (ftnlen, char *); - integer +integer G77_system_0 (register char *s, ftnlen n) { - char buff0[256], *buff; - register char *bp, *blast; - integer rv; + char buff0[256], *buff; + register char *bp, *blast; + integer rv; - buff = bp = n < sizeof(buff0) - ? buff0 : F77_aloc(n+1, "system_"); - blast = bp + n; + buff = bp = n < sizeof (buff0) ? buff0 : F77_aloc (n + 1, "system_"); + blast = bp + n; - while(bp < blast && *s) - *bp++ = *s++; - *bp = 0; - rv = system(buff); - if (buff != buff0) - free(buff); - return rv; - } + while (bp < blast && *s) + *bp++ = *s++; + *bp = 0; + rv = system (buff); + if (buff != buff0) + free (buff); + return rv; +} |