[Mldonkey-commits] Changes to mldonkey/src/utils/lib/stubs_c.c

[mldonkey-commits]

Index: mldonkey/src/utils/lib/stubs_c.c
diff -u mldonkey/src/utils/lib/stubs_c.c:1.27 
mldonkey/src/utils/lib/stubs_c.c:1.28
--- mldonkey/src/utils/lib/stubs_c.c:1.27       Thu Oct 27 09:42:06 2005
+++ mldonkey/src/utils/lib/stubs_c.c    Wed Nov 30 23:46:25 2005
@@ -22,6 +22,7 @@
 
 #include <string.h> 
 #include <ctype.h>
+#include <caml/config.h>
 
 #define lseek XXXXXXXXX
 #define read XXXXXXXXX
@@ -1281,3 +1282,14 @@
        return ml_verifySignature(argv[0], argv[1], argv[2], argv[3], argv[4], 
argv[5], argv[6]);
 }
 
+value ml_check_endianness(void)
+{
+  CAMLparam0 ();
+  CAMLlocal1 (v);
+#ifdef ARCH_BIG_ENDIAN
+  v = copy_string ("big endian");
+#else
+  v = copy_string ("little endian");
+#endif
+  CAMLreturn (v);
+}