0 / -1 confusion for properties (2 bugs reported by sater).
This commit is contained in:
parent
dcb4b71a3d
commit
de79024451
1 changed files with 2 additions and 2 deletions
|
@ -318,7 +318,7 @@ if (Debug>1) fprintf(stderr,"findcoerc returns %d at position %d\n",cp,i);
|
||||||
CHKCOST();
|
CHKCOST();
|
||||||
break;
|
break;
|
||||||
} else {
|
} else {
|
||||||
if (cp->c3_prop==0) {
|
if (cp->c3_prop<0) {
|
||||||
totalcost+=docoerc(tp,cp,ply,toplevel,0);
|
totalcost+=docoerc(tp,cp,ply,toplevel,0);
|
||||||
CHKCOST();
|
CHKCOST();
|
||||||
} else {
|
} else {
|
||||||
|
@ -361,7 +361,7 @@ if(Debug>1) fprintf(stderr,"Pattern too long, %d with only %d items on stack\n",
|
||||||
goto normalfailed;
|
goto normalfailed;
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
if (cp->c3_prop==0) {
|
if (cp->c3_prop<0) {
|
||||||
totalcost+=docoerc(tp,cp,ply,toplevel,0);
|
totalcost+=docoerc(tp,cp,ply,toplevel,0);
|
||||||
CHKCOST();
|
CHKCOST();
|
||||||
} else {
|
} else {
|
||||||
|
|
Loading…
Reference in a new issue