2011-03-01 Michael Snyder <msnyder@vmware.com>

* p-typeprint.c (pascal_type_print_method_args): Don't use
	pointer until after null-check.
This commit is contained in:
Michael Snyder 2011-03-10 20:24:27 +00:00
parent f8f67713c0
commit 00b8699cdc
2 changed files with 11 additions and 8 deletions

View File

@ -1,5 +1,8 @@
2011-03-10 Michael Snyder <msnyder@vmware.com>
* p-typeprint.c (pascal_type_print_method_args): Don't use
pointer until after null-check.
* tracepoint.c (cmd_qtv): Discard unused value 'packet'.
(cmd_qtframe): Ditto.
(cmd_qtbuffer): Ditto.

View File

@ -156,18 +156,18 @@ void
pascal_type_print_method_args (char *physname, char *methodname,
struct ui_file *stream)
{
int is_constructor = (strncmp (physname, "__ct__", 6) == 0);
int is_destructor = (strncmp (physname, "__dt__", 6) == 0);
if (is_constructor || is_destructor)
{
physname += 6;
}
fputs_filtered (methodname, stream);
if (physname && (*physname != 0))
{
int is_constructor = (strncmp (physname, "__ct__", 6) == 0);
int is_destructor = (strncmp (physname, "__dt__", 6) == 0);
if (is_constructor || is_destructor)
{
physname += 6;
}
fputs_filtered (" (", stream);
/* We must demangle this. */
while (isdigit (physname[0]))