From a846b792a64936b2ec0dab4958ccaea218eadb47 Mon Sep 17 00:00:00 2001 From: muller Date: Mon, 19 Aug 2002 12:08:06 +0000 Subject: [PATCH] 2002-08-19 Pierre Muller * p-valprint.c (pascal_val_print): Add support for TYPE_CODE_FLAGS. --- gdb/ChangeLog | 4 ++++ gdb/p-valprint.c | 5 +++++ 2 files changed, 9 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 4b90dc8e0d..9f56d5f957 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,9 @@ 2002-08-19 Pierre Muller + * p-valprint.c (pascal_val_print): Add support for TYPE_CODE_FLAGS. + +2002-08-19 Pierre Muller + * i387-tdep.c (i387_print_float_info): Fix typo in comment. 2002-08-19 Aidan Skinner diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index 06a821605f..747223cb6c 100644 --- 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" @@ -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) { -- 2.11.0