0 / -1 confusion for properties (bug reported by sater).

This commit is contained in:
bal 1985-10-03 14:47:28 +00:00
parent de79024451
commit 98d06cffb2

View file

@ -575,7 +575,7 @@ c3_p findcoerc(tp,tep) token_p tp; set_p tep; {
if (cp->c3_texpno!=0) if (cp->c3_texpno!=0)
continue; continue;
} }
if (cp->c3_prop==0) { /* no reg needed */ if (cp->c3_prop<0) { /* no reg needed */
cinstance(cp->c3_repl,&rtoken,tp,0); cinstance(cp->c3_repl,&rtoken,tp,0);
if (match(&rtoken,tep,0)) if (match(&rtoken,tep,0))
return(cp); return(cp);