darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-01 14:31:54 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* p-lang.c (is_pascal_string_type): Remove unneeded parentheses.

Browse Source 
* p-valprint.c (pascal_val_print): Remove undeed block and fix
	indentation.
This commit is contained in:
Pierre Muller 2010-03-09 08:30:54 +00:00
parent cea1040956
commit e13eedd538
3 changed files with 105 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/ChangeLog
View File

@ -1,3 +1,10 @@
2010-03-09 Joel Brobecker <brobecker@adacore.com>
Pierre Muller <muller@ics.u-strasbg.fr>
* p-lang.c (is_pascal_string_type): Remove unneeded parentheses.
* p-valprint.c (pascal_val_print): Remove undeed block and fix
indentation.
2010-03-08 Tom Tromey <tromey@redhat.com>
* breakpoint.c (breakpoint_1): Add "QUIT".

2
gdb/p-lang.c
View File

@ -101,7 +101,7 @@ is_pascal_string_type (struct type *type,int *length_pos,
struct type **char_type,
char **arrayname)
{
if ((type != NULL) && (TYPE_CODE (type) == TYPE_CODE_STRUCT))
if (type != NULL && TYPE_CODE (type) == TYPE_CODE_STRUCT)
{
/* Old Borland type pascal strings from Free Pascal Compiler. */
/* Two fields: length and st. */

4
gdb/p-valprint.c
View File

@ -151,7 +151,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
break;
}
elttype = check_typedef (TYPE_TARGET_TYPE (type));
{
addr = unpack_pointer (type, valaddr + embedded_offset);
print_unpacked_pointer:
elttype = check_typedef (TYPE_TARGET_TYPE (type));
@ -249,7 +249,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
'\0' if we reached the end. val_print_string takes care including
the terminating '\0' if necessary. */
return i;
}
break;
case TYPE_CODE_REF: