This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH 5.004_66] REG_INFTY patch corrected
authorIlya Zakharevich <ilya@math.berkeley.edu>
Tue, 9 Jun 1998 23:02:52 +0000 (19:02 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 10 Jun 1998 07:35:29 +0000 (07:35 +0000)
Message-Id: <199806100302.XAA04958@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1109

regcomp.h

index f9e8c2e..bc7977d 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -271,10 +271,9 @@ struct regnode_2 {
 
 #endif 
 
-/* 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)
+#ifndef
+#  define REG_INFTY I16_MAX
+#endif
 
 #ifdef REGALIGN
 #  define ARG_VALUE(arg) (arg)