Lines Matching defs:scr1
137 * scr1, scr2 : scratch giants, big enough for all conceivable ops. Can
142 static int compTest(giant g1, giant g2, giant scr1, giant scr2)
144 gtog(g1, scr1); // scr1 := g1
145 gtog(scr1, scr2);
153 static int addSubTest(giant g1, giant g2, giant scr1, giant scr2)
155 gtog(g1, scr1); // scr1 := g1
156 addg(g2, scr1); // scr1 := g1 + g2
157 subg(g1, scr1); // scr1 := g1 + g2 - g1 =? g2
158 if(gcompg(g2, scr1)) {
167 static int mulTest(giant g1, giant g2, giant scr1, giant scr2)
173 int_to_giant(randInt, scr1); // scr1 := randInt
175 mulg(scr1, scr2); // scr2 := g1 * randInt
178 int_to_giant(0, scr1); // scr1 := 0
180 addg(g1, scr1); // scr1 += g1
181 } // scr1 =? g1 * randInt
182 if(gcompg(scr1, scr2)) {
185 printf("good prod : "); printGiantHex(scr1);
194 static int squareTest(giant g1, giant g2, giant scr1, giant scr2)
196 gtog(g1, scr1);
197 mulg(g1, scr1); // scr1 := g1 * g1
200 if(gcompg(scr1, scr2)) {
207 static int lshiftTest(giant g1, giant g2, giant scr1, giant scr2)
209 int maxShift = (scr1->capacity - abs(g1->sign) - 1) *
212 giant scr3 = borrowGiant(scr1->capacity);
215 gtog(g1, scr1); // scr1 := g1
216 gshiftleft(shiftCnt, scr1); // scr1 := (g1 << shiftCnt)
228 if(gcompg(scr1, scr2)) {
231 printf("scr1 : "); printGiantHex(scr1);
240 static int rshiftTest(giant g1, giant g2, giant scr1, giant scr2)
244 giant scr3 = borrowGiant(scr1->capacity);
258 gtog(g1, scr1); // scr1 := g1
259 gabs(scr1); // scr1 := |g1|
260 gtog(scr1, scr2); // scr2 := |g1|
261 gshiftright(shiftCnt, scr1); // scr1 := (|g1| >> shiftCnt)
272 if(gcompg(scr1, scr2)) {
275 printf("scr1 : "); printGiantHex(scr1);
284 static int divTest(giant g1, giant g2, giant scr1, giant scr2)
286 gtog(g1, scr1); // scr1 := g1
287 mulg(g2, scr1); // scr1 := g1 * g2
290 divg(scr2, scr1); // scr1 := (g1 * g2) / |g2|
294 scr1->sign = -scr1->sign;
296 if(gcompg(scr1, g1)) {
299 printf("scr1 : "); printGiantHex(scr1);
308 static int modTest(giant g1, giant g2, giant scr1, giant scr2)
311 giant scr3 = borrowGiant(scr1->capacity);
313 giant scr4 = borrowGiant(scr1->capacity);
317 int_to_giant(randInt, scr1); // scr1 := rand
339 if(gcompg(scr1, scr2) >= 0) {
343 printf(" rand = "); printGiantHex(scr1);
345 modg(scr2, scr1); // scr1 := rand mod g1
346 if(gcompg(scr1, scr2) >= 0) {
353 addg(scr1, scr3); // scr3 := (|g1 * g2|) + rand
356 if(gcompg(scr1, scr3)) {
360 printf("randG : "); printGiantHex(scr1);
378 static int modg1Test(giant g1, giant scr1, giant scr2)
381 scr1->n[0] = 1;
382 scr1->sign = 1;
384 modg(scr1, scr2);
394 static int mulOnesTest(giant g1, giant g2, giant scr1, giant scr2)
398 giant gOnes = borrowGiant(scr1->capacity);
406 gtog(gOnes, scr1); // scr1 := gOnes
407 mulg(g1, scr1); // scr1 := gOnes * g1
412 if(gcompg(scr1, scr2)) {
413 printf("good prod : "); printGiantHex(scr1);
428 giant scr1; // scratch
477 scr1 = newGiant(4 * maxSize * GIANT_BYTES_PER_DIGIT);
491 if(compTest(g1, g2, scr1, scr2)) {
494 if(addSubTest(g1, g2, scr1, scr2)) {
499 if(mulTest(g1, g2, scr1, scr2)) {
504 if(squareTest(g1, g2, scr1, scr2)) {
507 if(lshiftTest(g1, g2, scr1, scr2)) {
510 if(modTest(g1, g2, scr1, scr2)) {
513 if(rshiftTest(g1, g2, scr1, scr2)) {
517 if(divTest(g1, g2, scr1, scr2)) {
521 if(modg1Test(g1, scr1, scr2)) {
526 if(mulOnesTest(g1, g2, scr1, scr2)) {