From: Markus Deuling Date: Thu, 28 Feb 2008 19:10:42 +0000 (+0000) Subject: * f-typeprint.c (f_print_type): Handle NULL pointer in VARSTRING X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a7dfd0102bbf259cad78b322915523adb366837a;p=binutils-gdb.git * f-typeprint.c (f_print_type): Handle NULL pointer in VARSTRING properly. --- diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 5be237f6665..7d60a947d85 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2008-02-28 Markus Deuling + + * f-typeprint.c (f_print_type): Handle NULL pointer in VARSTRING + properly. + 2008-02-28 Tom Tromey * infcmd.c (notice_args_read): Print result of get_inferior_args. diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c index 436a1ae7423..d55c1657c9c 100644 --- a/gdb/f-typeprint.c +++ b/gdb/f-typeprint.c @@ -72,13 +72,16 @@ f_print_type (struct type *type, char *varstring, struct ui_file *stream, fputs_filtered (" ", stream); f_type_print_varspec_prefix (type, stream, show, 0); - fputs_filtered (varstring, stream); + if (varstring != NULL) + { + fputs_filtered (varstring, stream); - /* For demangled function names, we have the arglist as part of the name, - so don't print an additional pair of ()'s */ + /* For demangled function names, we have the arglist as part of the name, + so don't print an additional pair of ()'s */ - demangled_args = varstring[strlen (varstring) - 1] == ')'; - f_type_print_varspec_suffix (type, stream, show, 0, demangled_args); + demangled_args = varstring[strlen (varstring) - 1] == ')'; + f_type_print_varspec_suffix (type, stream, show, 0, demangled_args); + } } /* Print any asterisks or open-parentheses needed before the