diff options
Diffstat (limited to 'gdb/f-typeprint.c')
| -rw-r--r-- | gdb/f-typeprint.c | 13 |
1 files changed, 8 insertions, 5 deletions
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 |