X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fglob.c;h=235399c0be300779e1cbdafcc5a2f4bc61f8d76f;hb=2e0595dd8e344dbdcab740d7d2a3b67d153d6b39;hp=b2abbcf2b578bd2beaeafc4070f6c21f99b55138;hpb=fa77efde13ecbb261b90109142453850b283b950;p=pspp-builds.git diff --git a/src/glob.c b/src/glob.c index b2abbcf2..235399c0 100644 --- a/src/glob.c +++ b/src/glob.c @@ -87,6 +87,7 @@ extern void stifle_history (); #include "getline.h" #include "julcal/julcal.h" #include "lexer.h" +#include "magic.h" #include "main.h" #include "settings.h" #include "str.h" @@ -164,54 +165,6 @@ init_glob (int argc unused, char **argv) _control87 (0xffff, 0x137f); #endif -#if ENDIAN==UNKNOWN - { - /* Test for endianness borrowed from acspecific.m4, which was in - turn borrowed from Harbison&Steele. */ - union - { - long l; - char c[sizeof (long)]; - } - u; - - u.l = 1; - if (u.c[sizeof u.l - 1] == 1) - endian = BIG; - else if (u.c[0] == 1) - endian = LITTLE; - else - msg (FE, _("Your machine does not appear to be either big- or little-" - "endian. At the moment, PSPP only supports machines of " - "these standard endiannesses. If you want to hack in " - "others, contact the author.")); - } -#endif - - /* PORTME: Set the value for second_lowest_value, which is the - "second lowest" possible value for a double. This is the value - for LOWEST on MISSING VALUES, etc. */ -#ifndef SECOND_LOWEST_VALUE -#if FPREP == FPREP_IEEE754 - { - union - { - unsigned char c[8]; - double d; - } - second_lowest_little = {{0xfe, 0xff, 0xff, 0xff, 0xff, 0xff, 0xef, 0xff}}, - second_lowest_big = {{0xff, 0xef, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfe}}; - - if (endian == LITTLE) - second_lowest_value = second_lowest_little.d; - else if (endian == BIG) - second_lowest_value = second_lowest_big.d; - } -#else /* FPREP != FPREP_IEEE754 */ -#error Unknown floating-point representation. -#endif /* FPREP != FPREP_IEEE754 */ -#endif /* !SECOND_LOWEST_VALUE */ - /* var.h */ default_dict.var_by_name = avl_create (NULL, cmp_variable, NULL);