static void sha256_block (SHA256_CTX *ctx, const void *in, size_t num, int host)
	{
	unsigned MD32_REG_T a,b,c,d,e,f,g,h,s0,s1,T1;
	SHA_LONG	X[16];
	int i;
	const unsigned char *data=in;
			while (num--) {
	a = ctx->h[0];	b = ctx->h[1];	c = ctx->h[2];	d = ctx->h[3];
	e = ctx->h[4];	f = ctx->h[5];	g = ctx->h[6];	h = ctx->h[7];
	if (host)
		{
		const SHA_LONG *W=(const SHA_LONG *)data;
		T1 = X[0] = W[0];	ROUND_00_15(0,a,b,c,d,e,f,g,h);
		T1 = X[1] = W[1];	ROUND_00_15(1,h,a,b,c,d,e,f,g);
		T1 = X[2] = W[2];	ROUND_00_15(2,g,h,a,b,c,d,e,f);
		T1 = X[3] = W[3];	ROUND_00_15(3,f,g,h,a,b,c,d,e);
		T1 = X[4] = W[4];	ROUND_00_15(4,e,f,g,h,a,b,c,d);
		T1 = X[5] = W[5];	ROUND_00_15(5,d,e,f,g,h,a,b,c);
		T1 = X[6] = W[6];	ROUND_00_15(6,c,d,e,f,g,h,a,b);
		T1 = X[7] = W[7];	ROUND_00_15(7,b,c,d,e,f,g,h,a);
		T1 = X[8] = W[8];	ROUND_00_15(8,a,b,c,d,e,f,g,h);
		T1 = X[9] = W[9];	ROUND_00_15(9,h,a,b,c,d,e,f,g);
		T1 = X[10] = W[10];	ROUND_00_15(10,g,h,a,b,c,d,e,f);
		T1 = X[11] = W[11];	ROUND_00_15(11,f,g,h,a,b,c,d,e);
		T1 = X[12] = W[12];	ROUND_00_15(12,e,f,g,h,a,b,c,d);
		T1 = X[13] = W[13];	ROUND_00_15(13,d,e,f,g,h,a,b,c);
		T1 = X[14] = W[14];	ROUND_00_15(14,c,d,e,f,g,h,a,b);
		T1 = X[15] = W[15];	ROUND_00_15(15,b,c,d,e,f,g,h,a);
		}
	else
		{
		SHA_LONG l;
		HOST_c2l(data,l); T1 = X[0] = l;  ROUND_00_15(0,a,b,c,d,e,f,g,h);
		HOST_c2l(data,l); T1 = X[1] = l;  ROUND_00_15(1,h,a,b,c,d,e,f,g);
		HOST_c2l(data,l); T1 = X[2] = l;  ROUND_00_15(2,g,h,a,b,c,d,e,f);
		HOST_c2l(data,l); T1 = X[3] = l;  ROUND_00_15(3,f,g,h,a,b,c,d,e);
		HOST_c2l(data,l); T1 = X[4] = l;  ROUND_00_15(4,e,f,g,h,a,b,c,d);
		HOST_c2l(data,l); T1 = X[5] = l;  ROUND_00_15(5,d,e,f,g,h,a,b,c);
		HOST_c2l(data,l); T1 = X[6] = l;  ROUND_00_15(6,c,d,e,f,g,h,a,b);
		HOST_c2l(data,l); T1 = X[7] = l;  ROUND_00_15(7,b,c,d,e,f,g,h,a);
		HOST_c2l(data,l); T1 = X[8] = l;  ROUND_00_15(8,a,b,c,d,e,f,g,h);
		HOST_c2l(data,l); T1 = X[9] = l;  ROUND_00_15(9,h,a,b,c,d,e,f,g);
		HOST_c2l(data,l); T1 = X[10] = l; ROUND_00_15(10,g,h,a,b,c,d,e,f);
		HOST_c2l(data,l); T1 = X[11] = l; ROUND_00_15(11,f,g,h,a,b,c,d,e);
		HOST_c2l(data,l); T1 = X[12] = l; ROUND_00_15(12,e,f,g,h,a,b,c,d);
		HOST_c2l(data,l); T1 = X[13] = l; ROUND_00_15(13,d,e,f,g,h,a,b,c);
		HOST_c2l(data,l); T1 = X[14] = l; ROUND_00_15(14,c,d,e,f,g,h,a,b);
		HOST_c2l(data,l); T1 = X[15] = l; ROUND_00_15(15,b,c,d,e,f,g,h,a);
		}
	for (i=16;i<64;i+=8)
		{
		ROUND_16_63(i+0,a,b,c,d,e,f,g,h,X);
		ROUND_16_63(i+1,h,a,b,c,d,e,f,g,X);
		ROUND_16_63(i+2,g,h,a,b,c,d,e,f,X);
		ROUND_16_63(i+3,f,g,h,a,b,c,d,e,X);
		ROUND_16_63(i+4,e,f,g,h,a,b,c,d,X);
		ROUND_16_63(i+5,d,e,f,g,h,a,b,c,X);
		ROUND_16_63(i+6,c,d,e,f,g,h,a,b,X);
		ROUND_16_63(i+7,b,c,d,e,f,g,h,a,X);
		}
	ctx->h[0] += a;	ctx->h[1] += b;	ctx->h[2] += c;	ctx->h[3] += d;
	ctx->h[4] += e;	ctx->h[5] += f;	ctx->h[6] += g;	ctx->h[7] += h;
			data += SHA256_CBLOCK;
			}
	}
['static void sha256_block (SHA256_CTX *ctx, const void *in, size_t num, int host)\n\t{\n\tunsigned MD32_REG_T a,b,c,d,e,f,g,h,s0,s1,T1;\n\tSHA_LONG\tX[16];\n\tint i;\n\tconst unsigned char *data=in;\n\t\t\twhile (num--) {\n\ta = ctx->h[0];\tb = ctx->h[1];\tc = ctx->h[2];\td = ctx->h[3];\n\te = ctx->h[4];\tf = ctx->h[5];\tg = ctx->h[6];\th = ctx->h[7];\n\tif (host)\n\t\t{\n\t\tconst SHA_LONG *W=(const SHA_LONG *)data;\n\t\tT1 = X[0] = W[0];\tROUND_00_15(0,a,b,c,d,e,f,g,h);\n\t\tT1 = X[1] = W[1];\tROUND_00_15(1,h,a,b,c,d,e,f,g);\n\t\tT1 = X[2] = W[2];\tROUND_00_15(2,g,h,a,b,c,d,e,f);\n\t\tT1 = X[3] = W[3];\tROUND_00_15(3,f,g,h,a,b,c,d,e);\n\t\tT1 = X[4] = W[4];\tROUND_00_15(4,e,f,g,h,a,b,c,d);\n\t\tT1 = X[5] = W[5];\tROUND_00_15(5,d,e,f,g,h,a,b,c);\n\t\tT1 = X[6] = W[6];\tROUND_00_15(6,c,d,e,f,g,h,a,b);\n\t\tT1 = X[7] = W[7];\tROUND_00_15(7,b,c,d,e,f,g,h,a);\n\t\tT1 = X[8] = W[8];\tROUND_00_15(8,a,b,c,d,e,f,g,h);\n\t\tT1 = X[9] = W[9];\tROUND_00_15(9,h,a,b,c,d,e,f,g);\n\t\tT1 = X[10] = W[10];\tROUND_00_15(10,g,h,a,b,c,d,e,f);\n\t\tT1 = X[11] = W[11];\tROUND_00_15(11,f,g,h,a,b,c,d,e);\n\t\tT1 = X[12] = W[12];\tROUND_00_15(12,e,f,g,h,a,b,c,d);\n\t\tT1 = X[13] = W[13];\tROUND_00_15(13,d,e,f,g,h,a,b,c);\n\t\tT1 = X[14] = W[14];\tROUND_00_15(14,c,d,e,f,g,h,a,b);\n\t\tT1 = X[15] = W[15];\tROUND_00_15(15,b,c,d,e,f,g,h,a);\n\t\t}\n\telse\n\t\t{\n\t\tSHA_LONG l;\n\t\tHOST_c2l(data,l); T1 = X[0] = l;  ROUND_00_15(0,a,b,c,d,e,f,g,h);\n\t\tHOST_c2l(data,l); T1 = X[1] = l;  ROUND_00_15(1,h,a,b,c,d,e,f,g);\n\t\tHOST_c2l(data,l); T1 = X[2] = l;  ROUND_00_15(2,g,h,a,b,c,d,e,f);\n\t\tHOST_c2l(data,l); T1 = X[3] = l;  ROUND_00_15(3,f,g,h,a,b,c,d,e);\n\t\tHOST_c2l(data,l); T1 = X[4] = l;  ROUND_00_15(4,e,f,g,h,a,b,c,d);\n\t\tHOST_c2l(data,l); T1 = X[5] = l;  ROUND_00_15(5,d,e,f,g,h,a,b,c);\n\t\tHOST_c2l(data,l); T1 = X[6] = l;  ROUND_00_15(6,c,d,e,f,g,h,a,b);\n\t\tHOST_c2l(data,l); T1 = X[7] = l;  ROUND_00_15(7,b,c,d,e,f,g,h,a);\n\t\tHOST_c2l(data,l); T1 = X[8] = l;  ROUND_00_15(8,a,b,c,d,e,f,g,h);\n\t\tHOST_c2l(data,l); T1 = X[9] = l;  ROUND_00_15(9,h,a,b,c,d,e,f,g);\n\t\tHOST_c2l(data,l); T1 = X[10] = l; ROUND_00_15(10,g,h,a,b,c,d,e,f);\n\t\tHOST_c2l(data,l); T1 = X[11] = l; ROUND_00_15(11,f,g,h,a,b,c,d,e);\n\t\tHOST_c2l(data,l); T1 = X[12] = l; ROUND_00_15(12,e,f,g,h,a,b,c,d);\n\t\tHOST_c2l(data,l); T1 = X[13] = l; ROUND_00_15(13,d,e,f,g,h,a,b,c);\n\t\tHOST_c2l(data,l); T1 = X[14] = l; ROUND_00_15(14,c,d,e,f,g,h,a,b);\n\t\tHOST_c2l(data,l); T1 = X[15] = l; ROUND_00_15(15,b,c,d,e,f,g,h,a);\n\t\t}\n\tfor (i=16;i<64;i+=8)\n\t\t{\n\t\tROUND_16_63(i+0,a,b,c,d,e,f,g,h,X);\n\t\tROUND_16_63(i+1,h,a,b,c,d,e,f,g,X);\n\t\tROUND_16_63(i+2,g,h,a,b,c,d,e,f,X);\n\t\tROUND_16_63(i+3,f,g,h,a,b,c,d,e,X);\n\t\tROUND_16_63(i+4,e,f,g,h,a,b,c,d,X);\n\t\tROUND_16_63(i+5,d,e,f,g,h,a,b,c,X);\n\t\tROUND_16_63(i+6,c,d,e,f,g,h,a,b,X);\n\t\tROUND_16_63(i+7,b,c,d,e,f,g,h,a,X);\n\t\t}\n\tctx->h[0] += a;\tctx->h[1] += b;\tctx->h[2] += c;\tctx->h[3] += d;\n\tctx->h[4] += e;\tctx->h[5] += f;\tctx->h[6] += g;\tctx->h[7] += h;\n\t\t\tdata += SHA256_CBLOCK;\n\t\t\t}\n\t}']