summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-02-19 20:43:19 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-02-19 20:43:19 +0000
commitc67712b2e649d3ea6de971bd2e9efe6087948fc1 (patch)
tree9d4749f0b2190cea3f4c89a296e92b40ce370b46 /perl.h
parent7b89560d5c65a9e518ae4b0eaf293de9d2d6c192 (diff)
downloadperl-c67712b2e649d3ea6de971bd2e9efe6087948fc1.tar.gz
pack/unpack better in (network-)short-non-16-bits and
(network-)long-non-32-bits systems such as Cray C90. p4raw-id: //depot/cfgperl@2985
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl.h b/perl.h
index 42505f0d87..0accd02e76 100644
--- a/perl.h
+++ b/perl.h
@@ -1613,7 +1613,7 @@ typedef I32 CHECKPOINT;
# define HAS_VTOHS
# define HAS_HTOVL
# define HAS_HTOVS
-# if BYTEORDER == 0x4321
+# if BYTEORDER == 0x4321 || BYTEORDER == 0x87654321
# define vtohl(x) ((((x)&0xFF)<<24) \
+(((x)>>24)&0xFF) \
+(((x)&0x0000FF00)<<8) \