X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/106b481c4fb7790f93944c6f40ef39a1f1b3058e..bccb92dd7abb72205fb3835f746145d271d2b998:/mpreduce.c

diff --git a/mpreduce.c b/mpreduce.c
index 0f20ed8..02ce2cf 100644
--- a/mpreduce.c
+++ b/mpreduce.c
@@ -101,10 +101,11 @@ int mpreduce_create(mpreduce *r, mp *p)
       case X0 | 0: st =  Z; printf("+ %lu\n", i - 1); break;
     }
   }
-  if (st >= X) printf("+ %lu\n", i);
+  if (st >= X) printf("+ %lu\n", i - 1);
+  st = Z;
 #endif
 
-  for (i = 0, mp_scan(&sc, p); i < d  - 1 && mp_step(&sc); i++) {
+  for (i = 0, mp_scan(&sc, p); i < d && mp_step(&sc); i++) {
     switch (st | mp_bit(&sc)) {
       case  Z | 1: st = Z1; break;
       case Z1 | 0: st =  Z; op = MPRI_SUB; goto instr;