* p-lang.c (is_pascal_string_type): Check that TYPE arg is non NULL.

This commit is contained in:
Pierre Muller 2010-03-08 16:55:17 +00:00
parent 40cf28aa1c
commit f72d4b774a
2 changed files with 5 additions and 1 deletions

View File

@ -1,3 +1,7 @@
2020-03-08 Pierre Muller <muller@ics.u-strasbg.fr>
* p-lang.c (is_pascal_string_type): Check that TYPE arg is non NULL.
2010-03-08 Jan Kratochvil <jan.kratochvil@redhat.com>
Hui Zhu <teawater@gmail.com>

View File

@ -101,7 +101,7 @@ is_pascal_string_type (struct type *type,int *length_pos,
struct type **char_type,
char **arrayname)
{
if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
if ((type != NULL) && (TYPE_CODE (type) == TYPE_CODE_STRUCT))
{
/* Old Borland type pascal strings from Free Pascal Compiler. */
/* Two fields: length and st. */