Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libF77 / system_.c

diff --git a/libf2c/libF77/system_.c b/libf2c/libF77/system_.c
deleted file mode 100644 (file)
index ed024a1..0000000
--- a/libf2c/libF77/system_.c
+++ /dev/null
@@ -1,36 +0,0 @@
-/* f77 interface to system routine */
-
-#include "f2c.h"
-
-#ifdef KR_headers
-extern char *F77_aloc();
-
- integer
-G77_system_0 (s, n) register char *s; ftnlen n;
-#else
-#undef abs
-#undef min
-#undef max
-#include <stdlib.h>
-extern char *F77_aloc(ftnlen, char*);
-
- integer
-G77_system_0 (register char *s, ftnlen n)
-#endif
-{
-       char buff0[256], *buff;
-       register char *bp, *blast;
-       integer rv;
-
-       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;
-       }