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