From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 20 Mar 1998 19:39:28 +0000 (+0200)
Subject: Re: [PATCH] 5.004_63: UNICOS 9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ae6d45f4f8436644475e9431c4305550cbce91c;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] 5.004_63: UNICOS 9

p4raw-id: //depot/perl@859
---

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)