From c2f688dca37813b32f6af0167f32427aed8c981a Mon Sep 17 00:00:00 2001 From: Tom Szczesny Date: Mon, 15 Dec 2014 23:33:14 -0500 Subject: [PATCH] (0n=0%0.) now yields 1 --- src/vc.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/vc.c b/src/vc.c index d0573787..abb77373 100644 --- a/src/vc.c +++ b/src/vc.c @@ -30,7 +30,8 @@ K equals(K a, K b) I zn=at>0?bn:an; K z=newK(t,zn); //oom #define EQ(x, y) (x) == (y) - if (2==AT && 2==BT) SCALAR_EXPR_FUN(FC, kI(z), kF(a), kF(b), ?0:1) + if (2==AT && 2==BT) { SCALAR_EXPR_FUN(FC, kI(z), kF(a), kF(b), ?0:1) + DO(zn, if(kF(a)[i]!=kF(a)[i] && kF(b)[i]!=kF(b)[i]) kI(z)[i]=1)} else if(2==AT && 1==BT) SCALAR_EXPR_FUN(FC, kI(z), kF(a), kI(b), ?0:1) else if(1==AT && 2==BT) SCALAR_EXPR_FUN(FC, kI(z), kI(a), kF(b), ?0:1) else if(1==AT && 1==BT) SCALAR_OP_CASE(EQ, kI(z), kI(a), kI(b))