blob: d31701572fc71276ccf4b3c9e572af17b4e3ef98 [file] [log] [blame]
f (to)
char *to;
{
unsigned int wch;
register length;
unsigned char tmp;
unsigned int mult = 10;
tmp = (wch>>(unsigned int)(length * mult));
*to++ = (unsigned char)tmp;
}