The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include "tai.h"

void tai_pack(s,t)
char *s;
struct tai *t;
{
  uint64 x;

  x = t->x;
  s[7] = x & 255; x >>= 8;
  s[6] = x & 255; x >>= 8;
  s[5] = x & 255; x >>= 8;
  s[4] = x & 255; x >>= 8;
  s[3] = x & 255; x >>= 8;
  s[2] = x & 255; x >>= 8;
  s[1] = x & 255; x >>= 8;
  s[0] = x;
}