From: bal Date: Thu, 3 Oct 1985 14:45:53 +0000 (+0000) Subject: 0 / -1 confusion for properties (2 bugs reported by sater). X-Git-Tag: release-5-5~5402 X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=de790244514d2bc45a8fe2961c37ac773955f9c7;p=ack.git 0 / -1 confusion for properties (2 bugs reported by sater). --- diff --git a/mach/proto/ncg/codegen.c b/mach/proto/ncg/codegen.c index fd11d801f..475d17d9a 100644 --- a/mach/proto/ncg/codegen.c +++ b/mach/proto/ncg/codegen.c @@ -318,7 +318,7 @@ if (Debug>1) fprintf(stderr,"findcoerc returns %d at position %d\n",cp,i); CHKCOST(); break; } else { - if (cp->c3_prop==0) { + if (cp->c3_prop<0) { totalcost+=docoerc(tp,cp,ply,toplevel,0); CHKCOST(); } else { @@ -361,7 +361,7 @@ if(Debug>1) fprintf(stderr,"Pattern too long, %d with only %d items on stack\n", goto normalfailed; #endif } - if (cp->c3_prop==0) { + if (cp->c3_prop<0) { totalcost+=docoerc(tp,cp,ply,toplevel,0); CHKCOST(); } else {