[RFA] Add support for TYPE_CODE_FLAGS in fortran_val_print.

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

As already said in the previous mail, fortran language support
is currently borken for i386 flags printing.

Writing this mail, I noticed that I didn't mention the addition of the "c-nag.h" 
include in my previous patch, is the following ChangeLog entry better?
The ada source wil probably not suffer from the same problem
as the default case is to call the c_val_print function.

ChangeLog entry

2002-08-19  Pierre Muller  <muller@ics.u-strasbg.fr>

          * f-valprint.c: Add "c-lang.h" dependency needed for TYPE_CODE_FLAGS support.
	(fortran_val_print): Add support for TYPE_CODE_FLAGS.
         

$ cvs diff -u -p f-valprint.c
Index: f-valprint.c
===================================================================
RCS file: /cvs/src/src/gdb/f-valprint.c,v
retrieving revision 1.6
diff -u -p -r1.6 f-valprint.c
--- f-valprint.c        7 Mar 2001 02:57:08 -0000       1.6
+++ f-valprint.c        19 Aug 2002 12:12:24 -0000
@@ -30,6 +30,7 @@
  #include "valprint.h"
  #include "language.h"
  #include "f-lang.h"
+#include "c-lang.h"
  #include "frame.h"
  #include "gdbcore.h"
  #include "command.h"
@@ -364,6 +365,11 @@ f_val_print (struct type *type, char *va
    CHECK_TYPEDEF (type);
    switch (TYPE_CODE (type))
      {
+
+    case TYPE_CODE_FLAGS:
+      return c_val_print (type, valaddr, embedded_offset, address, stream,
+                         format, deref_ref, recurse, pretty);
+
      case TYPE_CODE_STRING:
        f77_get_dynamic_length_of_aggregate (type);
        LA_PRINT_STRING (stream, valaddr, TYPE_LENGTH (type), 1, 0);



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