diff options
| author | Jean-Marc Zucconi <jmz@FreeBSD.org> | 1998-04-29 22:43:18 +0000 |
|---|---|---|
| committer | Jean-Marc Zucconi <jmz@FreeBSD.org> | 1998-04-29 22:43:18 +0000 |
| commit | 5679c69d0f878b8165d32b129cf24720195be18e (patch) | |
| tree | 2221db00d1d93892d5c31d899dc7dad1318b5728 | |
| parent | 0b5e953b91b36a5d1c7744a9a78a7edc48612f2d (diff) | |
Notes
| -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 000000000000..da3ab5c10ec2 --- /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 e05413008b91..77e510c6cd34 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 |