42 lines
1.3 KiB
C
42 lines
1.3 KiB
C
/***********************************************************************/
|
|
/* */
|
|
/* OCaml */
|
|
/* */
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
/* */
|
|
/* Copyright 1996 Institut National de Recherche en Informatique et */
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
|
/* under the terms of the GNU Library General Public License, with */
|
|
/* the special exception on linking described in file ../../LICENSE. */
|
|
/* */
|
|
/***********************************************************************/
|
|
|
|
/* $Id$ */
|
|
|
|
#include "m.h"
|
|
|
|
#ifndef ARCH_SIXTYFOUR
|
|
long intval = 0x41424344L;
|
|
char * bigendian = "ABCD";
|
|
char * littleendian = "DCBA";
|
|
#else
|
|
long intval = 0x4142434445464748L;
|
|
char * bigendian = "ABCDEFGH";
|
|
char * littleendian = "HGFEDCBA";
|
|
#endif
|
|
|
|
main(void)
|
|
{
|
|
long n[2];
|
|
char * p;
|
|
|
|
n[0] = intval;
|
|
n[1] = 0;
|
|
p = (char *) n;
|
|
if (strcmp(p, bigendian) == 0)
|
|
exit(0);
|
|
if (strcmp(p, littleendian) == 0)
|
|
exit(1);
|
|
exit(2);
|
|
}
|