From 9ae6d45f4f8436644475e9431c4305550cbce91c Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 20 Mar 1998 21:39:28 +0200
Subject: [PATCH] Re: [PATCH] 5.004_63: UNICOS 9

p4raw-id: //depot/perl@859
---
 hints/unicos.sh | 2 +-
 regcomp.h       | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/hints/unicos.sh b/hints/unicos.sh
index 1d82855..7579eed 100644
--- a/hints/unicos.sh
+++ b/hints/unicos.sh
@@ -5,6 +5,6 @@ optimize="-O1"
 d_setregid='undef'
 d_setreuid='undef'
 case "$usemymalloc" in
-'') usemymalloc='n' ;;
+'') usemymalloc='y' ;;
 esac
 
diff --git a/regcomp.h b/regcomp.h
index ecb1d7b..4b86a8d 100644
--- a/regcomp.h
+++ b/regcomp.h
@@ -271,7 +271,10 @@ struct regnode_2 {
 
 #endif 
 
-#define REG_INFTY I16_MAX
+/* I16_MAX is no good for REG_INFTY because sizeof(short) > 2
+ * is perfectly fine.  In Cray C90 sizeof(short) == 4,
+ * in Cray T90 sizeof(short) == 8. */
+#define REG_INFTY ((1<<15)-1)
 
 #ifdef REGALIGN
 #  define ARG_VALUE(arg) (arg)
-- 
2.7.4