Change 15290 by jhi@alpha on 2002/03/18 13:52:15
Subject: d_nv_preserves_uv_bits
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Thu, 14 Mar 2002 22:24:19 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/Configure#427 edit
.... //depot/perl/Porting/Glossary#123 edit
.... //depot/perl/Porting/config.sh#121 edit
.... //depot/perl/config_h.SH#248 edit
.... //depot/perl/configure.com#145 edit
.... //depot/perl/epoc/config.sh#67 edit
.... //depot/perl/pod/perltoc.pod#146 edit
.... //depot/perl/t/op/pack.t#69 edit
.... //depot/perl/uconfig.sh#50 edit
.... //depot/perl/vos/config.alpha.def#37 edit
.... //depot/perl/vos/config.ga.def#37 edit
.... //depot/perl/win32/config.bc#123 edit
.... //depot/perl/win32/config.gc#122 edit
.... //depot/perl/win32/config.vc#129 edit
.... //depot/perl/win32/config.win64#6 edit
Differences ...
==== //depot/perl/Configure#427 (xtext) ====
Index: perl/Configure
--- perl/Configure.~1~ Mon Mar 18 07:00:05 2002
+++ perl/Configure Mon Mar 18 07:00:05 2002
@@ -20,7 +20,7 @@
# $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
#
-# Generated on Sat Mar 16 21:39:24 EET 2002 [metaconfig 3.0 PL70]
+# Generated on Mon Mar 18 16:52:30 EET 2002 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by [EMAIL PROTECTED])
cat >c1$$ <<EOF
@@ -965,7 +965,6 @@
perladmin=''
perlpath=''
d_nv_preserves_uv=''
-d_nv_preserves_uv_bits=''
i16size=''
i16type=''
i32size=''
@@ -976,6 +975,7 @@
i8type=''
ivsize=''
ivtype=''
+nv_preserves_uv_bits=''
nvsize=''
nvtype=''
u16size=''
@@ -13520,18 +13520,18 @@
d_nv_preserves_uv="$undef"
if eval $compile; then
- d_nv_preserves_uv_bits="`$run ./try`"
+ nv_preserves_uv_bits="`$run ./try`"
fi
-case "$d_nv_preserves_uv_bits" in
+case "$nv_preserves_uv_bits" in
\-[1-9]*)
- d_nv_preserves_uv_bits=`expr 0 - $d_nv_preserves_uv_bits`
- $echo "Your NVs can preserve all $d_nv_preserves_uv_bits bits of your UVs."
2>&1
+ nv_preserves_uv_bits=`expr 0 - $nv_preserves_uv_bits`
+ $echo "Your NVs can preserve all $nv_preserves_uv_bits bits of your UVs." 2>&1
d_nv_preserves_uv="$define"
;;
-[1-9]*) $echo "Your NVs can preserve only $d_nv_preserves_uv_bits bits of your
UVs." 2>&1
+[1-9]*) $echo "Your NVs can preserve only $nv_preserves_uv_bits bits of your
+UVs." 2>&1
d_nv_preserves_uv="$undef" ;;
*) $echo "Can't figure out how many bits your NVs preserve." 2>&1
- d_nv_preserves_uv_bits="$undef" ;;
+ nv_preserves_uv_bits="$undef" ;;
esac
$rm -f try.* try
@@ -19737,7 +19737,6 @@
d_nice='$d_nice'
d_nl_langinfo='$d_nl_langinfo'
d_nv_preserves_uv='$d_nv_preserves_uv'
-d_nv_preserves_uv_bits='$d_nv_preserves_uv_bits'
d_off64_t='$d_off64_t'
d_old_pthread_create_joinable='$d_old_pthread_create_joinable'
d_oldpthreads='$d_oldpthreads'
@@ -20180,6 +20179,7 @@
nvEUformat='$nvEUformat'
nvFUformat='$nvFUformat'
nvGUformat='$nvGUformat'
+nv_preserves_uv_bits='$nv_preserves_uv_bits'
nveformat='$nveformat'
nvfformat='$nvfformat'
nvgformat='$nvgformat'
==== //depot/perl/Porting/Glossary#123 (text) ====
Index: perl/Porting/Glossary
--- perl/Porting/Glossary.~1~ Mon Mar 18 07:00:05 2002
+++ perl/Porting/Glossary Mon Mar 18 07:00:05 2002
@@ -1315,7 +1315,7 @@
This variable indicates whether a variable of type nvtype
can preserve all the bits a variable of type uvtype.
-d_nv_preserves_uv_bits (perlxv.U):
+nv_preserves_uv_bits (perlxv.U):
This variable indicates how many of bits type uvtype
a variable nvtype can preserve.
==== //depot/perl/Porting/config.sh#121 (text) ====
Index: perl/Porting/config.sh
--- perl/Porting/config.sh.~1~ Mon Mar 18 07:00:05 2002
+++ perl/Porting/config.sh Mon Mar 18 07:00:05 2002
@@ -308,7 +308,7 @@
d_nice='define'
d_nl_langinfo='define'
d_nv_preserves_uv='undef'
-d_nv_preserves_uv_bits='53'
+nv_preserves_uv_bits='53'
d_off64_t='undef'
d_old_pthread_create_joinable='undef'
d_oldpthreads='undef'
==== //depot/perl/config_h.SH#248 (text) ====
Index: perl/config_h.SH
--- perl/config_h.SH.~1~ Mon Mar 18 07:00:05 2002
+++ perl/config_h.SH Mon Mar 18 07:00:05 2002
@@ -3168,7 +3168,7 @@
#endif
#define NVSIZE $nvsize /**/
#$d_nv_preserves_uv NV_PRESERVES_UV
-#define NV_PRESERVES_UV_BITS $d_nv_preserves_uv_bits
+#define NV_PRESERVES_UV_BITS $nv_preserves_uv_bits
/* IVdf:
* This symbol defines the format string used for printing a Perl IV
==== //depot/perl/configure.com#145 (text) ====
Index: perl/configure.com
--- perl/configure.com.~1~ Mon Mar 18 07:00:05 2002
+++ perl/configure.com Mon Mar 18 07:00:05 2002
@@ -4916,7 +4916,7 @@
$ THEN
$ d_nv_preserves_uv = "define"
$ echo "Yes, they can."
-$ d_nv_preserves_uv_bits = F$STRING(F$INTEGER(uvsize) * 8)
+$ nv_preserves_uv_bits = F$STRING(F$INTEGER(uvsize) * 8)
$ ELSE
$ d_nv_preserves_uv = "undef"
$ echo "No, they can't."
@@ -4940,7 +4940,7 @@
$ WS "}"
$ CS
$ GOSUB compile
-$ d_nv_preserves_uv_bits = tmp
+$ nv_preserves_uv_bits = tmp
$ ENDIF
$!
$ echo4 "Checking whether your kill() uses SYS$FORCEX..."
@@ -5275,7 +5275,7 @@
$ WC "d_nice='define'"
$ WC "d_nl_langinfo='" + d_nl_langinfo + "'"
$ WC "d_nv_preserves_uv='" + d_nv_preserves_uv + "'"
-$ WC "d_nv_preserves_uv_bits='" + d_nv_preserves_uv_bits + "'"
+$ WC "nv_preserves_uv_bits='" + nv_preserves_uv_bits + "'"
$ WC "d_off64_t='" + d_off64_t + "'"
$ WC "d_old_pthread_create_joinable='" + d_old_pthread_create_joinable + "'"
$ WC "d_oldarchlib='define'"
==== //depot/perl/epoc/config.sh#67 (text) ====
Index: perl/epoc/config.sh
--- perl/epoc/config.sh.~1~ Mon Mar 18 07:00:05 2002
+++ perl/epoc/config.sh Mon Mar 18 07:00:05 2002
@@ -949,7 +949,7 @@
d_strtoll='undef'
d_strtouq='undef'
d_nv_preserves_uv='define'
-d_nv_preserves_uv_bits='32'
+nv_preserves_uv_bits='32'
use5005threads='undef'
useithreads='undef'
inc_version_list=' '
==== //depot/perl/pod/perltoc.pod#146 (text+w) ====
Index: perl/pod/perltoc.pod
--- perl/pod/perltoc.pod.~1~ Mon Mar 18 07:00:05 2002
+++ perl/pod/perltoc.pod Mon Mar 18 07:00:05 2002
@@ -10416,7 +10416,7 @@
C<d_msg_dontroute>, C<d_msg_oob>, C<d_msg_peek>, C<d_msg_proxy>,
C<d_msgctl>, C<d_msgget>, C<d_msghdr_s>, C<d_msgrcv>, C<d_msgsnd>,
C<d_msync>, C<d_munmap>, C<d_mymalloc>, C<d_nice>, C<d_nl_langinfo>,
-C<d_nv_preserves_uv>, C<d_nv_preserves_uv_bits>, C<d_off64_t>,
+C<d_nv_preserves_uv>, C<nv_preserves_uv_bits>, C<d_off64_t>,
C<d_old_pthread_create_joinable>, C<d_oldpthreads>, C<d_oldsock>,
C<d_open3>, C<d_pathconf>, C<d_pause>, C<d_perl_otherlibdirs>,
C<d_phostname>, C<d_pipe>, C<d_poll>, C<d_portable>, C<d_PRId64>,
==== //depot/perl/t/op/pack.t#69 (xtext) ====
Index: perl/t/op/pack.t
--- perl/t/op/pack.t.~1~ Mon Mar 18 07:00:05 2002
+++ perl/t/op/pack.t Mon Mar 18 07:00:05 2002
@@ -336,7 +336,7 @@
# UVs (in which case ~0 is NV, ~0-1 will be the same NV) then we can't
# correctly in perl calculate UV totals for long checksums, as pp_unpack
# is using UV maths, and we've only got NVs.
- $skip_if_longer_than = $Config{d_nv_preserves_uv_bits};
+ $skip_if_longer_than = $Config{nv_preserves_uv_bits};
}
foreach ('', 1, 2, 3, 15, 16, 17, 31, 32, 33, 53, 54, 63, 64, 65) {
==== //depot/perl/uconfig.sh#50 (xtext) ====
Index: perl/uconfig.sh
--- perl/uconfig.sh.~1~ Mon Mar 18 07:00:05 2002
+++ perl/uconfig.sh Mon Mar 18 07:00:05 2002
@@ -239,7 +239,7 @@
d_nice='undef'
d_nl_langinfo='undef'
d_nv_preserves_uv='undef'
-d_nv_preserves_uv_bits='0'
+nv_preserves_uv_bits='0'
d_off64_t='undef'
d_old_pthread_create_joinable='undef'
d_oldpthreads='undef'
==== //depot/perl/vos/config.alpha.def#37 (text) ====
Index: perl/vos/config.alpha.def
--- perl/vos/config.alpha.def.~1~ Mon Mar 18 07:00:05 2002
+++ perl/vos/config.alpha.def Mon Mar 18 07:00:05 2002
@@ -219,7 +219,7 @@
$d_nice='undef'
$d_nl_langinfo='undef'
$d_nv_preserves_uv='define'
-$d_nv_preserves_uv_bits='32'
+$nv_preserves_uv_bits='32'
$d_off64_t='undef'
$d_old_pthread_create_joinable='undef'
$d_oldpthreads='undef'
==== //depot/perl/vos/config.ga.def#37 (text) ====
Index: perl/vos/config.ga.def
--- perl/vos/config.ga.def.~1~ Mon Mar 18 07:00:05 2002
+++ perl/vos/config.ga.def Mon Mar 18 07:00:05 2002
@@ -219,7 +219,7 @@
$d_nice='undef'
$d_nl_langinfo='undef'
$d_nv_preserves_uv='define'
-$d_nv_preserves_uv_bits='32'
+$nv_preserves_uv_bits='32'
$d_off64_t='undef'
$d_old_pthread_create_joinable='undef'
$d_oldpthreads='undef'
==== //depot/perl/win32/config.bc#123 (text) ====
Index: perl/win32/config.bc
--- perl/win32/config.bc.~1~ Mon Mar 18 07:00:05 2002
+++ perl/win32/config.bc Mon Mar 18 07:00:05 2002
@@ -292,7 +292,7 @@
d_nice='undef'
d_nl_langinfo='undef'
d_nv_preserves_uv='define'
-d_nv_preserves_uv_bits='32'
+nv_preserves_uv_bits='32'
d_off64_t='undef'
d_old_pthread_create_joinable='undef'
d_oldpthreads='undef'
==== //depot/perl/win32/config.gc#122 (text) ====
Index: perl/win32/config.gc
--- perl/win32/config.gc.~1~ Mon Mar 18 07:00:05 2002
+++ perl/win32/config.gc Mon Mar 18 07:00:05 2002
@@ -354,7 +354,7 @@
d_nice='undef'
d_nl_langinfo='undef'
d_nv_preserves_uv='define'
-d_nv_preserves_uv_bits='32'
+nv_preserves_uv_bits='32'
d_off64_t='undef'
d_old_pthread_create_joinable='undef'
d_oldpthreads='undef'
==== //depot/perl/win32/config.vc#129 (text) ====
Index: perl/win32/config.vc
--- perl/win32/config.vc.~1~ Mon Mar 18 07:00:05 2002
+++ perl/win32/config.vc Mon Mar 18 07:00:05 2002
@@ -292,7 +292,7 @@
d_nice='undef'
d_nl_langinfo='undef'
d_nv_preserves_uv='define'
-d_nv_preserves_uv_bits='32'
+nv_preserves_uv_bits='32'
d_off64_t='undef'
d_old_pthread_create_joinable='undef'
d_oldpthreads='undef'
==== //depot/perl/win32/config.win64#6 (text) ====
Index: perl/win32/config.win64
--- perl/win32/config.win64.~1~ Mon Mar 18 07:00:05 2002
+++ perl/win32/config.win64 Mon Mar 18 07:00:05 2002
@@ -248,7 +248,7 @@
d_mymalloc='undef'
d_nice='undef'
d_nv_preserves_uv='define'
-d_nv_preserves_uv_bits='64'
+nv_preserves_uv_bits='64'
d_off64_t='undef'
d_old_pthread_create_joinable='undef'
d_oldpthreads='undef'
End of Patch.
