[BACK]Return to endian.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari / config

File: [local] / OpenXM_contrib / pari / config / Attic / endian.c (download)

Revision 1.1, Sun Jan 9 17:35:29 2000 UTC (24 years, 5 months ago) by maekawa
Branch: MAIN

Initial revision

main()
{
  int i;
  union
  {
    unsigned long l;
    char c[sizeof(long)];
  } u;

  if (sizeof(long) > 4)
    u.l = (0x08070605L << 32) | 0x04030201L;
  else
    u.l = 0x04030201L;
  for (i = 0; i < sizeof(long); i++)
    printf("%c", u.c[i]+'0');
  printf("\n");
  exit(0);
}