mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-30 21:25:32 +08:00
1d7ed5d3ea
* libF77/getenv_.c (G77_getenv_0): Avoid signed/unsigned warning. * libF77/system_.c (G77_system_0): Likewise. * libI77/open.c (f_open): Likewise. * libI77/rdfmt.c (rd_Z): Likewise. * libI77/uio.c (do_us, do_ud): Likewise. From-SVN: r54166
29 lines
504 B
C
29 lines
504 B
C
/* f77 interface to system routine */
|
|
|
|
#include "f2c.h"
|
|
|
|
#undef abs
|
|
#undef min
|
|
#undef max
|
|
#include <stdlib.h>
|
|
extern char *F77_aloc (ftnlen, char *);
|
|
|
|
integer
|
|
G77_system_0 (register char *s, ftnlen n)
|
|
{
|
|
char buff0[256], *buff;
|
|
register char *bp, *blast;
|
|
integer rv;
|
|
|
|
buff = bp = n < (ftnlen) 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;
|
|
}
|