Warning fixes:

        * bad.c (ffebad_finish): Change type of variable `c' to unsigned
        char, change type of variable `s' to unsigned char *.
        * com.c (ffecom_symbol_null_): Add missing initializers.
        * fini.c (MAXNAMELEN): Undef it before defining.
        * implic.c (ffeimplic_lookup_): Change type of parameter `c' to
        unsigned char.
        * intrin.c (ffeintrin_init_0): Cast the argument of ctype macros
        to (unsigned char).
        * lex.c (ffelex_splice_tokens): Change type of variable `p' to
        unsigned char *.
        (ffelex_token_name_from_names): Cast the argument of
        `ffelex_is_firstnamechar' to (unsigned char).
        (ffelex_token_names_from_names): Likewise.
        (ffelex_token_new_name): Likewise.
        (ffelex_token_new_names): Likewise.
        * malloc.c (malloc_root_): Add missing initializer.
        * stb.c (ffestb_do): Change type of variable `p' to unsigned char *.
        (ffestb_else) Likewise.
        (ffestb_else3_) Likewise.
        (ffestb_endxyz) Likewise.
        (ffestb_goto) Likewise.
        (ffestb_let) Likewise.
        (ffestb_varlist) Likewise.
        (ffestb_R522) Likewise.
        (ffestb_R528) Likewise.
        (ffestb_R834) Likewise.
        (ffestb_R835) Likewise.
        (ffestb_R838) Likewise.
        (ffestb_R1102) Likewise.
        (ffestb_blockdata) Likewise.
        (ffestb_R1212) Likewise.
        (ffestb_R810) Likewise.
        (ffestb_R10014_): Cast the argument of `ffelex_is_firstnamechar'
        to (unsigned char).
        (ffestb_V014): Change type of variable `p' to unsigned char *.
        (ffestb_dummy) Likewise.
        (ffestb_R524) Likewise.
        (ffestb_R547) Likewise.
        (ffestb_decl_chartype) Likewise.
        (ffestb_decl_dbltype) Likewise.
        (ffestb_decl_gentype) Likewise.
        (ffestb_decl_entsp_2_) Likewise.
        (ffestb_V027) Likewise.
        (ffestb_decl_R539) Likewise.
        * top.c (ffe_decode_option): Mark parameter `argc' with
        ATTRIBUTE_UNUSED.
        * where.c (ffewhere_unknown_line_): Add missing initializers.

From-SVN: r23030

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 1806bbb4673e4ce4738efd5e49aff32fd79e6c78..314439cd87f38785de2b85f71394daaa0a988a9f 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,62 @@
+Mon Oct 12 20:41:59 1998  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * bad.c (ffebad_finish): Change type of variable `c' to unsigned
+       char, change type of variable `s' to unsigned char *.
+
+       * com.c (ffecom_symbol_null_): Add missing initializers.
+
+       * fini.c (MAXNAMELEN): Undef it before defining.
+
+       * implic.c (ffeimplic_lookup_): Change type of parameter `c' to
+       unsigned char.
+
+       * intrin.c (ffeintrin_init_0): Cast the argument of ctype macros
+       to (unsigned char).
+
+       * lex.c (ffelex_splice_tokens): Change type of variable `p' to
+       unsigned char *.
+       (ffelex_token_name_from_names): Cast the argument of
+       `ffelex_is_firstnamechar' to (unsigned char).
+       (ffelex_token_names_from_names): Likewise.
+       (ffelex_token_new_name): Likewise.
+       (ffelex_token_new_names): Likewise.
+
+       * malloc.c (malloc_root_): Add missing initializer.
+
+       * stb.c (ffestb_do): Change type of variable `p' to unsigned char *.
+       (ffestb_else) Likewise.
+       (ffestb_else3_) Likewise.
+       (ffestb_endxyz) Likewise.
+       (ffestb_goto) Likewise.
+       (ffestb_let) Likewise.
+       (ffestb_varlist) Likewise.
+       (ffestb_R522) Likewise.
+       (ffestb_R528) Likewise.
+       (ffestb_R834) Likewise.
+       (ffestb_R835) Likewise.
+       (ffestb_R838) Likewise.
+       (ffestb_R1102) Likewise.
+       (ffestb_blockdata) Likewise.
+       (ffestb_R1212) Likewise.
+       (ffestb_R810) Likewise.
+       (ffestb_R10014_): Cast the argument of `ffelex_is_firstnamechar'
+       to (unsigned char).
+       (ffestb_V014): Change type of variable `p' to unsigned char *.
+       (ffestb_dummy) Likewise.
+       (ffestb_R524) Likewise.
+       (ffestb_R547) Likewise.
+       (ffestb_decl_chartype) Likewise.
+       (ffestb_decl_dbltype) Likewise.
+       (ffestb_decl_gentype) Likewise.
+       (ffestb_decl_entsp_2_) Likewise.
+       (ffestb_V027) Likewise.
+       (ffestb_decl_R539) Likewise.
+
+       * top.c (ffe_decode_option): Mark parameter `argc' with
+       ATTRIBUTE_UNUSED.
+
+       * where.c (ffewhere_unknown_line_): Add missing initializers.
+
 1998-10-02  Dave Love  <d.love@dl.ac.uk>
 
        * com.c (ffecom_expr_intrinsic_): Fix return type for RAND.

diff --git a/gcc/f/bad.c b/gcc/f/bad.c
index a2a4832164e8d1c33c948473e300ed09a1634e29..8387c4a2533389dd3e26b70829b28636f37112f4 100644 (file)
--- a/gcc/f/bad.c
+++ b/gcc/f/bad.c
@@ -372,8 +372,8 @@ ffebad_finish ()
   ffebadIndex bi;
   unsigned short i;
   char pointer;
-  char c;
-  char *s;
+  unsigned char c;
+  unsigned char *s;
   char *fn;
   static char buf[1024];
   int bufi;

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 9db1f8462f4b0bec48f4aeae9de5a53871bba113..c45c6b83733e7d562e61d3222f98486b4e671f79 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -302,6 +302,8 @@ ffecomSymbol ffecom_symbol_null_
   NULL_TREE,
   NULL_TREE,
   NULL_TREE,
+  NULL_TREE,
+  false
 };
 ffeinfoKindtype ffecom_pointer_kind_ = FFEINFO_basictypeNONE;
 ffeinfoKindtype ffecom_label_kind_ = FFEINFO_basictypeNONE;

diff --git a/gcc/f/fini.c b/gcc/f/fini.c
index 3b98949524b8a1070a0318e6040ae7dddfce1cd6..dc7cb24db6f05d71cf4af49dd1fc7d2014a1da7b 100644 (file)
--- a/gcc/f/fini.c
+++ b/gcc/f/fini.c
@@ -24,6 +24,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #include "proj.h"
 #include "malloc.h"
 
+#undef MAXNAMELEN
 #define MAXNAMELEN 100
 
 typedef struct _name_ *name;

diff --git a/gcc/f/implic.c b/gcc/f/implic.c
index bee8edfb3a53e19c4e9726e60a6da980407758c0..b0271e812bf86cb851cbbae98317a69775513cb1 100644 (file)
--- a/gcc/f/implic.c
+++ b/gcc/f/implic.c
@@ -73,7 +73,7 @@ static struct _ffeimplic_ ffeimplic_table_['z' - 'A' + 1];
 
 /* Static functions (internal). */
 
-static ffeimplic_ ffeimplic_lookup_ (char c);
+static ffeimplic_ ffeimplic_lookup_ (unsigned char c);
 
 /* Internal macros. */
 \f
@@ -89,7 +89,7 @@ static ffeimplic_ ffeimplic_lookup_ (char c);
    data type.  */
 
 static ffeimplic_
-ffeimplic_lookup_ (char c)
+ffeimplic_lookup_ (unsigned char c)
 {
   /* NOTE: This is definitely ASCII-specific!!  */
   if (ISALPHA (c) || (c == '_'))

diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c
index 6e27d210142f01e60f54402e067d117a5f737a23..dbfbdafd99d76858d697524470cd3ea854831cbe 100644 (file)
--- a/gcc/f/intrin.c
+++ b/gcc/f/intrin.c
@@ -1558,8 +1558,9 @@ ffeintrin_init_0 ()
            break;
          if ((ISDIGIT (*p1) || (*p1 == '_')) && (*p1 == *p2) && (*p1 == *p3))
            continue;
-         if (! ISUPPER (*p1) || ! ISLOWER (*p2)
-             || (*p1 != toupper (*p2)) || ((*p3 != *p1) && (*p3 != *p2)))
+         if (! ISUPPER ((unsigned char)*p1) || ! ISLOWER ((unsigned char)*p2)
+             || (*p1 != toupper ((unsigned char)*p2))
+             || ((*p3 != *p1) && (*p3 != *p2)))
            break;
        }
       assert ((*p1 == *p2) && (*p1 == *p3) && (*p1 == '\0'));

diff --git a/gcc/f/lex.c b/gcc/f/lex.c
index c43aa7e05b9b8f4e440c4e5415344cc4c1fb8d99..57b0e45f55f4b4f7832e47349503e7f6f22d1678 100644 (file)
--- a/gcc/f/lex.c
+++ b/gcc/f/lex.c
@@ -4347,7 +4347,7 @@ ffelexHandler
 ffelex_splice_tokens (ffelexHandler first, ffelexToken master,
                      ffeTokenLength start)
 {
-  char *p;
+  unsigned char *p;
   ffeTokenLength i;
   ffelexToken t;
 
@@ -4490,7 +4490,7 @@ ffelex_token_name_from_names (ffelexToken t, ffeTokenLength start,
       assert (len > 0);
       assert ((start + len) <= t->length);
     }
-  assert (ffelex_is_firstnamechar (t->text[start]));
+  assert (ffelex_is_firstnamechar ((unsigned char)(t->text[start])));
 
   nt = ffelex_token_new_ ();
   nt->type = FFELEX_typeNAME;
@@ -4525,7 +4525,7 @@ ffelex_token_names_from_names (ffelexToken t, ffeTokenLength start,
       assert (len > 0);
       assert ((start + len) <= t->length);
     }
-  assert (ffelex_is_firstnamechar (t->text[start]));
+  assert (ffelex_is_firstnamechar ((unsigned char)(t->text[start])));
 
   nt = ffelex_token_new_ ();
   nt->type = FFELEX_typeNAMES;
@@ -4585,7 +4585,7 @@ ffelex_token_new_name (char *s, ffewhereLine l, ffewhereColumn c)
 {
   ffelexToken t;
 
-  assert (ffelex_is_firstnamechar (*s));
+  assert (ffelex_is_firstnamechar ((unsigned char)*s));
 
   t = ffelex_token_new_ ();
   t->type = FFELEX_typeNAME;
@@ -4606,7 +4606,7 @@ ffelex_token_new_names (char *s, ffewhereLine l, ffewhereColumn c)
 {
   ffelexToken t;
 
-  assert (ffelex_is_firstnamechar (*s));
+  assert (ffelex_is_firstnamechar ((unsigned char)*s));
 
   t = ffelex_token_new_ ();
   t->type = FFELEX_typeNAMES;

diff --git a/gcc/f/malloc.c b/gcc/f/malloc.c
index 456021149ea4c97f2f81464d0fa0e0f9c804a6a6..905d49c4b3049aea44fc1cdb1d2a976481ad9858 100644 (file)
--- a/gcc/f/malloc.c
+++ b/gcc/f/malloc.c
@@ -52,6 +52,8 @@ struct _malloc_root_ malloc_root_
     0,
 #if MALLOC_DEBUG
     0, 0, 0, 0, 0, 0, 0, { '/' }
+#else
+    { 0 }
 #endif
   },
 };

diff --git a/gcc/f/stb.c b/gcc/f/stb.c
index dc4bda4d98af6f25a976a2c4f9dd593a87f5b26d..c14ccf5a66159a561f646dd923997acd90d7230c 100644 (file)
--- a/gcc/f/stb.c
+++ b/gcc/f/stb.c
@@ -1859,7 +1859,7 @@ ffelexHandler
 ffestb_do (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
   ffelexHandler next;
   ffelexToken nt;
   ffestrSecond kw;
@@ -2507,7 +2507,7 @@ ffelexHandler
 ffestb_else (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
     {
@@ -2787,7 +2787,7 @@ static ffelexHandler
 ffestb_else3_ (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   ffelex_set_names (FALSE);
 
@@ -3013,7 +3013,7 @@ ffelexHandler
 ffestb_endxyz (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
     {
@@ -3319,7 +3319,7 @@ ffelexHandler
 ffestb_goto (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
   ffelexHandler next;
   ffelexToken nt;
 
@@ -4152,7 +4152,7 @@ ffestb_let (ffelexToken t)
   ffelexHandler next;
   bool vxtparam;               /* TRUE if it might really be a VXT PARAMETER
                                   stmt. */
-  char *p;
+  unsigned char *p;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
     {
@@ -4537,7 +4537,7 @@ ffelexHandler
 ffestb_varlist (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
   ffelexToken nt;
   ffelexHandler next;
 
@@ -5284,7 +5284,7 @@ ffelexHandler
 ffestb_R522 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
   ffelexToken nt;
   ffelexHandler next;
 
@@ -5528,7 +5528,7 @@ ffestb_R5224_ (ffelexToken t)
 ffelexHandler
 ffestb_R528 (ffelexToken t)
 {
-  char *p;
+  unsigned char *p;
   ffeTokenLength i;
   ffelexToken nt;
   ffelexHandler next;
@@ -6419,7 +6419,7 @@ ffelexHandler
 ffestb_R834 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
     {
@@ -6534,7 +6534,7 @@ ffelexHandler
 ffestb_R835 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
     {
@@ -6648,7 +6648,7 @@ ffestb_R8351_ (ffelexToken t)
 ffelexHandler
 ffestb_R838 (ffelexToken t)
 {
-  char *p;
+  unsigned char *p;
   ffeTokenLength i;
   ffelexHandler next;
   ffelexToken et;              /* First token in target. */
@@ -7141,7 +7141,7 @@ ffelexHandler
 ffestb_R1102 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
     {
@@ -7293,7 +7293,7 @@ ffelexHandler
 ffestb_blockdata (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
     {
@@ -7436,7 +7436,7 @@ ffelexHandler
 ffestb_R1212 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
   ffelexHandler next;
   ffelexToken nt;
 
@@ -8630,7 +8630,7 @@ ffelexHandler
 ffestb_R810 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
     {
@@ -9709,7 +9709,8 @@ ffestb_R10014_ (ffelexToken t)
       i += ffelex_token_length (ffestb_local_.format.post.t);
       if (*p == '\0')
        return (ffelexHandler) ffestb_R10016_;
-      if ((kw != FFESTR_formatP) || !ffelex_is_firstnamechar (*p))
+      if ((kw != FFESTR_formatP) ||
+         !ffelex_is_firstnamechar ((unsigned char)*p))
        {
          if (ffestb_local_.format.current != FFESTP_formattypeH)
            ffesta_ffebad_1p (FFEBAD_FORMAT_TEXT_IN_NUMBER, t, i, NULL);
@@ -12165,7 +12166,7 @@ ffelexHandler
 ffestb_V014 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
   ffelexToken nt;
   ffelexHandler next;
 
@@ -19399,7 +19400,7 @@ ffelexHandler
 ffestb_dummy (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
     {
@@ -19618,7 +19619,7 @@ ffelexHandler
 ffestb_R524 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
   ffelexToken nt;
   ffelexHandler next;
 
@@ -19847,7 +19848,7 @@ ffelexHandler
 ffestb_R547 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
   ffelexToken nt;
   ffelexHandler next;
 
@@ -20485,7 +20486,7 @@ ffelexHandler
 ffestb_decl_chartype (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   ffestb_local_.decl.type = FFESTP_typeCHARACTER;
   ffestb_local_.decl.recursive = NULL;
@@ -20672,7 +20673,7 @@ ffelexHandler
 ffestb_decl_dbltype (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   ffestb_local_.decl.type = ffestb_args.decl.type;
   ffestb_local_.decl.recursive = NULL;
@@ -20863,7 +20864,7 @@ ffelexHandler
 ffestb_decl_gentype (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
 
   ffestb_local_.decl.type = ffestb_args.decl.type;
   ffestb_local_.decl.recursive = NULL;
@@ -22667,7 +22668,7 @@ ffestb_decl_entsp_2_ (ffelexToken t)
 {
   ffelexToken nt;
   bool asterisk_ok;
-  char *p;
+  unsigned char *p;
   ffeTokenLength i;
 
   switch (ffelex_token_type (t))
@@ -24156,7 +24157,7 @@ ffestb_V0166_ (ffelexToken t)
 ffelexHandler
 ffestb_V027 (ffelexToken t)
 {
-  char *p;
+  unsigned char *p;
   ffeTokenLength i;
 
   switch (ffelex_token_type (ffesta_tokens[0]))
@@ -24336,7 +24337,7 @@ ffelexHandler
 ffestb_decl_R539 (ffelexToken t)
 {
   ffeTokenLength i;
-  char *p;
+  unsigned char *p;
   ffelexToken nt;
   ffestrSecond kw;
 

diff --git a/gcc/f/top.c b/gcc/f/top.c
index 17e4139bb7de681ef908d8579f7a40a4e2cb1f63..fe5bc40c286ace9bb48768c59243ccc2a219075c 100644 (file)
--- a/gcc/f/top.c
+++ b/gcc/f/top.c
@@ -162,7 +162,7 @@ ffe_is_digit_string_ (char *s)
 
 int
 ffe_decode_option (argc, argv)
-     int argc;
+     int argc ATTRIBUTE_UNUSED;
      char **argv;
 {
   char *opt = argv[0];

diff --git a/gcc/f/where.c b/gcc/f/where.c
index 89e0f85c165e132a0cecceb0ca9eecc11de47b56..b8b648c76f9125f9584f0f6c1f11632184c21cdd 100644 (file)
--- a/gcc/f/where.c
+++ b/gcc/f/where.c
@@ -38,7 +38,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 
 struct _ffewhere_line_ ffewhere_unknown_line_
 =
-{NULL, NULL, 0, 0, 0};
+{NULL, NULL, 0, 0, 0, {0}};
 
 /* Simple definitions and enumerations. */