bug fixed in routine get_ca_lines(): test on nil-pointer.

This commit is contained in:
bal 1985-01-23 16:10:43 +00:00
parent fefe15a844
commit e95492dfb0

View file

@ -90,7 +90,7 @@ STATIC line_p get_ca_lines(lf,p_out)
} }
} }
*pp = (line_p) 0; *pp = (line_p) 0;
if (INSTR(head) == ps_pro) { if (head != (line_p) 0 && INSTR(head) == ps_pro) {
/* append register message without arguments to list */ /* append register message without arguments to list */
l = newline(OPLIST); l = newline(OPLIST);
l->l_instr = ps_mes; l->l_instr = ps_mes;