Subversion Repositories planix.SVN

Rev

Rev 22 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 22 Rev 26
Line 15... Line 15...
15 
	x = 1;
 15 
	x = 1;
16 
	x <<= ((n-1)%Dbits);
 16 
	x <<= ((n-1)%Dbits);
17 
	p->p[p->top-1] &= (x-1);
 17 
	p->p[p->top-1] &= (x-1);
18 
	p->p[p->top-1] |= x;
 18 
	p->p[p->top-1] |= x;
19 
	p->p[0] |= 1;
 19 
	p->p[0] |= 1;
- 
 
 20 
	mpnorm(p);
20 
 
 21 
 
21 
	// keep icrementing till it looks prime
 22 
	// keep icrementing till it looks prime
22 
	for(;;){
 23 
	for(;;){
23 
		if(probably_prime(p, accuracy))
 24 
		if(probably_prime(p, accuracy))
24 
			break;
 25 
			break;