]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - libf2c/libF77/exit_.c
Imported gcc-4.4.3
[msp430-gcc.git] / libf2c / libF77 / exit_.c
diff --git a/libf2c/libF77/exit_.c b/libf2c/libF77/exit_.c
deleted file mode 100644 (file)
index 4c0582a..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-/* This gives the effect of
-
-       subroutine exit(rc)
-       integer*4 rc
-       stop
-       end
-
- * with the added side effect of supplying rc as the program's exit code.
- */
-
-#include "f2c.h"
-#undef abs
-#undef min
-#undef max
-#ifndef KR_headers
-#include <stdlib.h>
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern void f_exit(void);
-#endif
-
- void
-#ifdef KR_headers
-G77_exit_0 (rc) integer *rc;
-#else
-G77_exit_0 (integer *rc)
-#endif
-{
-#ifdef NO_ONEXIT
-       f_exit();
-#endif
-       exit(*rc);
-       }
-#ifdef __cplusplus
-}
-#endif