diff options
Diffstat (limited to 'gdb/p-typeprint.c')
| -rw-r--r-- | gdb/p-typeprint.c | 42 |
1 files changed, 28 insertions, 14 deletions
diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c index b10e0e3fe3..cee9c81cf8 100644 --- a/gdb/p-typeprint.c +++ b/gdb/p-typeprint.c @@ -36,11 +36,14 @@ #include <errno.h> #include <ctype.h> -static void pascal_type_print_varspec_suffix (struct type *, struct ui_file *, int, int, int); +static void pascal_type_print_varspec_suffix (struct type *, struct ui_file *, + int, int, int); -static void pascal_type_print_derivation_info (struct ui_file *, struct type *); +static void pascal_type_print_derivation_info (struct ui_file *, + struct type *); -void pascal_type_print_varspec_prefix (struct type *, struct ui_file *, int, int); +void pascal_type_print_varspec_prefix (struct type *, struct ui_file *, + int, int); /* LEVEL is the depth to indent lines by. */ @@ -219,7 +222,8 @@ pascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream, case TYPE_CODE_PTR: fprintf_filtered (stream, "^"); pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1); - break; /* pointer should be handled normally in pascal */ + break; /* pointer should be handled normally + in pascal */ case TYPE_CODE_METHOD: if (passed_a_ptr) @@ -236,7 +240,8 @@ pascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream, if (passed_a_ptr) { fprintf_filtered (stream, " "); - pascal_type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0, passed_a_ptr); + pascal_type_print_base (TYPE_DOMAIN_TYPE (type), + stream, 0, passed_a_ptr); fprintf_filtered (stream, "::"); } break; @@ -319,7 +324,8 @@ pascal_print_func_args (struct type *type, struct ui_file *stream) { fprintf_filtered (stream, "var "); } */ - pascal_print_type (TYPE_FIELD_TYPE (type, i), "" /* TYPE_FIELD_NAME seems invalid ! */ + pascal_print_type (TYPE_FIELD_TYPE (type, i), "" /* TYPE_FIELD_NAME + seems invalid! */ ,stream, -1, 0); } if (len) @@ -361,7 +367,8 @@ pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream, if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID) { fprintf_filtered (stream, " : "); - pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0); + pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), + stream, 0, 0); pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, 0); pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, passed_a_ptr, 0); @@ -370,7 +377,8 @@ pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream, case TYPE_CODE_PTR: case TYPE_CODE_REF: - pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 1, 0); + pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), + stream, 0, 1, 0); break; case TYPE_CODE_FUNC: @@ -381,7 +389,8 @@ pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream, if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID) { fprintf_filtered (stream, " : "); - pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0); + pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), + stream, 0, 0); pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, 0); pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, passed_a_ptr, 0); @@ -451,7 +460,8 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, } /* void pointer */ - if ((TYPE_CODE (type) == TYPE_CODE_PTR) && (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID)) + if ((TYPE_CODE (type) == TYPE_CODE_PTR) + && (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID)) { fputs_filtered (TYPE_NAME (type) ? TYPE_NAME (type) : "pointer", stream); @@ -480,9 +490,12 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, break; case TYPE_CODE_ARRAY: - /* pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0); - pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level); - pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); */ + /* pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), + stream, 0, 0); + pascal_type_print_base (TYPE_TARGET_TYPE (type), + stream, show, level); + pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), + stream, 0, 0, 0); */ pascal_print_type (TYPE_TARGET_TYPE (type), NULL, stream, 0, 0); break; @@ -741,7 +754,8 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, fputs_filtered (TYPE_FIELD_NAME (type, i), stream); if (lastval != TYPE_FIELD_BITPOS (type, i)) { - fprintf_filtered (stream, " := %d", TYPE_FIELD_BITPOS (type, i)); + fprintf_filtered (stream, + " := %d", TYPE_FIELD_BITPOS (type, i)); lastval = TYPE_FIELD_BITPOS (type, i); } lastval++; |