* p-lang.c (is_pascal_string_type): Check that TYPE arg is non NULL.
This commit is contained in:
parent
40cf28aa1c
commit
f72d4b774a
2 changed files with 5 additions and 1 deletions
|
@ -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. */
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue