Initial integration of G77.

Please do a make cleandir before rebuilding gcc!

1 files changed, 29 insertions, 0 deletions

diff --git a/gnu/usr.bin/gcc/f/runtime/libF77/signal_.c b/gnu/usr.bin/gcc/f/runtime/libF77/signal_.c
new file mode 100644
index 00000000000..b62cedad25c
--- /dev/null
+++ b/gnu/usr.bin/gcc/f/runtime/libF77/signal_.c
@@ -0,0 +1,29 @@
+#include "f2c.h"
+
+#ifndef RETSIGTYPE
+/* we shouldn't rely on this... */
+#ifdef KR_headers
+#define RETSIGTYPE int
+#else
+#define RETSIGTYPE void
+#endif
+#endif
+typedef RETSIGTYPE (*sig_type)();
+
+#ifdef KR_headers
+extern sig_type signal();
+
+ftnint signal_(sigp, proc) integer *sigp; sig_type proc;
+#else
+#include "signal.h"
+typedef int (*sig_proc)(int);
+
+ftnint signal_(integer *sigp, sig_proc proc)
+#endif
+{
+	int sig;
+	sig = (int)*sigp;
+
+	return (ftnint)signal(sig, (sig_type)proc);
+	return 0;
+	}