Regen Configure.

p4raw-id: //depot/cfgperl@4592

diff --git a/Configure b/Configure
index b634e2d..b448793 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Sun Nov 14 17:26:56 EET 1999 [metaconfig 3.0 PL70]
+# Generated on Tue Nov 16 23:04:27 EET 1999 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.com)
 
 cat >/tmp/c1$$ <<EOF

diff --git a/config_h.SH b/config_h.SH
index 7504ca5..7e0f25a 100644 (file)
--- a/config_h.SH
+++ b/config_h.SH
@@ -1000,21 +1000,13 @@ sed <<!GROK!THIS! >config.h -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un-
 
 /* HAS_QUAD:
  *     This symbol, if defined, tells that there's a 64-bit integer type,
- *     Quad_t.
- */
-/* Quad_t:
- *     This symbol holds the type used for 64-bit integers.
- *     It can be int, long, long long, int64_t etc...
- */
-/* Uquad_t:
- *     This symbol holds the type used for unsigned 64-bit integers.
- *     It can be unsigned int, unsigned long, unsigned long long,
- *     uint64_t etc...
+ *     Quad_t, and its unsigned counterpar, Uquad_t. QUADKIND will be one
+ *     of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, or QUAD_IS_INT64_T.
  */
 #$d_quad HAS_QUAD      /**/
-#$d_quad Quad_t $quadtype      /**/
-#$d_quad Uquad_t $uquadtype    /**/
 #ifdef HAS_QUAD
+#   define Quad_t $quadtype    /**/
+#   define Uquad_t $uquadtype  /**/
 #   define QUADKIND $quadkind  /**/
 #   define QUAD_IS_INT 1
 #   define QUAD_IS_LONG        2

diff --git a/pp.c b/pp.c
index e7c966f..f33857c 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -4843,7 +4843,7 @@ PP(pp_pack)
                sv_catpvn(cat, (char*)&aquad, sizeof(Quad_t));
            }
            break;
-#endif /* Quad_t */
+#endif
        case 'P':
            len = 1;            /* assume SV is correct length */
            /* FALL THROUGH */

diff --git a/pp.h b/pp.h
index 2ff6f5e..ec701f3 100644 (file)
--- a/pp.h
+++ b/pp.h
@@ -65,7 +65,7 @@
 #define POPu           ((UV)SvUVx(POPs))
 #define POPl           ((long)SvIVx(POPs))
 #define POPul          ((unsigned long)SvIVx(POPs))
-#ifdef Quad_t
+#ifdef HAS_QUAD
 #define POPq           ((Quad_t)SvIVx(POPs))
 #define POPuq          ((Uquad_t)SvUVx(POPs))
 #endif
@@ -78,7 +78,7 @@
 #define TOPu           ((UV)SvUV(TOPs))
 #define TOPl           ((long)SvIV(TOPs))
 #define TOPul          ((unsigned long)SvUV(TOPs))
-#ifdef Quad_t
+#ifdef HAS_QUAD
 #define TOPq           ((Quad_t)SvIV(TOPs))
 #define TOPuq          ((Uquad_t)SvUV(TOPs))
 #endif
@@ -125,7 +125,7 @@
 #define dPOPiv         IV value = POPi
 #define dTOPuv         UV value = TOPu
 #define dPOPuv         UV value = POPu
-#ifdef Quad_t
+#ifdef HAS_QUAD
 #define dTOPqv         Quad_t value = TOPu
 #define dPOPqv         Quad_t value = POPu
 #define dTOPuqv                Uquad_t value = TOPuq

diff --git a/vms/subconfigure.com b/vms/subconfigure.com
index c9703c2..79fa00f 100644 (file)
--- a/vms/subconfigure.com
+++ b/vms/subconfigure.com
@@ -63,6 +63,15 @@ $ myname = myhostname
 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
 $!
 $! ##ADD NEW CONSTANTS HERE##
+$ perl_d_fs_data_s = "undef"
+$ perl_d_getmnt = "undef"
+$ perl_d_sqrtl = "define"
+$ perl_d_statfs_f_flags = "undef"
+$ perl_d_statfs_s = "undef"
+$ perl_d_ustat = "undef"
+$ perl_i_sysstatfs = "undef"
+$ perl_i_sysvfs = "undef"
+$ perl_i_ustat = "undef"
 $ perl_d_llseek="undef"
 $ perl_d_madvise="undef"
 $ perl_selectminbits=32
@@ -126,10 +135,12 @@ $ THEN
 $   perl_use64bits = "define"
 $   perl_uselargefiles = "define"
 $   perl_uselongdouble = "define"
+$   perl_usemorebits = "define"
 $ ELSE
 $   perl_use64bits = "undef"
 $   perl_uselargefiles = "undef"
 $   perl_uselongdouble = "undef"
+$   perl_usemorebits = "undef"
 $ ENDIF
 $ perl_d_drand48proto = "define"
 $ perl_libpth="/sys$share /sys$library"
@@ -435,6 +446,9 @@ $   perl_sPRId64 = """Ld"""
 $   perl_sPRIu64 = """Lu"""
 $   perl_sPRIo64 = """Lo"""
 $   perl_sPRIx64 = """Lx"""
+$   perl_d_quad = "define"
+$   perl_quadtype = "long long"
+$   perl_uquadtype = "unsigned long long"
 $ ELSE
 $   perl_d_PRIfldbl = "undef"
 $   perl_d_PRIgldbl = "undef"
@@ -448,6 +462,7 @@ $   perl_sPRId64 = ""
 $   perl_sPRIu64 = ""
 $   perl_sPRIo64 = ""
 $   perl_sPRIx64 = ""
+$   perl_d_quad = "undef"
 $ ENDIF
 $!
 $!
@@ -3574,8 +3589,24 @@ $ WC "sPRIu64='" + perl_sPRIu64 + "'"
 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
 $ WC "d_llseek='" + perl_d_llseek + "'"
-$ WC "d_uselargefiles='" + perl_d_uselargefiles + "'"
-$ WC "d_uselongdouble='" + perl_d_uselongdouble + "'"
+$ WC "d_uselargefiles='" + perl_uselargefiles + "'"
+$ WC "d_uselongdouble='" + perl_uselongdouble + "'"
+$ WC "d_usemorebits='" + perl_usemorebits + "'"
+$ WC "d_quad='" + perl_d_quad + "'"
+$ if (use_64bit .eqs. "Y")
+$ THEN
+$   WC "quadtype='" + perl_quadtype + "'" 
+$   WC "uquadtype='" + perl_uquadtype + "'" 
+$ ENDIF
+$ WC "d_fs_data_s='" + perl_d_fs_data_s + "'" 
+$ WC "d_getmnt='" + perl_d_getmnt + "'"
+$ WC "d_sqrtl='" + perl_d_sqrtl + "'"
+$ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
+$ WC "d_statfs_s='" + perl_d_statfs_s + "'"
+$ WC "d_ustat='" + perl_d_ustat + "'"
+$ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
+$ WC "i_sysvfs='" + perl_i_sysvfs + "'"
+$ WC "i_ustat='" + perl_i_ustat + "'"
 $!
 $! ##WRITE NEW CONSTANTS HERE##
 $!