[RFA] printf (stderr,... ->fprintf_unfiltered (gdb_stderr,... in f-lang.c

[Pierre Muller <muller@cerbere.u-strasbg.fr>]

This is one of the files that I listed in
http://sources.redhat.com/ml/gdb/2002-02/msg00212.html
as still having direct uses of stderr.

There is not fortran maintainer :(

I will try to send other RFA soon.


ChangeLog entry:

2002-04-24  Pierre Muller  <ics.u-strasbg.fr>
	* f-lang.c (get_bf_for_fcn): Replace fprintf (stderr,...
	with fprintf_unfiltered (gdb_stderr,....


Index: f-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/f-lang.c,v
retrieving revision 1.9
diff -u -p -r1.9 f-lang.c
--- f-lang.c    13 Feb 2002 18:49:30 -0000      1.9
+++ f-lang.c    24 Apr 2002 12:41:17 -0000
@@ -904,7 +904,7 @@ get_bf_for_fcn (long the_function)
      if (current_head_bf_list->symnum_fcn == the_function)
        {
         if (global_remote_debug)
-         fprintf (stderr, "*");
+         fprintf_unfiltered (gdb_stderr, "*");

         tmp = current_head_bf_list;
         current_head_bf_list = current_head_bf_list->next;
@@ -916,7 +916,7 @@ get_bf_for_fcn (long the_function)
       the ugly linear scan */

    if (global_remote_debug)
-    fprintf (stderr, "\ndefaulting to linear scan\n");
+    fprintf_unfiltered (gdb_stderr, "\ndefaulting to linear scan\n");

    nprobes = 0;
    tmp = saved_bf_list;
@@ -926,7 +926,7 @@ get_bf_for_fcn (long the_function)
        if (tmp->symnum_fcn == the_function)
         {
           if (global_remote_debug)
-           fprintf (stderr, "Found in %d probes\n", nprobes);
+           fprintf_unfiltered (gdb_stderr, "Found in %d probes\n", nprobes);
           current_head_bf_list = tmp->next;
           return (tmp->symnum_bf);
         }


Pierre Muller
Institut Charles Sadron
6,rue Boussingault
F 67083 STRASBOURG CEDEX (France)
mailto:muller@ics.u-strasbg.fr
Phone : (33)-3-88-41-40-07  Fax : (33)-3-88-41-40-99