aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-utility.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r--src/interp/sys-utility.boot11
1 files changed, 11 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index 2d334946..31781fae 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -47,6 +47,17 @@ $COMBLOCKLIST := nil
%nothing == KEYWORD::%OpenAxiomNoValue
+++ Constants describing byte order
+%littleEndian == KEYWORD::%littleEndian
+%bigEndian == KEYWORD::%bigEndian
+%unknownEndian == KEYWORD::%unknownEndian
+
+++ The byte order of the host machine running OpenAxiom.
+%hostByteOrder ==
+ getHostByteOrder() = 1 => %littleEndian
+ getHostByteOrder() = 2 => %bigEndian
+ %unknownEndian
+
--%
++ getVMType returns an approximation of the underlying object type