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-lang.c | |
| parent | 9373cf26198091ce52ee863787dbb0ac7f053fcf (diff) | |
| download | gdb-6ced15815d5cc6cdd26036bdb3341bad0a4cda47.zip gdb-6ced15815d5cc6cdd26036bdb3341bad0a4cda47.tar.gz 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-lang.c')
| -rw-r--r-- | gdb/p-lang.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/p-lang.c b/gdb/p-lang.c index 0469de5..655279b 100644 --- a/gdb/p-lang.c +++ b/gdb/p-lang.c @@ -31,7 +31,7 @@ #include "valprint.h" #include "value.h" #include <ctype.h> - + extern void _initialize_pascal_language (void); @@ -107,7 +107,7 @@ is_pascal_string_type (struct type *type,int *length_pos, /* Two fields: length and st. */ if (TYPE_NFIELDS (type) == 2 && TYPE_FIELD_NAME (type, 0) - && strcmp (TYPE_FIELD_NAME (type, 0), "length") == 0 + && strcmp (TYPE_FIELD_NAME (type, 0), "length") == 0 && TYPE_FIELD_NAME (type, 1) && strcmp (TYPE_FIELD_NAME (type, 1), "st") == 0) { @@ -268,7 +268,7 @@ pascal_printstr (struct ui_file *stream, struct type *type, rep1 = i + 1; reps = 1; - while (rep1 < length + while (rep1 < length && extract_unsigned_integer (string + rep1 * width, width, byte_order) == current_char) { |