* 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

@ -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. */