shl
shl(&u[0], m + n, d); /* u <<= d */
shl(&v[1], n - 1, d); /* v <<= d */
return ((((va >> shr | ((shl < len) ? *(culp)p2 << shl : 0)) ^
int shl, shr, len = length;
shl = (sizeof(long) << 3) - shr;
if (*(culp)p1 != (va >> shr | vb << shl))