diff options
Diffstat (limited to 'gdb/p-valprint.c')
| -rw-r--r-- | gdb/p-valprint.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index 72be1f5..9eef4f7 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -1,6 +1,7 @@ /* Support for printing Pascal values for GDB, the GNU debugger. - Copyright (C) 2000, 2001, 2003, 2005 Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2003, 2005, 2006 + Free Software Foundation, Inc. This file is part of GDB. @@ -359,6 +360,13 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, } break; + case TYPE_CODE_FLAGS: + if (format) + print_scalar_formatted (valaddr + embedded_offset, type, format, 0, stream); + else + val_print_type_code_flags (type, valaddr + embedded_offset, stream); + break; + case TYPE_CODE_FUNC: if (format) { |