This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[PATCH] Add support for TYPE_CODE_FLAGS in pascal_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:03:27 +0200
- Subject: [PATCH] Add support for TYPE_CODE_FLAGS in pascal_val_print
This patch is needed to avoid getting a truncated register
ouptut if you do a
(gdb) print registers
when the current language is pascal
and the cpu is of i386 type.
As I am the pascal alnguage maintainer, I direclty committed this.
There is a similar problem for fortran (77, the 95 is not in CVS yet).
I will send a RFA for that one.
The newly inserted ada files should also be checked
for that possible problem!
ChangeLog entry
2002-08-19 Pierre Muller <muller@ics.u-strasbg.fr>
* p-valprint.c (pascal_val_print): Add support for TYPE_CODE_FLAGS.
$ cvs diff -u -p p-valprint.c
Index: p-valprint.c
===================================================================
RCS file: /cvs/src/src/gdb/p-valprint.c,v
retrieving revision 1.11
diff -u -p -r1.11 p-valprint.c
--- p-valprint.c 29 Jul 2002 22:55:26 -0000 1.11
+++ p-valprint.c 19 Aug 2002 12:01:03 -0000
@@ -36,6 +36,7 @@
#include "target.h"
#include "annotate.h"
#include "p-lang.h"
+#include "c-lang.h"
#include "cp-abi.h"
?
@@ -72,6 +73,10 @@ pascal_val_print (struct type *type, cha
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_ARRAY:
if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 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