perl 5.003_06: perl.h
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Mon, 30 Sep 1996 05:13:28 +0000 (01:13 -0400)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Mon, 30 Sep 1996 05:13:28 +0000 (01:13 -0400)
Date: Sat, 21 Sep 1996 21:33:15 -0400 (EDT)
From: Kenneth Albanowski <kjahds@kjahds.com>
Subject: Full LONG_MAX & co. patch over 5.003_05

This patch contains the changes I've collected for the various _MAX issues
since 5.003_05. No patches issued between 5.003_05 and this one should be
applied, use this one instead.

The effect is to remove the CHAR_* and I8_* constants (which are
ambiguous) and to explicitly cast all of the constants.

Date: Mon, 30 Sep 1996 01:13:28 -0400
From: Spider Boardman <spider@Orb.Nashua.NH.US>
Subject: Re: pre extending hash? - need speed

The patch below (which is relative to perl5.001l) implements
"keys %hash = 50_000;" (or other integer-evaluable sizes) for
pre-sizing hashes.  I've only moved the patch forward from
when I first did it.  I'm sure the code in hv_ksplit could be
improved.

Revert from Perl_malloc to Mymalloc for binary compatibility with
5.003.

Date: Mon, 7 Oct 1996 22:03:00 +0300
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: LC_COLLATE.

Big patch to add, document, and test LC_COLLATE support.

perl.h

diff --git a/perl.h b/perl.h
index 02a55f2..7b2842e 100644 (file)
--- a/perl.h
+++ b/perl.h
 #include <locale.h>
 #endif
 
 #include <locale.h>
 #endif
 
+EXT int lc_collate_active;
+
 #ifdef METHOD  /* Defined by OSF/1 v3.0 by ctype.h */
 #undef METHOD
 #endif
 #ifdef METHOD  /* Defined by OSF/1 v3.0 by ctype.h */
 #undef METHOD
 #endif
 */
 #ifdef MYMALLOC
 #   ifdef HIDEMYMALLOC
 */
 #ifdef MYMALLOC
 #   ifdef HIDEMYMALLOC
-#      define malloc Perl_malloc
-#      define realloc Perl_realloc
-#      define free Perl_free
-#      define calloc Perl_calloc
+#      define malloc Mymalloc
+#      define realloc Myrealloc
+#      define free Myfree
+#      define calloc Mycalloc
 #   endif
 #   define safemalloc malloc
 #   define saferealloc realloc
 #   endif
 #   define safemalloc malloc
 #   define saferealloc realloc
 #endif
 #endif
 
 #endif
 #endif
 
-#ifdef CHAR_MAX
-#  define PERL_CHAR_MAX CHAR_MAX
-#else
-#  ifdef MAXCHAR    /* Often used in <values.h> */
-#    define PERL_CHAR_MAX MAXCHAR
-#  else
-#    define PERL_CHAR_MAX        ((char) ((~(unsigned char)0) >> 1))
-#  endif
-#endif
+/*
+ * Try to figure out max and min values for the integral types.  THE CORRECT
+ * SOLUTION TO THIS MESS: ADAPT enquire.c FROM GCC INTO CONFIGURE.  The
+ * following hacks are used if neither limits.h or values.h provide them:
+ * U<TYPE>_MAX: for types >= int: ~(unsigned TYPE)0
+ *              for types <  int:  (unsigned TYPE)~(unsigned)0
+ *     The argument to ~ must be unsigned so that later signed->unsigned
+ *     conversion can't modify the value's bit pattern (e.g. -0 -> +0),
+ *     and it must not be smaller than int because ~ does integral promotion.
+ * <type>_MAX: (<type>) (U<type>_MAX >> 1)
+ * <type>_MIN: -<type>_MAX - <is_twos_complement_architecture: (3 & -1) == 3>.
+ *     The latter is a hack which happens to work on some machines but
+ *     does *not* catch any random system, or things like integer types
+ *     with NaN if that is possible.
+ *
+ * All of the types are explicitly cast to prevent accidental loss of
+ * numeric range, and in the hope that they will be less likely to confuse
+ * over-eager optimizers.
+ *
+ */
 
 
-#ifdef CHAR_MIN
-#  define PERL_CHAR_MIN CHAR_MIN
+#define PERL_UCHAR_MIN ((unsigned char)0)
+
+#ifdef UCHAR_MAX
+#  define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
 #else
 #else
-#  ifdef MINCHAR
-#    define PERL_CHAR_MIN MINCHAR
+#  ifdef MAXUCHAR
+#    define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
 #  else
 #  else
-#    define PERL_CHAR_MIN        (-PERL_CHAR_MAX - ((3 & -1) == 3))
+#    define PERL_UCHAR_MAX       ((unsigned char)~(unsigned)0)
 #  endif
 #endif
 #  endif
 #endif
+/*
+ * CHAR_MIN and CHAR_MAX are not included here, as the (char) type may be
+ * ambiguous. It may be equivalent to (signed char) or (unsigned char)
+ * depending on local options. Until Configure detects this (or at least
+ * detects whether the "signed" keyword is available) the CHAR ranges
+ * will not be included. UCHAR functions normally.
+ *                                                           - kja
+ */
 
 
-#ifdef UCHAR_MAX
-#  define PERL_UCHAR_MAX UCHAR_MAX
+#define PERL_USHORT_MIN ((unsigned short)0)
+
+#ifdef USHORT_MAX
+#  define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
 #else
 #else
-#  ifdef MAXUCHAR
-#    define PERL_UCHAR_MAX MAXUCHAR
+#  ifdef MAXUSHORT
+#    define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
 #  else
 #  else
-#    define PERL_UCHAR_MAX       (~(unsigned char)0)
+#    define PERL_USHORT_MAX       ((unsigned short)~(unsigned)0)
 #  endif
 #endif
 
 #  endif
 #endif
 
-#define PERL_UCHAR_MIN 0
-
 #ifdef SHORT_MAX
 #ifdef SHORT_MAX
-#  define PERL_SHORT_MAX SHORT_MAX
+#  define PERL_SHORT_MAX ((short)SHORT_MAX)
 #else
 #  ifdef MAXSHORT    /* Often used in <values.h> */
 #else
 #  ifdef MAXSHORT    /* Often used in <values.h> */
-#    define PERL_SHORT_MAX MAXSHORT
+#    define PERL_SHORT_MAX ((short)MAXSHORT)
 #  else
 #  else
-#    define PERL_SHORT_MAX        ((short) ((~(unsigned short)0) >> 1))
+#    define PERL_SHORT_MAX      ((short) (PERL_USHORT_MAX >> 1))
 #  endif
 #endif
 
 #ifdef SHORT_MIN
 #  endif
 #endif
 
 #ifdef SHORT_MIN
-#  define PERL_SHORT_MIN SHORT_MIN
+#  define PERL_SHORT_MIN ((short)SHORT_MIN)
 #else
 #  ifdef MINSHORT
 #else
 #  ifdef MINSHORT
-#    define PERL_SHORT_MIN MINSHORT
+#    define PERL_SHORT_MIN ((short)MINSHORT)
 #  else
 #    define PERL_SHORT_MIN        (-PERL_SHORT_MAX - ((3 & -1) == 3))
 #  endif
 #endif
 
 #  else
 #    define PERL_SHORT_MIN        (-PERL_SHORT_MAX - ((3 & -1) == 3))
 #  endif
 #endif
 
-#ifdef USHORT_MAX
-#  define PERL_USHORT_MAX USHORT_MAX
+#ifdef UINT_MAX
+#  define PERL_UINT_MAX ((unsigned int)UINT_MAX)
 #else
 #else
-#  ifdef MAXUSHORT
-#    define PERL_USHORT_MAX MAXUSHORT
+#  ifdef MAXUINT
+#    define PERL_UINT_MAX ((unsigned int)MAXUINT)
 #  else
 #  else
-#    define PERL_USHORT_MAX       (~(unsigned short)0)
+#    define PERL_UINT_MAX       (~(unsigned int)0)
 #  endif
 #endif
 
 #  endif
 #endif
 
-#define PERL_USHORT_MIN 0
+#define PERL_UINT_MIN ((unsigned int)0)
 
 #ifdef INT_MAX
 
 #ifdef INT_MAX
-#  define PERL_INT_MAX INT_MAX
+#  define PERL_INT_MAX ((int)INT_MAX)
 #else
 #  ifdef MAXINT    /* Often used in <values.h> */
 #else
 #  ifdef MAXINT    /* Often used in <values.h> */
-#    define PERL_INT_MAX MAXINT
+#    define PERL_INT_MAX ((int)MAXINT)
 #  else
 #  else
-#    define PERL_INT_MAX        ((int) ((~(unsigned int)0) >> 1))
+#    define PERL_INT_MAX        ((int)(PERL_UINT_MAX >> 1))
 #  endif
 #endif
 
 #ifdef INT_MIN
 #  endif
 #endif
 
 #ifdef INT_MIN
-#  define PERL_INT_MIN INT_MIN
+#  define PERL_INT_MIN ((int)INT_MIN)
 #else
 #  ifdef MININT
 #else
 #  ifdef MININT
-#    define PERL_INT_MIN MININT
+#    define PERL_INT_MIN ((int)MININT)
 #  else
 #    define PERL_INT_MIN        (-PERL_INT_MAX - ((3 & -1) == 3))
 #  endif
 #endif
 
 #  else
 #    define PERL_INT_MIN        (-PERL_INT_MAX - ((3 & -1) == 3))
 #  endif
 #endif
 
-#ifdef UINT_MAX
-#  define PERL_UINT_MAX UINT_MAX
+#ifdef ULONG_MAX
+#  define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
 #else
 #else
-#  ifdef MAXUINT
-#    define PERL_UINT_MAX MAXUINT
+#  ifdef MAXULONG
+#    define PERL_ULONG_MAX ((unsigned long)MAXULONG)
 #  else
 #  else
-#    define PERL_UINT_MAX       (~(unsigned int)0)
+#    define PERL_ULONG_MAX       (~(unsigned long)0)
 #  endif
 #endif
 
 #  endif
 #endif
 
-#define PERL_UINT_MIN 0
+#define PERL_ULONG_MIN ((unsigned long)0L)
 
 #ifdef LONG_MAX
 
 #ifdef LONG_MAX
-#  define PERL_LONG_MAX LONG_MAX
+#  define PERL_LONG_MAX ((long)LONG_MAX)
 #else
 #  ifdef MAXLONG    /* Often used in <values.h> */
 #else
 #  ifdef MAXLONG    /* Often used in <values.h> */
-#    define PERL_LONG_MAX MAXLONG
+#    define PERL_LONG_MAX ((long)MAXLONG)
 #  else
 #  else
-#    define PERL_LONG_MAX        ((long) ((~(unsigned long)0) >> 1))
+#    define PERL_LONG_MAX        ((long) (PERL_ULONG_MAX >> 1))
 #  endif
 #endif
 
 #ifdef LONG_MIN
 #  endif
 #endif
 
 #ifdef LONG_MIN
-#  define PERL_LONG_MIN LONG_MIN
+#  define PERL_LONG_MIN ((long)LONG_MIN)
 #else
 #  ifdef MINLONG
 #else
 #  ifdef MINLONG
-#    define PERL_LONG_MIN MINLONG
+#    define PERL_LONG_MIN ((long)MINLONG)
 #  else
 #    define PERL_LONG_MIN        (-PERL_LONG_MAX - ((3 & -1) == 3))
 #  endif
 #endif
 
 #  else
 #    define PERL_LONG_MIN        (-PERL_LONG_MAX - ((3 & -1) == 3))
 #  endif
 #endif
 
-#ifdef ULONG_MAX
-#  define PERL_ULONG_MAX ULONG_MAX
-#else
-#  ifdef MAXULONG
-#    define PERL_ULONG_MAX MAXULONG
+#ifdef HAS_QUAD
+
+#  ifdef UQUAD_MAX
+#    define PERL_UQUAD_MAX ((UV)UQUAD_MAX)
 #  else
 #  else
-#    define PERL_ULONG_MAX       (~(unsigned long)0)
+#    define PERL_UQUAD_MAX     (~(UV)0)
 #  endif
 #  endif
-#endif
 
 
-#define PERL_ULONG_MIN 0L
+#  define PERL_UQUAD_MIN ((UV)0)
 
 
-#ifdef HAS_QUAD
 #  ifdef QUAD_MAX
 #  ifdef QUAD_MAX
-#    define PERL_QUAD_MAX QUAD_MAX
+#    define PERL_QUAD_MAX ((IV)QUAD_MAX)
 #  else
 #  else
-#    define PERL_QUAD_MAX      ((IV) ((~(UV)0) >> 1))
+#    define PERL_QUAD_MAX      ((IV) (PERL_UQUAD_MAX >> 1))
 #  endif
 
 #  ifdef QUAD_MIN
 #  endif
 
 #  ifdef QUAD_MIN
-#    define PERL_QUAD_MIN QUAD_MIN
+#    define PERL_QUAD_MIN ((IV)QUAD_MIN)
 #  else
 #    define PERL_QUAD_MIN      (-PERL_QUAD_MAX - ((3 & -1) == 3))
 #  endif
 
 #  else
 #    define PERL_QUAD_MIN      (-PERL_QUAD_MAX - ((3 & -1) == 3))
 #  endif
 
-#  ifdef UQUAD_MAX
-#    define PERL_UQUAD_MAX UQUAD_MAX
-#  else
-#    define PERL_UQUAD_MAX     (~(UV)0)
-#  endif
-
-#  define PERL_UQUAD_MIN 0
 #endif
 
 typedef MEM_SIZE STRLEN;
 #endif
 
 typedef MEM_SIZE STRLEN;
@@ -1765,6 +1779,8 @@ EXT MGVTBL vtbl_glob =    {magic_getglob,
                                        0,      0,      0};
 EXT MGVTBL vtbl_mglob =        {0,     magic_setmglob,
                                        0,      0,      0};
                                        0,      0,      0};
 EXT MGVTBL vtbl_mglob =        {0,     magic_setmglob,
                                        0,      0,      0};
+EXT MGVTBL vtbl_nkeys =        {0,     magic_setnkeys,
+                                       0,      0,      0};
 EXT MGVTBL vtbl_taint =        {magic_gettaint,magic_settaint,
                                        0,      0,      0};
 EXT MGVTBL vtbl_substr =       {0,     magic_setsubstr,
 EXT MGVTBL vtbl_taint =        {magic_gettaint,magic_settaint,
                                        0,      0,      0};
 EXT MGVTBL vtbl_substr =       {0,     magic_setsubstr,
@@ -1801,6 +1817,7 @@ EXT MGVTBL vtbl_isaelem;
 EXT MGVTBL vtbl_arylen;
 EXT MGVTBL vtbl_glob;
 EXT MGVTBL vtbl_mglob;
 EXT MGVTBL vtbl_arylen;
 EXT MGVTBL vtbl_glob;
 EXT MGVTBL vtbl_mglob;
+EXT MGVTBL vtbl_nkeys;
 EXT MGVTBL vtbl_taint;
 EXT MGVTBL vtbl_substr;
 EXT MGVTBL vtbl_vec;
 EXT MGVTBL vtbl_taint;
 EXT MGVTBL vtbl_substr;
 EXT MGVTBL vtbl_vec;