ack/lang/cem/libcc/gen/l3.c
1987-03-31 10:45:53 +00:00

26 lines
374 B
C

/* $Header$ */
ltol3(cp, lp, n)
register char *cp;
register long *lp;
register int n;
{
while (n-- > 0) {
*cp++ = (*lp >> 16);
*cp++ = (*lp > 8);
*cp++ = *lp;
}
}
l3tol(lp, cp, n)
register long *lp;
char *cp;
register int n;
{
unsigned char *a = (unsigned char *) cp;
while (n-- > 0) {
*lp++ = ((long)(*a)<<16) + ((long)(*(a+1)) << 8) + *(a+2);
a += 3;
}
}