diff options
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) { |