[RFA] Add support for TYPE_CODE_FLAGS in fortran_val_print.

[RFA] Add support for TYPE_CODE_FLAGS in fortran_val_print.

[Pierre Muller]

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

Re: [RFA] Add support for TYPE_CODE_FLAGS in fortran_val_print.

[Pierre Muller]

As stated by Daniel Jacobowitz <drow@false.org>
the patch to use TYPE_CODE_FLAGS was never approved. 
This makes of course this RFA completely useless for now...

At 14:14 19/08/2002 , Pierre Muller a écrit:


>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



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