From 6ced15815d5cc6cdd26036bdb3341bad0a4cda47 Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Tue, 15 Mar 2011 16:00:56 +0000 Subject: 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. --- gdb/p-valprint.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gdb/p-valprint.c') 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) -- cgit v1.1