alarm_.c: Separate the #ifdef KR_headers logic from the G77_alarm_0 function definition.

	* libU77/alarm_.c: Separate the #ifdef KR_headers logic from the
	G77_alarm_0 function definition.  Check for SIG_ERR and provide our own
	if missing.

From-SVN: r39256

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 30318e72702a1fd0eb59a35f48e1a843deb1749e..cdf9fd0727d4e02945f3bd2deeb857b3c680cd36 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+2001-01-24  Michael Sokolov  <msokolov@ivan.Harhan.ORG>
+
+       * libU77/alarm_.c: Separate the #ifdef KR_headers logic from the
+       G77_alarm_0 function definition.  Check for SIG_ERR and provide our own
+       if missing.
+
 2001-01-24  David Billinghurst <David.Billinghurst@riotinto.com>
 
        * libU77/Makefile.in:  Explicitly generate a.out for check.

diff --git a/libf2c/libU77/alarm_.c b/libf2c/libU77/alarm_.c
index 3e2f293d9b1d8542fdb8af3ddb941993166c6d45..e7f9c2ddcc4a8869878ccf286a95441a6eeed66f 100644 (file)
--- a/libf2c/libU77/alarm_.c
+++ b/libf2c/libU77/alarm_.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1997 Free Software Foundation, Inc.
+/* Copyright (C) 1997, 2001 Free Software Foundation, Inc.
 This file is part of GNU Fortran libU77 library.
 
 This library is free software; you can redistribute it and/or modify it
@@ -39,14 +39,20 @@ typedef RETSIGTYPE (*sig_type)();
 
 #ifdef KR_headers
 extern sig_type signal();
+#else
+#include <signal.h>
+typedef int (*sig_proc)(int);
+#endif
+
+#ifndef SIG_ERR
+#define SIG_ERR ((sig_type) -1)
+#endif
 
+#ifdef KR_headers
 integer G77_alarm_0 (seconds, proc)
      integer *seconds;
      sig_type proc;
 #else
-#include <signal.h>
-typedef int (*sig_proc)(int);
-
 integer G77_alarm_0 (integer *seconds, sig_proc proc)
 #endif
 {