ibphoenix/tomsfastmath
6
0
Fork 1
Code Issues Pull Requests Packages Releases Wiki Activity

implement 50f587c36f as proposed by tom

Browse Source
This commit is contained in:
Steffen Jaeckel 2014-06-12 18:04:03 +02:00
parent e8163eb74a
commit a7804acf42
1 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/sqr/fp_sqr.c
View File

@ -12,106 +12,112 @@
/* b = a*a */ /* b = a*a */
void fp_sqr(fp_int *A, fp_int *B) void fp_sqr(fp_int *A, fp_int *B)
{ {
int y; int y, old_used;
old_used = B->used;
/* call generic if we're out of range */ /* call generic if we're out of range */
if (A->used + A->used > FP_SIZE) { if (A->used + A->used > FP_SIZE) {
fp_sqr_comba(A, B); fp_sqr_comba(A, B);
return ; goto clean;
} }
y = A->used; y = A->used;
#if defined(TFM_SQR3) && FP_SIZE >= 6 #if defined(TFM_SQR3) && FP_SIZE >= 6
if (y <= 3) { if (y <= 3) {
fp_sqr_comba3(A,B); fp_sqr_comba3(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR4) && FP_SIZE >= 8 #if defined(TFM_SQR4) && FP_SIZE >= 8
if (y == 4) { if (y == 4) {
fp_sqr_comba4(A,B); fp_sqr_comba4(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR6) && FP_SIZE >= 12 #if defined(TFM_SQR6) && FP_SIZE >= 12
if (y <= 6) { if (y <= 6) {
fp_sqr_comba6(A,B); fp_sqr_comba6(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR7) && FP_SIZE >= 14 #if defined(TFM_SQR7) && FP_SIZE >= 14
if (y == 7) { if (y == 7) {
fp_sqr_comba7(A,B); fp_sqr_comba7(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR8) && FP_SIZE >= 16 #if defined(TFM_SQR8) && FP_SIZE >= 16
if (y == 8) { if (y == 8) {
fp_sqr_comba8(A,B); fp_sqr_comba8(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR9) && FP_SIZE >= 18 #if defined(TFM_SQR9) && FP_SIZE >= 18
if (y == 9) { if (y == 9) {
fp_sqr_comba9(A,B); fp_sqr_comba9(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR12) && FP_SIZE >= 24 #if defined(TFM_SQR12) && FP_SIZE >= 24
if (y <= 12) { if (y <= 12) {
fp_sqr_comba12(A,B); fp_sqr_comba12(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR17) && FP_SIZE >= 34 #if defined(TFM_SQR17) && FP_SIZE >= 34
if (y <= 17) { if (y <= 17) {
fp_sqr_comba17(A,B); fp_sqr_comba17(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SMALL_SET) #if defined(TFM_SMALL_SET)
if (y <= 16) { if (y <= 16) {
fp_sqr_comba_small(A,B); fp_sqr_comba_small(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR20) && FP_SIZE >= 40 #if defined(TFM_SQR20) && FP_SIZE >= 40
if (y <= 20) { if (y <= 20) {
fp_sqr_comba20(A,B); fp_sqr_comba20(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR24) && FP_SIZE >= 48 #if defined(TFM_SQR24) && FP_SIZE >= 48
if (y <= 24) { if (y <= 24) {
fp_sqr_comba24(A,B); fp_sqr_comba24(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR28) && FP_SIZE >= 56 #if defined(TFM_SQR28) && FP_SIZE >= 56
if (y <= 28) { if (y <= 28) {
fp_sqr_comba28(A,B); fp_sqr_comba28(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR32) && FP_SIZE >= 64 #if defined(TFM_SQR32) && FP_SIZE >= 64
if (y <= 32) { if (y <= 32) {
fp_sqr_comba32(A,B); fp_sqr_comba32(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR48) && FP_SIZE >= 96 #if defined(TFM_SQR48) && FP_SIZE >= 96
if (y <= 48) { if (y <= 48) {
fp_sqr_comba48(A,B); fp_sqr_comba48(A,B);
return; goto clean;
} }
#endif #endif
#if defined(TFM_SQR64) && FP_SIZE >= 128 #if defined(TFM_SQR64) && FP_SIZE >= 128
if (y <= 64) { if (y <= 64) {
fp_sqr_comba64(A,B); fp_sqr_comba64(A,B);
return; goto clean;
} }
#endif #endif
fp_sqr_comba(A, B); fp_sqr_comba(A, B);
clean:
for (y = B->used; y < old_used; y++) {
B->dp[y] = 0;
}
} }