freebsd-nq/contrib/libf2c/libF77/signal_.c
2003-07-11 03:42:19 +00:00

12 lines
164 B
C

#include "f2c.h"
#include "signal1.h"
void *
G77_signal_0 (integer * sigp, sig_pf proc)
{
int sig;
sig = (int) *sigp;
return (void *) signal (sig, proc);
}