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

	* p-valprint.c (pascal_val_print): Add support for TYPE_CODE_FLAGS.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 4b90dc8e0d497b1eba1c79c15f52973dead2d47d..9f56d5f957c80823af6beac3318e8b28dc0ebd2b 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-19  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       * p-valprint.c (pascal_val_print): Add support for TYPE_CODE_FLAGS.
+
 2002-08-19  Pierre Muller  <muller@ics.u-strasbg.fr>
 
        * i387-tdep.c (i387_print_float_info): Fix typo in comment.

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 06a821605fe26877ca4aed3db38d49dd885dd56b..747223cb6c5e47c415ddda1e8bb738f7e9cae1ff 100644 (file)
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -36,6 +36,7 @@
 #include "target.h"
 #include "annotate.h"
 #include "p-lang.h"
+#include "c-lang.h"
 #include "cp-abi.h"
 \f
 
@@ -72,6 +73,10 @@ pascal_val_print (struct type *type, char *valaddr, int embedded_offset,
   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)
        {