Quote from: asor on November 14, 2013, 10:39:34 PM

Thanks reorder! But I never used poclbm - what is "crycl.h"? I found no information where I can get it...

It is just a bunch of (pretty much obvious) macros I use between projects, not a part of original poclbm. Here it is:

Code:

#ifndef CRYCL_H
#define CRYCL_H

#define ROL(x, n) rotate(x, (ulong) n)
#define ROR(x, n) rotate(x, (ulong) 64-n)
#define ROL32(x, n) rotate(x, (uint) n)
#define ROR32(x, n) rotate(x, (uint) 32-n)
#define SWAP32(a) (as_uint(as_uchar4(a).wzyx))
#define SWAP64(n) (as_ulong(as_uchar8(n).s76543210))

#define SHL(x, n) ((x) << n)
#define SHR(x, n) ((x) >> n)

#ifdef ENDIAN_LITTLE
#define TOBE64(x) SWAP64(x)
#define TOLE64(x) (x)
#define TOBE32(x) SWAP32(x)
#define TOLE32(x) (x)
#define TOBE64V8(v) (ulong8)(SWAP64(v.s0), SWAP64(v.s1), SWAP64(v.s2), SWAP64(v.s3), SWAP64(v.s4), SWAP64(v.s5), SWAP64(v.s6), SWAP64(v.s7))
#define TOLE64V8(v) (v)
#define TOBE32V16(v) (uint16)(SWAP32(v.s0), SWAP32(v.s1), SWAP32(v.s2), SWAP32(v.s3), \
SWAP32(v.s4), SWAP32(v.s5), SWAP32(v.s6), SWAP32(v.s7), \
SWAP32(v.s8), SWAP32(v.s9), SWAP32(v.sa), SWAP32(v.sb), \
SWAP32(v.sc), SWAP32(v.sd), SWAP32(v.se), SWAP32(v.sf))
#define TOLE32V16(v) (v)
#define TOBE32V8(v) (uint8)(SWAP32(v.s0), SWAP32(v.s1), SWAP32(v.s2), SWAP32(v.s3), \
SWAP32(v.s4), SWAP32(v.s5), SWAP32(v.s6), SWAP32(v.s7))
#define TOLE32V8(v) (v)

#else

#define TOBE64(x) (x)
#define TOLE64(x) SWAP64(x)
#define TOBE32(x) (x)
#define TOLE32(x) SWAP32(x)
#define TOBE64V8(v) (v)
#define TOLE64V8(v) (ulong8)(SWAP64(v.s0), SWAP64(v.s1), SWAP64(v.s2), SWAP64(v.s3), SWAP64(v.s4), SWAP64(v.s5), SWAP64(v.s6), SWAP64(v.s7))
#define TOBE32V16(v) (v)
#define TOLE32V16(v) (uint16)(SWAP32(v.s0), SWAP32(v.s1), SWAP32(v.s2), SWAP32(v.s3), \
SWAP32(v.s4), SWAP32(v.s5), SWAP32(v.s6), SWAP32(v.s7), \
SWAP32(v.s8), SWAP32(v.s9), SWAP32(v.sa), SWAP32(v.sb), \
SWAP32(v.sc), SWAP32(v.sd), SWAP32(v.se), SWAP32(v.sf))
#define TOBE32V8(v) (v)
#define TOLE32V8(v) (uint8)(SWAP32(v.s0), SWAP32(v.s1), SWAP32(v.s2), SWAP32(v.s3), \
SWAP32(v.s4), SWAP32(v.s5), SWAP32(v.s6), SWAP32(v.s7))
#endif

#define FROMLE64(x) TOLE64(x)
#define FROMBE64(x) TOBE64(x)
#define FROMLE32(x) TOLE32(x)
#define FROMBE32(x) TOBE32(x)
#define FROMBE64V8(x) TOBE64V8(x)
#define FROMLE64V8(x) TOLE64V8(x)
#define FROMBE32V8(x) TOBE32V8(x)
#define FROMLE32V8(x) TOLE32V8(x)
#define FROMBE32V16(x) TOBE32V16(x)
#define FROMLE32V16(x) TOLE32V16(x)

typedef ulong u64;
typedef uint u32;
typedef uchar u8;

__constant ulong16 zerol16 = (ulong16)(0UL);
__constant uint16 zeroi16 = (uint16)(0UL);

#endif

I would not share the modified poclbm itself being embarrassed with all the monkey patching and dirty code.

You are better off plugging this into reaper or even cgminer anyway, just make sure to define GPU_AMD and ENDIAN_LITTLE on compilation.

You will also probably need this, this is how the midstate for kernel is computed:

Code:

int skeinhashmid
(
unsigned char *out,
const unsigned char *in
)

{
Skein_512_Ctxt_t ctx;

Skein_512_Init (&ctx,8*64);
Skein_512_Update(&ctx,in,(size_t) 80);
memcpy(out, ctx.X, 64);

return 0;
}