projects
/
u
/
mdw
/
catacomb
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add brief section on RSA. Describe new prime-search system.
[u/mdw/catacomb]
/
mpmont.c
diff --git
a/mpmont.c
b/mpmont.c
index
a5b5e66
..
cabb2cb
100644
(file)
--- a/
mpmont.c
+++ b/
mpmont.c
@@
-1,6
+1,6
@@
/* -*-c-*-
*
/* -*-c-*-
*
- * $Id: mpmont.c,v 1.
7 1999/12/11 01:51:14
mdw Exp $
+ * $Id: mpmont.c,v 1.
8 1999/12/22 15:55:00
mdw Exp $
*
* Montgomery reduction
*
*
* Montgomery reduction
*
@@
-30,6
+30,9
@@
/*----- Revision history --------------------------------------------------*
*
* $Log: mpmont.c,v $
/*----- Revision history --------------------------------------------------*
*
* $Log: mpmont.c,v $
+ * Revision 1.8 1999/12/22 15:55:00 mdw
+ * Adjust Karatsuba parameters.
+ *
* Revision 1.7 1999/12/11 01:51:14 mdw
* Use a Karatsuba-based reduction for large moduli.
*
* Revision 1.7 1999/12/11 01:51:14 mdw
* Use a Karatsuba-based reduction for large moduli.
*
@@
-182,7
+185,7
@@
mp *mpmont_reduce(mpmont *mm, mp *d, mp *a)
/* --- Check for serious Karatsuba reduction --- */
/* --- Check for serious Karatsuba reduction --- */
- if (n > KARATSUBA_CUTOFF *
2
) {
+ if (n > KARATSUBA_CUTOFF *
3
) {
mp al;
mpw *vl;
mp *u;
mp al;
mpw *vl;
mp *u;
@@
-265,7
+268,7
@@
mp *mpmont_mul(mpmont *mm, mp *d, mp *a, mp *b)
mp *mpmont_mul(mpmont *mm, mp *d, mp *a, mp *b)
{
mp *mpmont_mul(mpmont *mm, mp *d, mp *a, mp *b)
{
- if (mm->n > KARATSUBA_CUTOFF *
2
) {
+ if (mm->n > KARATSUBA_CUTOFF *
3
) {
d = mp_mul(d, a, b);
d = mpmont_reduce(mm, d, d);
} else {
d = mp_mul(d, a, b);
d = mpmont_reduce(mm, d, d);
} else {