XFSCALE
#define XFSCALE(x, n) ((unsigned *) &x)[0] += n << 16 /* signbitl(x) == 0 */
#define XFSCALE(x, n) ((unsigned short *) &x)[4] += n /* signbitl(x) == 0 */