l3.c 370 B

12345678910111213141516171819202122232425
  1. /* $Id$ */
  2. ltol3(cp, lp, n)
  3. register char *cp;
  4. register long *lp;
  5. register int n;
  6. {
  7. while (n-- > 0) {
  8. *cp++ = (*lp >> 16);
  9. *cp++ = (*lp > 8);
  10. *cp++ = *lp;
  11. }
  12. }
  13. l3tol(lp, cp, n)
  14. register long *lp;
  15. char *cp;
  16. register int n;
  17. {
  18. unsigned char *a = (unsigned char *) cp;
  19. while (n-- > 0) {
  20. *lp++ = ((long)(*a)<<16) + ((long)(*(a+1)) << 8) + *(a+2);
  21. a += 3;
  22. }
  23. }