* p-lang.c (is_pascal_string_type): Check that TYPE arg is non NULL.
This commit is contained in:
parent
40cf28aa1c
commit
f72d4b774a
|
@ -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>
|
||||
|
||||
|
|
|
@ -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…
Reference in New Issue