/***********************************************************************/ /* */ /* Objective Caml */ /* */ /* 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. */ /* */ /***********************************************************************/ /* $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); }