diff options
| author | Pierre Muller <muller@sourceware.org> | 2011-03-15 16:00:56 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2011-03-15 16:00:56 +0000 |
| commit | 6ced15815d5cc6cdd26036bdb3341bad0a4cda47 (patch) | |
| tree | 486370bfb1f821e78b358b4908a16d5280a1783a /gdb/p-valprint.c | |
| parent | 9373cf26198091ce52ee863787dbb0ac7f053fcf (diff) | |
| download | fsf-binutils-gdb-6ced15815d5cc6cdd26036bdb3341bad0a4cda47.zip fsf-binutils-gdb-6ced15815d5cc6cdd26036bdb3341bad0a4cda47.tar.gz fsf-binutils-gdb-6ced15815d5cc6cdd26036bdb3341bad0a4cda47.tar.bz2 | |
Remove trailing spaces and tabulations from pascal language
support sources.
p-exp.y: Ditto.
p-lang.c: Ditto.
p-lang.h: Ditto.
p-valprint.c: Ditto.
Diffstat (limited to 'gdb/p-valprint.c')
| -rw-r--r-- | gdb/p-valprint.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index 618fc17..d2efa5b 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -68,7 +68,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, switch (TYPE_CODE (type)) { case TYPE_CODE_ARRAY: - if (get_array_bounds (type, &low_bound, &high_bound)) + if (get_array_bounds (type, &low_bound, &high_bound)) { len = high_bound - low_bound + 1; elttype = check_typedef (TYPE_TARGET_TYPE (type)); @@ -317,7 +317,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, len = extract_unsigned_integer (valaddr + embedded_offset + length_pos, length_size, byte_order); - LA_PRINT_STRING (stream, char_type, + LA_PRINT_STRING (stream, char_type, valaddr + embedded_offset + string_pos, len, NULL, 0, options); } @@ -590,7 +590,7 @@ pascal_value_print (struct value *val, struct ui_file *stream, { /* Hack: remove (char *) for char strings. Their type is indicated by the quoted string anyway. */ - if (TYPE_CODE (type) == TYPE_CODE_PTR + if (TYPE_CODE (type) == TYPE_CODE_PTR && TYPE_NAME (type) == NULL && TYPE_NAME (TYPE_TARGET_TYPE (type)) != NULL && strcmp (TYPE_NAME (TYPE_TARGET_TYPE (type)), "char") == 0) |