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 (file)
--- 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 (file)
--- 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)