From 3e9313abcf349e884f87c3f74104d50b06c37f5f Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Wed, 26 Sep 2007 15:37:16 +0000 Subject: [PATCH] 2007-09-26 Pierre Muller * p-typeprint.c: Fix 11 ARI reported problems. (pascal_print_type): Fix 4 operator at end of line. (pascal_type_print_method_args) : Replace 2 DEPRECATED_STREQN macros using strncmp function. (pascal_type_print_base): Fix 2 operator at end of line. (pascal_type_print_base) : Replace 3 DEPRECATED_STREQN macros using strncmp function. --- gdb/ChangeLog | 11 +++++++++++ gdb/p-typeprint.c | 34 ++++++++++++++++++---------------- 2 files changed, 29 insertions(+), 16 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 0ff49e201c4..b4d0d23ae25 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,14 @@ +2007-09-26 Pierre Muller + + * p-typeprint.c: Fix 11 ARI reported problems. + (pascal_print_type): Fix 4 operator at end of line. + (pascal_type_print_method_args) : Replace 2 DEPRECATED_STREQN macros + using strncmp function. + (pascal_type_print_base): Fix 2 operator at end of line. + (pascal_type_print_base) : Replace 3 DEPRECATED_STREQN macros + using strncmp function. + + 2007-09-26 Pierre Muller * Fix PR pascal/2231 diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c index afd6a081b49..ac06f475730 100644 --- a/gdb/p-typeprint.c +++ b/gdb/p-typeprint.c @@ -56,23 +56,23 @@ pascal_print_type (struct type *type, char *varstring, struct ui_file *stream, if (show > 0) CHECK_TYPEDEF (type); - if ((code == TYPE_CODE_FUNC || - code == TYPE_CODE_METHOD)) + if ((code == TYPE_CODE_FUNC + || code == TYPE_CODE_METHOD)) { pascal_type_print_varspec_prefix (type, stream, show, 0); } /* first the name */ fputs_filtered (varstring, stream); - if ((varstring != NULL && *varstring != '\0') && - !(code == TYPE_CODE_FUNC || - code == TYPE_CODE_METHOD)) + if ((varstring != NULL && *varstring != '\0') + && !(code == TYPE_CODE_FUNC + || code == TYPE_CODE_METHOD)) { fputs_filtered (" : ", stream); } - if (!(code == TYPE_CODE_FUNC || - code == TYPE_CODE_METHOD)) + if (!(code == TYPE_CODE_FUNC + || code == TYPE_CODE_METHOD)) { pascal_type_print_varspec_prefix (type, stream, show, 0); } @@ -137,8 +137,8 @@ void pascal_type_print_method_args (char *physname, char *methodname, struct ui_file *stream) { - int is_constructor = DEPRECATED_STREQN (physname, "__ct__", 6); - int is_destructor = DEPRECATED_STREQN (physname, "__dt__", 6); + int is_constructor = (strncmp (physname, "__ct__", 6) == 0); + int is_destructor = (strncmp (physname, "__dt__", 6) == 0); if (is_constructor || is_destructor) { @@ -537,7 +537,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, { QUIT; /* Don't print out virtual function table. */ - if (DEPRECATED_STREQN (TYPE_FIELD_NAME (type, i), "_vptr", 5) + if ((strncmp (TYPE_FIELD_NAME (type, i), "_vptr", 5) == 0) && is_cplus_marker ((TYPE_FIELD_NAME (type, i))[5])) continue; @@ -615,8 +615,8 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, { char *physname = TYPE_FN_FIELD_PHYSNAME (f, j); - int is_constructor = DEPRECATED_STREQN (physname, "__ct__", 6); - int is_destructor = DEPRECATED_STREQN (physname, "__dt__", 6); + int is_constructor = (strncmp (physname, "__ct__", 6) == 0); + int is_destructor = (strncmp (physname, "__dt__", 6) == 0); QUIT; if (TYPE_FN_FIELD_PROTECTED (f, j)) @@ -664,8 +664,9 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, { fprintf_filtered (stream, "destructor "); } - else if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)) != 0 && - TYPE_CODE (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j))) != TYPE_CODE_VOID) + else if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)) != 0 + && TYPE_CODE (TYPE_TARGET_TYPE ( + TYPE_FN_FIELD_TYPE (f, j))) != TYPE_CODE_VOID) { fprintf_filtered (stream, "function "); } @@ -679,8 +680,9 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, method_name, stream); - if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)) != 0 && - TYPE_CODE (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j))) != TYPE_CODE_VOID) + if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)) != 0 + && TYPE_CODE (TYPE_TARGET_TYPE ( + TYPE_FN_FIELD_TYPE (f, j))) != TYPE_CODE_VOID) { fputs_filtered (" : ", stream); type_print (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)), -- 2.30.2