diff options
| author | Tom Tromey <tromey@redhat.com> | 2012-05-18 15:29:13 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 2012-05-18 15:29:13 +0000 |
| commit | b012acddd87cb89dc4b357adf458511232c58bfe (patch) | |
| tree | 53fe717d585832ab24bd2e2ec7c786f914d2a86f /gdb/f-valprint.c | |
| parent | 1d51a733d5f20fe7ad6e89103f50742da2991586 (diff) | |
| download | gdb-b012acddd87cb89dc4b357adf458511232c58bfe.zip gdb-b012acddd87cb89dc4b357adf458511232c58bfe.tar.gz gdb-b012acddd87cb89dc4b357adf458511232c58bfe.tar.bz2 | |
* valprint.c (val_print_string): Don't print leading space.
* p-valprint.c (pascal_val_print) <TYPE_CODE_PTR>: Optionally
print space before string or vtbl.
* m2-valprint.c (print_unpacked_pointer): Optionally print space
before string.
* jv-valprint.c (java_value_print): Print space before string.
* go-valprint.c (print_go_string): Print space before string.
* f-valprint.c (f_val_print) <TYPE_CODE_PTR>: Optionally print
space before string.
* c-valprint.c (c_val_print) <TYPE_CODE_PTR>: Optionally print
space before string or vtbl.
* auxv.c (fprint_target_auxv): Print space after address.
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 3181356..229bfe3 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -310,6 +310,8 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset, } else { + int want_space = 0; + addr = unpack_pointer (type, valaddr + embedded_offset); elttype = check_typedef (TYPE_TARGET_TYPE (type)); @@ -321,7 +323,10 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset, } if (options->addressprint && options->format != 's') - fputs_filtered (paddress (gdbarch, addr), stream); + { + fputs_filtered (paddress (gdbarch, addr), stream); + want_space = 1; + } /* For a pointer to char or unsigned char, also print the string pointed to, unless pointer is null. */ @@ -329,8 +334,12 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset, && TYPE_CODE (elttype) == TYPE_CODE_INT && (options->format == 0 || options->format == 's') && addr != 0) - i = val_print_string (TYPE_TARGET_TYPE (type), NULL, addr, -1, - stream, options); + { + if (want_space) + fputs_filtered (" ", stream); + i = val_print_string (TYPE_TARGET_TYPE (type), NULL, addr, -1, + stream, options); + } return; } break; |