Imported gcc-4.4.3

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

diff --git a/libf2c/libF77/F77_aloc.c b/libf2c/libF77/F77_aloc.c
deleted file mode 100644 (file)
index e329a1b..0000000
--- a/libf2c/libF77/F77_aloc.c
+++ /dev/null
@@ -1,38 +0,0 @@
-#include "f2c.h"
-#undef abs
-#undef min
-#undef max
-#include <stdio.h>
-
-static integer memfailure = 3;
-
-#ifdef KR_headers
-extern char *malloc();
-extern void G77_exit_0 ();
-
- char *
-F77_aloc(Len, whence) integer Len; char *whence;
-#else
-#include <stdlib.h>
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern void G77_exit_0 (integer*);
-#ifdef __cplusplus
-       }
-#endif
-
- char *
-F77_aloc(integer Len, char *whence)
-#endif
-{
-       char *rv;
-       unsigned int uLen = (unsigned int) Len; /* for K&R C */
-
-       if (!(rv = (char*)malloc(uLen))) {
-               fprintf(stderr, "malloc(%u) failure in %s\n",
-                       uLen, whence);
-               G77_exit_0 (&memfailure);
-               }
-       return rv;
-       }