espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-10-18 21:34:13 +08:00
Code Issues Packages Projects Releases Wiki Activity

2007-09-26 Pierre Muller <muller@ics.u-strasbg.fr>

Browse Source 
* 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.
This commit is contained in:
Pierre Muller
2007-09-26 15:37:16 +00:00
parent 5b8101ae7b
commit 3e9313abcf
2 changed files with 29 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
gdb/ChangeLog
View File

@ -1,3 +1,14 @@
2007-09-26 Pierre Muller <muller@ics.u-strasbg.fr>
* 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 <muller@ics.u-strasbg.fr> 2007-09-26 Pierre Muller <muller@ics.u-strasbg.fr>
* Fix PR pascal/2231 * Fix PR pascal/2231

34
gdb/p-typeprint.c
View File

@ -56,23 +56,23 @@ pascal_print_type (struct type *type, char *varstring, struct ui_file *stream,
if (show > 0) if (show > 0)
CHECK_TYPEDEF (type); CHECK_TYPEDEF (type);
if ((code == TYPE_CODE_FUNC || if ((code == TYPE_CODE_FUNC
code == TYPE_CODE_METHOD)) || code == TYPE_CODE_METHOD))
{ {
pascal_type_print_varspec_prefix (type, stream, show, 0); pascal_type_print_varspec_prefix (type, stream, show, 0);
} }
/* first the name */ /* first the name */
fputs_filtered (varstring, stream); fputs_filtered (varstring, stream);
if ((varstring != NULL && *varstring != '\0') && if ((varstring != NULL && *varstring != '\0')
!(code == TYPE_CODE_FUNC || && !(code == TYPE_CODE_FUNC
code == TYPE_CODE_METHOD)) || code == TYPE_CODE_METHOD))
{ {
fputs_filtered (" : ", stream); fputs_filtered (" : ", stream);
} }
if (!(code == TYPE_CODE_FUNC || if (!(code == TYPE_CODE_FUNC
code == TYPE_CODE_METHOD)) || code == TYPE_CODE_METHOD))
{ {
pascal_type_print_varspec_prefix (type, stream, show, 0); pascal_type_print_varspec_prefix (type, stream, show, 0);
} }
@ -137,8 +137,8 @@ void
pascal_type_print_method_args (char *physname, char *methodname, pascal_type_print_method_args (char *physname, char *methodname,
struct ui_file *stream) struct ui_file *stream)
{ {
int is_constructor = DEPRECATED_STREQN (physname, "__ct__", 6); int is_constructor = (strncmp (physname, "__ct__", 6) == 0);
int is_destructor = DEPRECATED_STREQN (physname, "__dt__", 6); int is_destructor = (strncmp (physname, "__dt__", 6) == 0);
if (is_constructor || is_destructor) if (is_constructor || is_destructor)
{ {
@ -537,7 +537,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
{ {
QUIT; QUIT;
/* Don't print out virtual function table. */ /* 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])) && is_cplus_marker ((TYPE_FIELD_NAME (type, i))[5]))
continue; 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); char *physname = TYPE_FN_FIELD_PHYSNAME (f, j);
int is_constructor = DEPRECATED_STREQN (physname, "__ct__", 6); int is_constructor = (strncmp (physname, "__ct__", 6) == 0);
int is_destructor = DEPRECATED_STREQN (physname, "__dt__", 6); int is_destructor = (strncmp (physname, "__dt__", 6) == 0);
QUIT; QUIT;
if (TYPE_FN_FIELD_PROTECTED (f, j)) 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 "); fprintf_filtered (stream, "destructor ");
} }
else if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)) != 0 && 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) && TYPE_CODE (TYPE_TARGET_TYPE (
TYPE_FN_FIELD_TYPE (f, j))) != TYPE_CODE_VOID)
{ {
fprintf_filtered (stream, "function "); fprintf_filtered (stream, "function ");
} }
@ -679,8 +680,9 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
method_name, method_name,
stream); stream);
if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)) != 0 && 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) && TYPE_CODE (TYPE_TARGET_TYPE (
TYPE_FN_FIELD_TYPE (f, j))) != TYPE_CODE_VOID)
{ {
fputs_filtered (" : ", stream); fputs_filtered (" : ", stream);
type_print (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)), type_print (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)),