[BACK]Return to endian.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari-2.2 / config
File: [local] / OpenXM_contrib / pari-2.2 / config / Attic / endian.c (download)

Revision 1.2, Wed Sep 11 07:26:39 2002 UTC (21 years, 8 months ago) by noro
Branch: MAIN
CVS Tags: RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2
Changes since 1.1: +16 -14 lines 

Upgraded pari-2.2 to pari-2.2.4.

#include <stdio.h>
main()
{
  if (sizeof(long) == 4)
  {
    union {double d; unsigned long l[2];} x;
    x.d = 2.;
    if      (x.l[0]==0 && x.l[1]==(1UL<<30)) printf("1\n");
    else if (x.l[1]==0 && x.l[0]==(1UL<<30)) printf("0\n");
    else
      printf("NOT IEEE (32 bit)\n");
  }
  else
  {
    union {double d; unsigned long l;} x;
    x.d = 2.;
    if (x.l==(1UL<<62)) printf("-\n");
    else
      printf("NOT IEEE (64 bit)\n");
  }
}