+static int tset(dstr *v)
+{
+ mp *a = *(mp **)v[0].buf;
+ unsigned long n = *(unsigned long *)v[1].buf;
+ mp *r = *(mp **)v[2].buf;
+ mp *c;
+ int ok = 1;
+
+ c = mp_setbit2c(MP_NEW, a, n);
+ if (!MP_EQ(c, r)) {
+ ok = 0;
+ fprintf(stderr, "\n***setbit (set) failed");
+ fputs("\n*** a = ", stderr); mp_writefile(a, stderr, 16);
+ fprintf(stderr, "\n*** n = %lu", n);
+ fputs("\n*** r = ", stderr); mp_writefile(r, stderr, 16);
+ fputs("\n*** c = ", stderr); mp_writefile(c, stderr, 16);
+ fputc('\n', stderr);
+ }
+ if (!mp_testbit2c(r, n)) {
+ ok = 0;
+ fprintf(stderr, "\n***setbit (test) failed");
+ fprintf(stderr, "\n*** n = %lu", n);
+ fputs("\n*** r = ", stderr); mp_writefile(r, stderr, 16);
+ fputc('\n', stderr);
+ }
+ mp_drop(a);
+ mp_drop(r);
+ mp_drop(c);
+ assert(mparena_count(MPARENA_GLOBAL) == 0);
+ return (ok);
+}
+
+static int tclr(dstr *v)
+{
+ mp *a = *(mp **)v[0].buf;
+ unsigned long n = *(unsigned long *)v[1].buf;
+ mp *r = *(mp **)v[2].buf;
+ mp *c;
+ int ok = 1;
+
+ c = mp_clearbit2c(MP_NEW, a, n);
+ if (!MP_EQ(c, r)) {
+ ok = 0;
+ fprintf(stderr, "\n***clrbit (set) failed");
+ fputs("\n*** a = ", stderr); mp_writefile(a, stderr, 16);
+ fprintf(stderr, "\n*** n = %lu", n);
+ fputs("\n*** r = ", stderr); mp_writefile(r, stderr, 16);
+ fputs("\n*** c = ", stderr); mp_writefile(c, stderr, 16);
+ fputc('\n', stderr);
+ }
+ if (mp_testbit2c(r, n)) {
+ ok = 0;
+ fprintf(stderr, "\n***clrbit (test) failed");
+ fprintf(stderr, "\n*** n = %lu", n);
+ fputs("\n*** r = ", stderr); mp_writefile(r, stderr, 16);
+ fputc('\n', stderr);
+ }
+ mp_drop(a);
+ mp_drop(c);
+ mp_drop(r);
+ assert(mparena_count(MPARENA_GLOBAL) == 0);
+ return (ok);
+}
+
+static int tneg(dstr *v)
+{
+ mp *a = *(mp **)v[0].buf;
+ mp *r = *(mp **)v[1].buf;
+ int ok = 1;
+ mp *n = mp_neg(MP_NEW, a);
+ if (!MP_EQ(r, n)) {
+ ok = 0;
+ fprintf(stderr, "\n*** neg failed\n");
+ fputs("\n*** a = ", stderr); mp_writefile(a, stderr, 10);
+ fputs("\n*** r = ", stderr); mp_writefile(r, stderr, 10);
+ fputs("\n*** n = ", stderr); mp_writefile(n, stderr, 10);
+ fputc('\n', stderr);
+ }
+ mp_drop(n);
+ n = mp_neg(a, a);
+ if (!MP_EQ(r, n)) {
+ ok = 0;
+ fprintf(stderr, "\n*** neg failed\n");
+ fputs("\n*** a* = ", stderr); mp_writefile(a, stderr, 10);
+ fputs("\n*** r = ", stderr); mp_writefile(r, stderr, 10);
+ fputs("\n*** n = ", stderr); mp_writefile(n, stderr, 10);
+ fputc('\n', stderr);
+ }
+ mp_drop(a);
+ mp_drop(r);
+ assert(mparena_count(MPARENA_GLOBAL) == 0);
+ return (ok);
+}
+