[repatch] fix: moebius_ function (form-dev#422, form-dev#430)

* Build issue on 32-bit machines.

* Corner cases where n ~ MAXPOSITIVE.

Repatched 28e15ea (form-dev#441)

Author: tueda

sources/reken.c

@@ -3739,8 +3739,8 @@ WORD Moebius(PHEAD WORD nn)
 		b: the number is not already in the table.
 */
 	if ( nn >= AR.moebiustablesize ) {
-		if ( AR.moebiustablesize <= 0 ) { newsize = nn + 20; }
-		else { newsize = nn*2; }
+		if ( AR.moebiustablesize <= 0 ) { newsize = (LONG)nn + 20; }
+		else { newsize = (LONG)nn*2; }
 		if ( newsize > MAXPOSITIVE ) newsize = MAXPOSITIVE;
 		newtable = (char *)Malloc1(newsize*sizeof(char),"Moebius");
 		for ( i = 0; i < AR.moebiustablesize; i++ ) newtable[i] = AR.moebiustable[i];
@@ -3749,7 +3749,8 @@ WORD Moebius(PHEAD WORD nn)
 		AR.moebiustable = newtable;			
 		AR.moebiustablesize = newsize;
 	}
-	if ( AR.moebiustable[nn] != 2 ) return((WORD)AR.moebiustable[nn]);
+	/* NOTE: nn == MAXPOSITIVE never fits in moebiustable. */
+	if ( nn != MAXPOSITIVE && AR.moebiustable[nn] != 2 ) return((WORD)AR.moebiustable[nn]);
 	mu = 1;
 	if ( n == 1 ) goto putvalue;
 	if ( n % 2 == 0 ) {
@@ -3759,8 +3760,12 @@ WORD Moebius(PHEAD WORD nn)
 		mu = -mu;
 		if ( n == 1 ) goto putvalue;
 	}
+#if ( BITSINWORD == 32 )
 	for ( i = 0; i < AR.numinprimelist; i++ ) {
 		x = AR.PrimeList[i];
+#else
+	for ( x = 3; x < MAXPOSITIVE; x += 2 ) {
+#endif
 		if ( n % x == 0 ) {
 			n /= x;
 			if ( n % x == 0 ) { mu = 0; goto putvalue; }
@@ -3772,7 +3777,7 @@ WORD Moebius(PHEAD WORD nn)
 	}
 	mu = -mu;
 putvalue:
-	AR.moebiustable[nn] = mu;
+	if ( nn != MAXPOSITIVE ) AR.moebiustable[nn] = mu;
 	return((WORD)mu);
 }