diff options
| author | Pierre Muller <muller@sourceware.org> | 2002-05-02 11:18:07 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2002-05-02 11:18:07 +0000 |
| commit | e2625b330b2648028824378985a5165ca92bd245 (patch) | |
| tree | d8946ad5b264696dd62a0723d101e8035118d799 /gdb/p-valprint.c | |
| parent | 805fc79928c2c14c9223a18e8e1e0b94ccb58f16 (diff) | |
| download | gdb-e2625b330b2648028824378985a5165ca92bd245.zip gdb-e2625b330b2648028824378985a5165ca92bd245.tar.gz gdb-e2625b330b2648028824378985a5165ca92bd245.tar.bz2 | |
2002-05-02 Pierre Muller <muller@ics.u-strasbg.fr>
* p-lang.h (is_pascal_string_type): Declaration changed,
new sixth argument of type char ** added.
* p-lang.c (is_pascal_string_type): Implementation
changed. Args length_pos, length_size, string_pos, char_size
can now be NULL. New argument arrayname set to the field
name of the char array. Return value set to char array
field index plus one.
* p-valprint.c (pascal_val_print): Adapt to new declaration of
is_pascal_string_type function.
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 0b89c72..c8060a2 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -190,8 +190,8 @@ pascal_val_print (struct type *type, char *valaddr, int embedded_offset, as GDB does not recognize stabs pascal strings Pascal strings are mapped to records with lowercase names PM */ - if (is_pascal_string_type (elttype, &length_pos, - &length_size, &string_pos, &char_size) + if (is_pascal_string_type (elttype, &length_pos, &length_size, + &string_pos, &char_size, NULL) && addr != 0) { ULONGEST string_length; @@ -320,7 +320,7 @@ pascal_val_print (struct type *type, char *valaddr, int embedded_offset, else { if (is_pascal_string_type (type, &length_pos, &length_size, - &string_pos, &char_size)) + &string_pos, &char_size, NULL)) { len = extract_unsigned_integer (valaddr + embedded_offset + length_pos, length_size); LA_PRINT_STRING (stream, valaddr + embedded_offset + string_pos, len, char_size, 0); |