diff options
author | dos-reis <gdr@axiomatics.org> | 2009-02-07 22:10:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-02-07 22:10:17 +0000 |
commit | 2fbcd8bc4f97cc3e534e11414f5a12dbc08edf2d (patch) | |
tree | 25f9002df4057d8e967d22c6f66a2d84378b3bcd /src/lib | |
parent | 85f1c4d3dc7dc34ae4436d3ef0ffe0b6c6039b5a (diff) | |
download | open-axiom-2fbcd8bc4f97cc3e534e11414f5a12dbc08edf2d.tar.gz |
* algebra/system.spad.pamphlet (hostByteOrder$System): New.
* algebra/data.spad.pamphlet (ByteOrder): New.
* algebra/Makefile.pamphlet (axiom_algebra_layer_1): Include BYTEORD.
Diffstat (limited to 'src/lib')
-rw-r--r-- | src/lib/cfuns-c.c | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/src/lib/cfuns-c.c b/src/lib/cfuns-c.c index fb043c9f..4a443b82 100644 --- a/src/lib/cfuns-c.c +++ b/src/lib/cfuns-c.c @@ -2,7 +2,7 @@ Copyright (C) 1991-2002, The Numerical Algorithms Group Ltd. All rights reserved. - Copyright (C) 2007-2008, Gabriel Dos Reis. + Copyright (C) 2007-2009, Gabriel Dos Reis. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -672,6 +672,17 @@ NANQ(void) #ifdef NAN return NAN; #else - return sqrt(-1.0); /* Juts pick one. */ + return sqrt(-1.0); /* Just pick one. */ #endif } + + +OPENAXIOM_EXPORT openaxiom_byteorder +oa_get_host_byteorder(void) +{ +#ifdef WORDS_BIGENDIAN + return oa_big_endian; +#else + return oa_little_endian; +#endif +} |