2002-08-19 Pierre Muller <muller@ics.u-strasbg.fr>
* p-valprint.c (pascal_val_print): Add support for TYPE_CODE_FLAGS.
This commit is contained in:
parent
9b949a49f8
commit
ed8f822aaf
@ -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.
|
||||
|
@ -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)
|
||||
{
|
||||
|
Loading…
Reference in New Issue
Block a user