This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[RFA] Add support for TYPE_CODE_FLAGS in fortran_val_print.
- From: Pierre Muller <muller at ics dot u-strasbg dot fr>
- To: gdb-patches at sources dot redhat dot com
- Date: Mon, 19 Aug 2002 14:14:16 +0200
- Subject: [RFA] Add support for TYPE_CODE_FLAGS in fortran_val_print.
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