From de790244514d2bc45a8fe2961c37ac773955f9c7 Mon Sep 17 00:00:00 2001 From: bal Date: Thu, 3 Oct 1985 14:45:53 +0000 Subject: [PATCH] 0 / -1 confusion for properties (2 bugs reported by sater). --- mach/proto/ncg/codegen.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 { -- 2.34.1