OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
* 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
This commit is contained in:
Michael Sokolov 2001-01-25 05:11:38 +00:00 committed by Michael Sokolov
parent db353c2c69
commit cf480ba7da
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libf2c/ChangeLog
View File

@ -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.

14
libf2c/libU77/alarm_.c
View File

@ -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
{