diff options
-rwxr-xr-x | Configure | 2 | ||||
-rw-r--r-- | Porting/config.sh | 4 | ||||
-rw-r--r-- | Porting/config_H | 7 | ||||
-rw-r--r-- | config_h.SH | 5 | ||||
-rw-r--r-- | configure.com | 2 | ||||
-rw-r--r-- | epoc/config.sh | 1 | ||||
-rw-r--r-- | sv.c | 6 | ||||
-rw-r--r-- | uconfig.h | 5 | ||||
-rwxr-xr-x | uconfig.sh | 1 | ||||
-rw-r--r-- | vos/config.alpha.def | 1 | ||||
-rw-r--r-- | vos/config.alpha.h | 5 | ||||
-rw-r--r-- | vos/config.ga.def | 1 | ||||
-rw-r--r-- | vos/config.ga.h | 5 | ||||
-rw-r--r-- | win32/config.bc | 1 | ||||
-rw-r--r-- | win32/config.gc | 1 | ||||
-rw-r--r-- | win32/config.vc | 1 |
16 files changed, 41 insertions, 7 deletions
@@ -20,7 +20,7 @@ # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $ # -# Generated on Fri Jan 12 18:19:36 EET 2001 [metaconfig 3.0 PL70] +# Generated on Fri Jan 12 22:28:01 EET 2001 [metaconfig 3.0 PL70] # (with additional metaconfig patches by perlbug@perl.org) cat >c1$$ <<EOF diff --git a/Porting/config.sh b/Porting/config.sh index 265e04b92d..1f362530ee 100644 --- a/Porting/config.sh +++ b/Porting/config.sh @@ -8,7 +8,7 @@ # Package name : perl5 # Source directory : . -# Configuration time: Fri Jan 12 18:21:55 EET 2001 +# Configuration time: Fri Jan 12 22:32:53 EET 2001 # Configured by : jhi # Target system : osf1 alpha.hut.fi v4.0 878 alpha @@ -62,7 +62,7 @@ ccsymbols='__alpha=1 __LANGUAGE_C__=1 __osf__=1 __unix__=1 _LONGLONG=1 _SYSTYPE_ ccversion='V5.6-082' cf_by='jhi' cf_email='yourname@yourhost.yourplace.com' -cf_time='Fri Jan 12 18:21:55 EET 2001' +cf_time='Fri Jan 12 22:32:53 EET 2001' charsize='1' chgrp='' chmod='' diff --git a/Porting/config_H b/Porting/config_H index da0b0adcca..9f615857c9 100644 --- a/Porting/config_H +++ b/Porting/config_H @@ -17,7 +17,7 @@ /* * Package name : perl5 * Source directory : . - * Configuration time: Fri Jan 12 18:21:55 EET 2001 + * Configuration time: Fri Jan 12 22:32:53 EET 2001 * Configured by : jhi * Target system : osf1 alpha.hut.fi v4.0 878 alpha */ @@ -2814,6 +2814,10 @@ * This symbol defines the format string used for printing a Perl UV * as an unsigned hexadecimal integer in lowercase abcdef. */ +/* UVXf: + * This symbol defines the format string used for printing a Perl UV + * as an unsigned hexadecimal integer in uppercase ABCDEF. + */ /* NVef: * This symbol defines the format string used for printing a Perl NV * using %e-ish floating point format. @@ -2830,6 +2834,7 @@ #define UVuf "lu" /**/ #define UVof "lo" /**/ #define UVxf "lx" /**/ +#define UVXf "lX" /**/ #define NVef "e" /**/ #define NVff "f" /**/ #define NVgf "g" /**/ diff --git a/config_h.SH b/config_h.SH index 292320ad3d..8a3f4dfcf8 100644 --- a/config_h.SH +++ b/config_h.SH @@ -2834,6 +2834,10 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un * This symbol defines the format string used for printing a Perl UV * as an unsigned hexadecimal integer in lowercase abcdef. */ +/* UVXf: + * This symbol defines the format string used for printing a Perl UV + * as an unsigned hexadecimal integer in uppercase ABCDEF. + */ /* NVef: * This symbol defines the format string used for printing a Perl NV * using %e-ish floating point format. @@ -2850,6 +2854,7 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un #define UVuf $uvuformat /**/ #define UVof $uvoformat /**/ #define UVxf $uvxformat /**/ +#define UVXf $uvXUformat /**/ #define NVef $nveformat /**/ #define NVff $nvfformat /**/ #define NVgf $nvgformat /**/ diff --git a/configure.com b/configure.com index 8417cceb82..7a58a2a23f 100644 --- a/configure.com +++ b/configure.com @@ -4785,6 +4785,7 @@ $ ivdformat="""ld""" $ uvuformat="""lu""" $ uvoformat="""lo""" $ uvxformat="""lx""" +$ uvxuformat="""lX""" $! uselongdouble? $ nveformat="""e""" $ nvfformat="""f""" @@ -5440,6 +5441,7 @@ $ WC "uvsize='" + uvsize + "'" $ WC "uvtype='" + uvtype + "'" $ WC "uvuformat='" + uvuformat + "'" $ WC "uvxformat='" + uvxformat + "'" +$ WC "uvxuformat='" + uvxuformat + "'" $ WC "vendorarchexp='" + "'" $ WC "vendorlib_stem='" + "'" $ WC "vendorlibexp='" + "'" diff --git a/epoc/config.sh b/epoc/config.sh index 42da6163a1..36bfc89688 100644 --- a/epoc/config.sh +++ b/epoc/config.sh @@ -805,6 +805,7 @@ ivdformat='"ld"' uvuformat='"lu"' uvoformat='"lo"' uvxformat='"lx"' +uvXUformat='"lX"' uidformat='"hu"' gidformat='"hu"' d_strtold='undef' @@ -1567,7 +1567,7 @@ STATIC int S_sv_2inuv_non_preserve (pTHX_ register SV *sv, I32 numtype) { NV nv = SvNVX(sv); /* Code simpler and had compiler problems if */ UV nv_as_uv = U_V(nv); /* these are not in simple variables. */ - DEBUG_c(PerlIO_printf(Perl_debug_log,"sv_2inuv_non '%s', IV=0x%"UVxf" NV=%g inttype=%"UVxf"\n", SvPVX(sv), SvIVX(sv), nv, (UV)numtype)); + DEBUG_c(PerlIO_printf(Perl_debug_log,"sv_2inuv_non '%s', IV=0x%"UVxf" NV=%g inttype=%"UVXf"\n", SvPVX(sv), SvIVX(sv), nv, (UV)numtype)); if (nv_as_uv <= (UV)IV_MAX) { (void)SvIOKp_on(sv); (void)SvNOKp_on(sv); @@ -1625,7 +1625,7 @@ S_sv_2inuv_non_preserve (pTHX_ register SV *sv, I32 numtype) { #else /* We've just lost integer precision, nothing we could do. */ SvUVX(sv) = nv_as_uv; - DEBUG_c(PerlIO_printf(Perl_debug_log,"sv_2niuv_non UV? '%s', UV=0x%"UVxf" NV=%g U_V(NV)=0x%"UVxf" inttype=%"UVxf"\n", SvPVX(sv), SvIVX(sv), nv, nv_as_uv, (UV)numtype)); + DEBUG_c(PerlIO_printf(Perl_debug_log,"sv_2niuv_non UV? '%s', UV=0x%"UVxf" NV=%g U_V(NV)=0x%"UVxf" inttype=%"UVXf"\n", SvPVX(sv), SvIVX(sv), nv, nv_as_uv, (UV)numtype)); /* UV and NV slots equally valid only if we have casting symmetry. */ if (numtype & IS_NUMBER_NOT_INT) { SvIsUV_on(sv); @@ -1648,7 +1648,7 @@ S_sv_2inuv_non_preserve (pTHX_ register SV *sv, I32 numtype) { STATIC int S_sv_2iuv_non_preserve (pTHX_ register SV *sv, I32 numtype) { - DEBUG_c(PerlIO_printf(Perl_debug_log,"sv_2iuv_non '%s', IV=0x%"UVxf" NV=%g inttype=%"UVxf"\n", SvPVX(sv), SvIVX(sv), SvNVX(sv), (UV)numtype)); + DEBUG_c(PerlIO_printf(Perl_debug_log,"sv_2iuv_non '%s', IV=0x%"UVxf" NV=%g inttype=%"UVXf"\n", SvPVX(sv), SvIVX(sv), SvNVX(sv), (UV)numtype)); if (SvNVX(sv) < (NV)IV_MIN) { (void)SvIOKp_on(sv); (void)SvNOK_on(sv); @@ -2810,6 +2810,10 @@ * This symbol defines the format string used for printing a Perl UV * as an unsigned hexadecimal integer in lowercase abcdef. */ +/* UVXf: + * This symbol defines the format string used for printing a Perl UV + * as an unsigned hexadecimal integer in uppercase ABCDEF. + */ /* NVef: * This symbol defines the format string used for printing a Perl NV * using %e-ish floating point format. @@ -2826,6 +2830,7 @@ #define UVuf "lu" /**/ #define UVof "lo" /**/ #define UVxf "lx" /**/ +#define UVXf "lX" /**/ #define NVef "e" /**/ #define NVff "f" /**/ #define NVgf "g" /**/ diff --git a/uconfig.sh b/uconfig.sh index 05b633f6e7..e97222a6d4 100755 --- a/uconfig.sh +++ b/uconfig.sh @@ -560,6 +560,7 @@ uvsize='4' uvtype='unsigned long' uvuformat='"lu"' uvxformat='"lx"' +uvXUformat='"lX"' versiononly='undef' voidflags=1 xs_apiversion='5.005' diff --git a/vos/config.alpha.def b/vos/config.alpha.def index b5d5323f46..1ec2d9167c 100644 --- a/vos/config.alpha.def +++ b/vos/config.alpha.def @@ -488,6 +488,7 @@ $uvsize='4' $uvtype='unsigned int' $uvuformat='"u"' $uvxformat='"x"' +$uvXUformat='"X"' $vendorarch='' $vendorarchexp='' $vendorlib_stem='' diff --git a/vos/config.alpha.h b/vos/config.alpha.h index 51488ab464..7b21420a6d 100644 --- a/vos/config.alpha.h +++ b/vos/config.alpha.h @@ -2795,6 +2795,10 @@ * This symbol defines the format string used for printing a Perl UV * as an unsigned hexadecimal integer in lowercase abcdef. */ +/* UVXf: + * This symbol defines the format string used for printing a Perl UV + * as an unsigned hexadecimal integer in uppercase ABCDEF. + */ /* NVef: * This symbol defines the format string used for printing a Perl NV * using %e-ish floating point format. @@ -2811,6 +2815,7 @@ #define UVuf "u" /**/ #define UVof "o" /**/ #define UVxf "x" /**/ +#define UVXf "X" /**/ #define NVef "e" /**/ #define NVff "f" /**/ #define NVgf "g" /**/ diff --git a/vos/config.ga.def b/vos/config.ga.def index 51a90a473e..ab57e08832 100644 --- a/vos/config.ga.def +++ b/vos/config.ga.def @@ -488,6 +488,7 @@ $uvsize='4' $uvtype='unsigned int' $uvuformat='"u"' $uvxformat='"x"' +$uvXUformat='"X"' $vendorarch='' $vendorarchexp='' $vendorlib_stem='' diff --git a/vos/config.ga.h b/vos/config.ga.h index 5ba21bb7e3..2a89a1e3bc 100644 --- a/vos/config.ga.h +++ b/vos/config.ga.h @@ -2795,6 +2795,10 @@ * This symbol defines the format string used for printing a Perl UV * as an unsigned hexadecimal integer in lowercase abcdef. */ +/* UVXf: + * This symbol defines the format string used for printing a Perl UV + * as an unsigned hexadecimal integer in uppercase ABCDEF. + */ /* NVef: * This symbol defines the format string used for printing a Perl NV * using %e-ish floating point format. @@ -2811,6 +2815,7 @@ #define UVuf "u" /**/ #define UVof "o" /**/ #define UVxf "x" /**/ +#define UVXf "X" /**/ #define NVef "e" /**/ #define NVff "f" /**/ #define NVgf "g" /**/ diff --git a/win32/config.bc b/win32/config.bc index b535c1ad2d..6e27579320 100644 --- a/win32/config.bc +++ b/win32/config.bc @@ -785,6 +785,7 @@ uvsize='4' uvtype='unsigned long' uvuformat='"lu"' uvxformat='"lx"' +uvXUformat='"lX"' vendorarch='' vendorarchexp='' vendorbin='' diff --git a/win32/config.gc b/win32/config.gc index b16032fb94..14a112e1d4 100644 --- a/win32/config.gc +++ b/win32/config.gc @@ -785,6 +785,7 @@ uvsize='4' uvtype='unsigned long' uvuformat='"lu"' uvxformat='"lx"' +uvXUformat='"lX"' vendorarch='' vendorarchexp='' vendorbin='' diff --git a/win32/config.vc b/win32/config.vc index 34c54db142..969b9d4bb8 100644 --- a/win32/config.vc +++ b/win32/config.vc @@ -785,6 +785,7 @@ uvsize='4' uvtype='unsigned long' uvuformat='"lu"' uvxformat='"lx"' +uvXUformat='"lX"' vendorarch='' vendorarchexp='' vendorbin='' |