* include/ext/stl_rope.h (_Rope_RopeRep<>::_M_c_string_lock): Tweak.

[pf3gnuchains/gcc-fork.git] / gcc / f / stu.c

diff --git a/gcc/f/stu.c b/gcc/f/stu.c
index 239456c..1d58731 100644 (file)
--- a/gcc/f/stu.c
+++ b/gcc/f/stu.c
@@ -1,6 +1,6 @@
 /* stu.c -- Implementation File (module.c template V1.0)
-   Copyright (C) 1995-1997 Free Software Foundation, Inc.
-   Contributed by James Craig Burley (burley@gnu.ai.mit.edu).
+   Copyright (C) 1995, 1996, 1997, 2002 Free Software Foundation, Inc.
+   Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
 
@@ -60,7 +60,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 static void ffestu_list_exec_transition_ (ffebld list);
 static bool ffestu_symter_end_transition_ (ffebld expr);
 static bool ffestu_symter_exec_transition_ (ffebld expr);
-static bool ffestu_dummies_transition_ (ffesymbol (*symfunc) (),
+static bool ffestu_dummies_transition_ (ffesymbol (*symfunc) (ffesymbol),
                                        ffebld list);
 
 /* Internal macros. */
@@ -122,7 +122,7 @@ ffestu_sym_end_transition (ffesymbol s)
          ffeinfoBasictype bt;
          ffeinfoKindtype kt;
          bool array;
-         char *name = NULL;
+         const char *name = NULL;
 
          ffestu_dummies_transition_ (ffecom_sym_end_transition,
                                      ffesymbol_dummyargs (s));
@@ -301,6 +301,7 @@ ffestu_sym_end_transition (ffesymbol s)
       if (sa & FFESYMBOL_attrsADJUSTABLE)
        {                       /* Not actually in any dummy list! */
          if (ffe_is_pedantic ()
+             /* xgettext:no-c-format */
              && ffebad_start_msg ("Local adjustable symbol `%A' at %0",
                                   FFEBAD_severityPEDANTIC))
            {
@@ -924,7 +925,7 @@ ffestu_sym_exec_transition (ffesymbol s)
 static void
 ffestu_list_exec_transition_ (ffebld list)
 {
-  static in_progress = FALSE;
+  static bool in_progress = FALSE;
   ffebld item;
   ffesymbol symbol;
 
@@ -1114,9 +1115,9 @@ tail:                             /* :::::::::::::::::::: */
    Make sure we don't get called recursively ourselves!         */
 
 static bool
-ffestu_dummies_transition_ (ffesymbol (*symfunc) (), ffebld list)
+ffestu_dummies_transition_ (ffesymbol (*symfunc) (ffesymbol), ffebld list)
 {
-  static in_progress = FALSE;
+  static bool in_progress = FALSE;
   ffebld item;
   ffesymbol symbol;
   bool uncertain = FALSE;