Commit 64f2c065a6706266a3ce95ddada53882dbc2af1f
2013-02-21T12:05:26
Reuse some Vals[] variables that can be assigned to constants earlier in the poclbm kernel, making for fewer ops.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
diff --git a/poclbm121016.cl b/poclbm121016.cl
index 6cff591..6f5fd01 100644
--- a/poclbm121016.cl
+++ b/poclbm121016.cl
@@ -750,6 +750,8 @@ W[7]+=Vals[2];
Vals[2]=xf377ed68U;
Vals[2]+=Vals[5];
+W[0]=Vals[5];
+Vals[5]=x6a09e667U;
W[3]=state3;
W[3]+=Vals[0];
@@ -767,6 +769,8 @@ Vals[3]+=(x9b05688cU^(Vals[0]&xca0b3af3U));
Vals[7]+=state1;
Vals[3]+=Vals[7];
+W[1]=Vals[7];
+Vals[7]=xbb67ae85U;
W[2]=state2;
W[2]+=Vals[6];
@@ -774,7 +778,7 @@ W[2]+=Vals[6];
Vals[6]=x3c6ef372U;
Vals[6]+=Vals[3];
Vals[3]+=(rotr(Vals[2],2)^rotr(Vals[2],13)^rotr(Vals[2],22));
-Vals[3]+=Ma2(xbb67ae85U,Vals[2],x6a09e667U);
+Vals[3]+=Ma2(Vals[7],Vals[2],Vals[5]);
W[5]=state5;
W[5]+=Vals[4];
@@ -784,11 +788,9 @@ Vals[4]+=(rotr(Vals[6],6)^rotr(Vals[6],11)^rotr(Vals[6],25));
Vals[4]+=ch(Vals[6],Vals[0],x510e527fU);
Vals[4]+=W[2];
-W[1]=Vals[7];
-Vals[7]=xbb67ae85U;
Vals[7]+=Vals[4];
Vals[4]+=(rotr(Vals[3],2)^rotr(Vals[3],13)^rotr(Vals[3],22));
-Vals[4]+=Ma2(x6a09e667U,Vals[3],Vals[2]);
+Vals[4]+=Ma2(Vals[5],Vals[3],Vals[2]);
W[4]=state4;
W[4]+=Vals[1];
@@ -797,12 +799,7 @@ Vals[1]=x3ac42e24U;
Vals[1]+=(rotr(Vals[7],6)^rotr(Vals[7],11)^rotr(Vals[7],25));
Vals[1]+=ch(Vals[7],Vals[6],Vals[0]);
Vals[1]+=W[3];
-
-W[0]=Vals[5];
-
-Vals[5]=Vals[1];
-Vals[5]+=x6a09e667U;
-
+Vals[5]+=Vals[1];
Vals[1]+=(rotr(Vals[4],2)^rotr(Vals[4],13)^rotr(Vals[4],22));
Vals[1]+=Ma(Vals[2],Vals[4],Vals[3]);