diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-01-25 14:38:59 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-01-25 14:38:59 +0000 |
commit | c71a9ceea43cad3099704164332acd80c7e8b51f (patch) | |
tree | 981e362721d6636322a6b670e2bb74310607cc13 /pp.c | |
parent | cbc136411c12f6ec4b242bce922c7013acd6aa1d (diff) | |
download | perl-c71a9ceea43cad3099704164332acd80c7e8b51f.tar.gz |
UNICOS/mk patches. Removing the _CRAYMPP test may be
rash but it's the best move I can think of right now.
Removing the _CRAYMPP test fixes a legion of pack/unpack
failures (hint: shortsize=4,intsize=8,longsize=8).
One subtest, t/lib/io_sock.t #14, is still failing.
p4raw-id: //depot/cfgperl@4888
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -47,7 +47,7 @@ typedef unsigned UBW; * have an integral type (except char) small enough to be represented * in a double without loss; that is, it has no 32-bit type. */ -#if LONGSIZE > 4 && defined(_CRAY) && !defined(_CRAYMPP) +#if LONGSIZE > 4 && defined(_CRAY) # define BW_BITS 32 # define BW_MASK ((1 << BW_BITS) - 1) # define BW_SIGN (1 << (BW_BITS - 1)) @@ -86,7 +86,7 @@ typedef unsigned UBW; # define PERL_NATINT_PACK #endif -#if BYTEORDER > 0xFFFF && defined(_CRAY) && !defined(_CRAYMPP) +#if LONGSIZE > 0xFFFF && defined(_CRAY) # if BYTEORDER == 0x12345678 # define OFF16(p) (char*)(p) # define OFF32(p) (char*)(p) |