4 files changed, 2 insertions, 21 deletions
diff --git a/itypes.c b/itypes.c
index ba8705e2..51cbb7cd 100644
--- a/itypes.c
+++ b/itypes.c
@@ -35,8 +35,6 @@
 #include "arith.h"
 #include "itypes.h"
 
-int itypes_little_endian;
-
 #if HAVE_I8
 i8_t c_i8(val n, val self)
 {
@@ -263,16 +261,3 @@ unsigned long c_ulong(val n, val self)
 #error portme
 #endif
 }
-
-extern int itypes_little_endian;
-void itypes_init(void);
-
-void itypes_init()
-{
-  union u {
-    volatile unsigned ui;
-    volatile unsigned char uc[sizeof (unsigned)];
-  } u = { 0xff };
-
-  itypes_little_endian = (u.uc[0] == 0xff);
-}
diff --git a/itypes.h b/itypes.h
index 0991b1cd..5cbc3ea1 100644
--- a/itypes.h
+++ b/itypes.h
@@ -116,6 +116,3 @@ unsigned int c_uint(val, val self);
 
 long c_long(val, val self);
 unsigned long c_ulong(val, val self);
-
-extern int itypes_little_endian;
-void itypes_init(void);
diff --git a/lib.c b/lib.c
index 486ceee8..c2180abb 100644
--- a/lib.c
+++ b/lib.c
@@ -13086,7 +13086,6 @@ void init(val *stack_bottom)
   hash_init();
   struct_init();
   tree_init();
-  itypes_init();
   buf_init();
   ffi_init();
   sysif_init();
diff --git a/parser.c b/parser.c
index 7698ac24..c1984a07 100644
--- a/parser.c
+++ b/parser.c
@@ -753,8 +753,8 @@ static val read_file_common(val self, val stream, val error_stream, val compiled
         val datavec = pop(&item);
         val funvec = car(item);
         val desc = vm_make_desc(nlevels, nregs, bytecode, datavec, funvec);
-        if ((big_endian && itypes_little_endian) ||
-            (!big_endian && !itypes_little_endian))
+        if ((big_endian && HAVE_LITTLE_ENDIAN) ||
+            (!big_endian && !HAVE_LITTLE_ENDIAN))
           buf_swap32(bytecode);
         (void) vm_execute_toplevel(desc);
         gc_hint(desc);