mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-14 21:20:21 +02:00
Code Activity

try a new way of checking byte order

Browse source
This commit is contained in:
Andy Wingo 2009-03-16 22:41:50 +01:00 • committed by Andy Wingo
parent 06dc937dd7
commit 8992a9e318
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/objcodes.c
View file

@ -268,6 +268,14 @@ scm_bootstrap_objcodes (void)
scm_set_smob_mark (scm_tc16_objcode, objcode_mark); scm_set_smob_mark (scm_tc16_objcode, objcode_mark);
} }
/* Before, we used __BYTE_ORDER, but that is not defined on all
systems. So punt and use automake, PDP endianness be damned. */
#ifdef WORDS_BIGENDIAN
#define SCM_BYTE_ORDER 4321
#else
#define SCM_BYTE_ORDER 1234
#endif
void void
scm_init_objcodes (void) scm_init_objcodes (void)
{ {
@ -278,7 +286,7 @@ scm_init_objcodes (void)
#endif #endif
scm_c_define ("word-size", scm_from_size_t (sizeof(SCM))); scm_c_define ("word-size", scm_from_size_t (sizeof(SCM)));
scm_c_define ("byte-order", scm_from_uint16 (__BYTE_ORDER)); scm_c_define ("byte-order", scm_from_uint16 (SCM_BYTE_ORDER));
} }
/* /*