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

	* 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

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index b3582a17ad4e4565aa492688d63d7545c3f51b6d..87e33dfd64df62f512c60ddc97a4d12f09550574 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -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.

diff --git a/libf2c/f2cext.c b/libf2c/f2cext.c
index 56f9490c6f5191f0078e2d3ed0ce1953b2b88986..69d12b6ea64fc53f79435a83e8205505764e2010 100644 (file)
--- a/libf2c/f2cext.c
+++ b/libf2c/f2cext.c
@@ -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);
 }

diff --git a/libf2c/libF77/h_len.c b/libf2c/libF77/h_len.c
index 0782af14c017b5785900fb535797935d0c026383..506016e67d9ab222fa75e932c2ec231d39dd5ad6 100644 (file)
--- a/libf2c/libF77/h_len.c
+++ b/libf2c/libF77/h_len.c
@@ -1,7 +1,7 @@
 #include "f2c.h"
 
 shortint
-h_len (char *s, ftnlen n)
+h_len (char *s __attribute__ ((__unused__)), ftnlen n)
 {
   return (n);
 }

diff --git a/libf2c/libF77/i_len.c b/libf2c/libF77/i_len.c
index 3a43b869de110c05c7688c72194b6e73ae912c31..2d5a3a4381af1dbda4389c7afe025d40a23d5b0c 100644 (file)
--- a/libf2c/libF77/i_len.c
+++ b/libf2c/libF77/i_len.c
@@ -1,7 +1,7 @@
 #include "f2c.h"
 
 integer
-i_len (char *s, ftnlen n)
+i_len (char *s __attribute__ ((__unused__)), ftnlen n)
 {
   return (n);
 }

diff --git a/libf2c/libI77/rsli.c b/libf2c/libI77/rsli.c
index a5cd8c5bf275b959df3dd40a038d0c4ba46c4acf..c07632a0fcad12e6b57b6c97f6b924990710799a 100644 (file)
--- a/libf2c/libI77/rsli.c
+++ b/libf2c/libI77/rsli.c
@@ -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';

diff --git a/libf2c/libU77/date_.c b/libf2c/libU77/date_.c
index fffbe20d496ad1ae5247a2eb1e637e9421b5dea5..306cc5f2da481381e8834a7fdd6b2348fcbd3970 100644 (file)
--- a/libf2c/libU77/date_.c
+++ b/libf2c/libU77/date_.c
@@ -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);

diff --git a/libf2c/libU77/fputc_.c b/libf2c/libU77/fputc_.c
index 0a878bd6644c39ec7856a6d608025cc934846a4b..7e45dd4140c0f5482a834c339d2af077784aa05b 100644 (file)
--- a/libf2c/libU77/fputc_.c
+++ b/libf2c/libU77/fputc_.c
@@ -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;

diff --git a/libf2c/libU77/vxtidate_.c b/libf2c/libU77/vxtidate_.c
index 7bf0ec9a11511b5561b1fcf91d55c96764bca813..0563a9120d623c3f7926a319c2d97365bed929ab 100644 (file)
--- a/libf2c/libU77/vxtidate_.c
+++ b/libf2c/libU77/vxtidate_.c
@@ -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);

diff --git a/libf2c/libU77/vxttime_.c b/libf2c/libU77/vxttime_.c
index c283aacf962139b42efca49d25f4064b3e312632..5982748583ada821164e8c0aa993dcbe6263820c 100644 (file)
--- a/libf2c/libU77/vxttime_.c
+++ b/libf2c/libU77/vxttime_.c
@@ -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;