diff options
| author | jmz <jmz@FreeBSD.org> | 1998-04-29 22:43:18 +0000 |
|---|---|---|
| committer | jmz <jmz@FreeBSD.org> | 1998-04-29 22:43:18 +0000 |
| commit | 4b57027ea0e3c5c9dd5274f4b6777639f241b0e2 (patch) | |
| tree | 4579495cb9032be3bdd6ef0979a2443d00dc9adb | |
| parent | 9cd3e70e4dce20dfccbb86cd15ff379add65d9a7 (diff) | |
| download | FreeBSD-src-4b57027ea0e3c5c9dd5274f4b6777639f241b0e2.zip FreeBSD-src-4b57027ea0e3c5c9dd5274f4b6777639f241b0e2.tar.gz | |
Resurrect exit.c
PR: misc/6433
| -rw-r--r-- | lib/libF77/exit.c | 37 | ||||
| -rw-r--r-- | lib/libf2c/Makefile | 2 |
2 files changed, 38 insertions, 1 deletions
diff --git a/lib/libF77/exit.c b/lib/libF77/exit.c new file mode 100644 index 0000000..da3ab5c --- /dev/null +++ b/lib/libF77/exit.c @@ -0,0 +1,37 @@ +/* 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 +exit_(rc) integer *rc; +#else +exit_(integer *rc) +#endif +{ +#ifdef NO_ONEXIT + f_exit(); +#endif + exit(*rc); + } +#ifdef __cplusplus +} +#endif diff --git a/lib/libf2c/Makefile b/lib/libf2c/Makefile index e054130..77e510c 100644 --- a/lib/libf2c/Makefile +++ b/lib/libf2c/Makefile @@ -5,7 +5,7 @@ CFLAGS+= -DIEEE_drem -DNON_ANSI_RW_MODES -DNON_UNIX_STDIO -DPedantic -I${.CURDIR MISC = Version.c main.c s_rnge.c abort_.c getarg_.c iargc_.c getenv_.c\ signal_.c s_stop.c s_paus.c system_.c cabs.c\ - derf_.c derfc_.c erf_.c erfc_.c sig_die.c F77_aloc.c + derf_.c derfc_.c erf_.c erfc_.c sig_die.c F77_aloc.c exit.c POW = pow_ci.c pow_dd.c pow_di.c pow_hh.c pow_ii.c pow_ri.c pow_zi.c pow_zz.c CX = c_abs.c c_cos.c c_div.c c_exp.c c_log.c c_sin.c c_sqrt.c DCX = z_cos.c z_div.c z_exp.c z_log.c z_sin.c z_sqrt.c |
