summaryrefslogtreecommitdiff
path: root/regcomp.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1998-03-20 21:39:28 +0200
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1998-04-02 16:16:26 +0000
commit9ae6d45f4f8436644475e9431c4305550cbce91c (patch)
tree34f5b94d87390edb8a4041d47b4b178b13dd96b1 /regcomp.h
parent1930e9396af9d9fc0058435c827d67f591aa4e03 (diff)
downloadperl-9ae6d45f4f8436644475e9431c4305550cbce91c.tar.gz
Re: [PATCH] 5.004_63: UNICOS 9
p4raw-id: //depot/perl@859
Diffstat (limited to 'regcomp.h')
-rw-r--r--regcomp.h5
1 files changed, 4 insertions, 1 deletions
diff --git a/regcomp.h b/regcomp.h
index ecb1d7bdbd..4b86a8d781 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)