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

f2cext.c (alarm_): Mark parameter(s) with attribute `unused'.

Browse Source 
* f2cext.c (alarm_): Mark parameter(s) with attribute `unused'.
	* libF77/h_len.c (h_len): Likewise.
	* libF77/i_len.c (i_len): Likewise.
	* libI77/rsli.c (i_ungetc): Likewise.
	* libU77/date_.c (G77_date_y2kbuggy_0): Likewise.
	* libU77/fputc_.c (G77_fputc_0): Likewise.
	* libU77/vxtidate_.c (G77_vxtidate_y2kbuggy_0): Likewise.
	* libU77/vxttime_.c (G77_vxttime_0): Likewise.

From-SVN: r54289
This commit is contained in:
Kaveh R. Ghazi 2002-06-05 19:07:11 +00:00 committed by Kaveh Ghazi
parent 540eaea825
commit 304a3a85de
9 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
libf2c/ChangeLog
View File

@ -1,3 +1,14 @@
Wed Jun 5 15:05:41 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* f2cext.c (alarm_): Mark parameter(s) with attribute `unused'.
* libF77/h_len.c (h_len): Likewise.
* libF77/i_len.c (i_len): Likewise.
* libI77/rsli.c (i_ungetc): Likewise.
* libU77/date_.c (G77_date_y2kbuggy_0): Likewise.
* libU77/fputc_.c (G77_fputc_0): Likewise.
* libU77/vxtidate_.c (G77_vxtidate_y2kbuggy_0): Likewise.
* libU77/vxttime_.c (G77_vxttime_0): Likewise.
Mon Jun 3 22:24:48 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* libF77/main.c (f_setarg, f_setsig): Prototype.

3
libf2c/f2cext.c
View File

@ -140,7 +140,8 @@ integer access_ (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
#endif
#ifdef Lalarm
integer alarm_ (integer *seconds, sig_proc proc, integer *status) {
integer alarm_ (integer *seconds, sig_proc proc,
integer *status __attribute__ ((__unused__))) {
extern integer G77_alarm_0 (integer *seconds, sig_proc proc);
return G77_alarm_0 (seconds, proc);
}

2
libf2c/libF77/h_len.c
View File

@ -1,7 +1,7 @@
#include "f2c.h"
shortint
h_len (char *s, ftnlen n)
h_len (char *s __attribute__ ((__unused__)), ftnlen n)
{
return (n);
}

2
libf2c/libF77/i_len.c
View File

@ -1,7 +1,7 @@
#include "f2c.h"
integer
i_len (char *s, ftnlen n)
i_len (char *s __attribute__ ((__unused__)), ftnlen n)
{
return (n);
}

3
libf2c/libI77/rsli.c
View File

@ -26,7 +26,8 @@ i_getc (void)
}
static int
i_ungetc (int ch, FILE * f)
i_ungetc (int ch __attribute__ ((__unused__)),
FILE * f __attribute__ ((__unused__)))
{
if (--f__recpos == f__svic->icirlen)
return '\n';

3
libf2c/libU77/date_.c
View File

@ -46,7 +46,8 @@ const char *G77_Non_Y2K_Compliance_Message =
"Call to non Y2K compliant subroutine detected.";
int
G77_date_y2kbuggy_0 (char *buf, ftnlen buf_len)
G77_date_y2kbuggy_0 (char *buf __attribute__ ((__unused__)),
ftnlen buf_len __attribute__ ((__unused__)))
{
extern int G77_abort_0 ();
fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);

3
libf2c/libU77/fputc_.c
View File

@ -27,7 +27,8 @@ Boston, MA 02111-1307, USA. */
#include "fio.h"
integer
G77_fputc_0 (const integer * lunit, const char *c, const ftnlen Lc)
G77_fputc_0 (const integer * lunit, const char *c,
const ftnlen Lc __attribute__ ((__unused__)))
{
int err;
FILE *f = f__units[*lunit].ufd;

4
libf2c/libU77/vxtidate_.c
View File

@ -54,7 +54,9 @@ G77_vxtidate_y2kbug_0 (integer * m, integer * d, integer * y)
#ifdef PIC
extern const char *G77_Non_Y2K_Compliance_Message;
int
G77_vxtidate_y2kbuggy_0 (integer * m, integer * d, integer * y)
G77_vxtidate_y2kbuggy_0 (integer * m __attribute__ ((__unused__)),
integer * d __attribute__ ((__unused__)),
integer * y __attribute__ ((__unused__)))
{
extern int G77_abort_0 ();
fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);

3
libf2c/libU77/vxttime_.c
View File

@ -40,7 +40,8 @@ Boston, MA 02111-1307, USA. */
/* Subroutine */
void
G77_vxttime_0 (char chtime[8], const ftnlen Lchtime)
G77_vxttime_0 (char chtime[8],
const ftnlen Lchtime __attribute__ ((__unused__)))
{
time_t tim;
char *ctim;