From f4757c837046ccb3fa388e69f05ce611f2d0216a Mon Sep 17 00:00:00 2001 From: ceriel Date: Mon, 13 May 1991 13:57:25 +0000 Subject: [PATCH] fixed two possible null-references --- lang/m2/comp/chk_expr.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lang/m2/comp/chk_expr.c b/lang/m2/comp/chk_expr.c index aca253b7c..ba1b2364d 100644 --- a/lang/m2/comp/chk_expr.c +++ b/lang/m2/comp/chk_expr.c @@ -616,7 +616,8 @@ getarg(argp, bases, designator, edf) register t_node *arg = nextarg(argp, edf); register t_node *left; - if (! arg->nd_LEFT || + if (! arg || + ! arg->nd_LEFT || ! (designator ? ChkVariable(&(arg->nd_LEFT), D_USED|D_DEFINED) : ChkExpression(&(arg->nd_LEFT)))) { return 0; } @@ -652,7 +653,7 @@ getname(argp, kinds, bases, edf) register t_node *arg = nextarg(argp, edf); register t_node *left; - if (!arg->nd_LEFT || ! ChkDesig(&(arg->nd_LEFT), D_USED)) return 0; + if (!arg || !arg->nd_LEFT || ! ChkDesig(&(arg->nd_LEFT), D_USED)) return 0; left = arg->nd_LEFT; if (left->nd_class != Def) { -- 2.34.1