godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
bal 1985-10-03 14:45:53 +00:00
parent f00b73148f
commit ede607455b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mach/proto/ncg/codegen.c
View File

@ -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 {