# Test vectors for MP functions
#
-# $Id: mp,v 1.10 2002/10/06 22:52:50 mdw Exp $
+# $Id: mp,v 1.15 2003/05/16 09:09:24 mdw Exp $
add {
5 4 9; 5 -4 1; -5 4 -1; -5 -4 -9;
or 5 3 7;
xor 5 3 6;
1111 0 0 -1;
+ or 45 -7 -3;
xor 0x343cd5 -0x6a49c -0x32984f;
}
-1 5 -1;
1 5 0;
-6 2 -2;
+ 5 0 5;
+ -4 0 -4;
+ 7 2 1;
+ -7 2 -2;
+ -7 20 -1;
+}
+
+lsl2c {
+ -1 5 -32;
+ 5 0 5;
+ -4 0 -4;
+ 7 2 28;
+ -7 2 -28;
+ 0xc0000000 1 0x180000000;
+ -0xc0000000 1 -0x180000000;
+ -1 32 -0x100000000;
+}
+
+setbit {
+ 0 40 0x10000000000;
+ 0x87348 40 0x10000087348;
+ 5 1 7;
+ 7 1 7;
+ -3 1 -1;
+}
+
+clrbit {
+ 0x10000000000 40 0;
+ 0x87348 40 0x87348;
+ 5 1 5;
+ 7 1 5;
+ -1 1 -3;
+}
+
+neg {
+ 0 0;
+ 15 -15;
+ -15 15;
}
odd {