Change 16099 by jhi@alpha on 2002/04/23 02:35:52

        Use UV (not long) for BYTEORDER.

Affected files ...

.... //depot/perl/Configure#444 edit
.... //depot/perl/Porting/Glossary#128 edit
.... //depot/perl/Porting/config.sh#124 edit
.... //depot/perl/Porting/config_H#126 edit
.... //depot/perl/config_h.SH#251 edit

Differences ...

==== //depot/perl/Configure#444 (xtext) ====
Index: perl/Configure
--- perl/Configure.~1~  Mon Apr 22 20:45:05 2002
+++ perl/Configure      Mon Apr 22 20:45:05 2002
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Wed Apr 17 17:49:13 EET DST 2002 [metaconfig 3.0 PL70]
+# Generated on Tue Apr 23 06:12:13 EET DST 2002 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by [EMAIL PROTECTED])
 
 cat >c1$$ <<EOF
@@ -16130,7 +16130,7 @@
 ''|[nN]*) multiarch="$undef" ;;
 esac
 
-: check for ordering of bytes in a long
+: check for ordering of bytes in a UV
 echo " "
 case "$usecrosscompile$multiarch" in
 *$define*)
@@ -16153,21 +16153,23 @@
 probably right.
 I'm now running the test program...
 EOM
-               $cat >try.c <<'EOCP'
+               $cat >try.c <<EOCP
 #include <stdio.h>
+#include <sys/types.h>
+typedef $uvtype UV;
 int main()
 {
        int i;
        union {
-               unsigned long l;
-               char c[sizeof(long)];
+               UV l;
+               char c[$uvsize];
        } u;
 
-       if (sizeof(long) > 4)
+       if ($uvsize > 4)
                u.l = (0x08070605L << 32) | 0x04030201L;
        else
                u.l = 0x04030201L;
-       for (i = 0; i < sizeof(long); i++)
+       for (i = 0; i < $uvsize; i++)
                printf("%c", u.c[i]+'0');
        printf("\n");
        exit(0);
@@ -16194,7 +16196,7 @@
                fi
                case "$xxx_prompt" in
                y)
-                       rp="What is the order of bytes in a long?"
+                       rp="What is the order of bytes in $uvtype?"
                        . ./myread
                        byteorder="$ans"
                        ;;

==== //depot/perl/Porting/Glossary#128 (text) ====
Index: perl/Porting/Glossary
--- perl/Porting/Glossary.~1~   Mon Apr 22 20:45:05 2002
+++ perl/Porting/Glossary       Mon Apr 22 20:45:05 2002
@@ -2,7 +2,7 @@
 determined by the Configure script.  Variables intended for use in C
 programs (e.g. I_UNISTD) are already described in config_h.SH.  [`configpm'
 generates pod documentation for Config.pm from this file--please try to keep
-the formatting regular and verify that its output looks as you intend.]
+the formatting regular.]
 
 _a (Unix.U):
        This variable defines the extension used for ordinary library files.
@@ -11,9 +11,9 @@
 
 _exe (Unix.U):
        This variable defines the extension used for executable files.
-       DJGPP, Cygwin and OS/2 use '.exe'.  Stratus VOS uses '.pm'. On
-       operating systems which do not require a specific extension for
-       executable files, this variable is empty.
+       DJGPP, Cygwin and OS/2 use '.exe'.  Stratus VOS uses '.pm'.
+       On operating systems which do not require a specific extension
+       for executable files, this variable is empty.
 
 _o (Unix.U):
        This variable defines the extension used for object files.
@@ -160,10 +160,10 @@
        the value is reset to a plain "byacc" and is not useful.
 
 byteorder (byteorder.U):
-       This variable holds the byte order. In the following, larger digits
-       indicate more significance.  The variable byteorder is either 4321
-       on a big-endian machine, or 1234 on a little-endian, or 87654321
-       on a Cray ... or 3412 with weird order !
+       This variable holds the byte order in a UV. In the following,
+       larger digits indicate more significance.  The variable byteorder
+       is either 4321 on a big-endian machine, or 1234 on a little-endian,
+       or 87654321 on a Cray ... or 3412 with weird order !
 
 c (n.U):
        This variable contains the \c string if that is what causes the echo
@@ -3189,10 +3189,6 @@
        full pathname (if any) of the make program.  After Configure runs,
        the value is reset to a plain "make" and is not useful.
 
-       Both the directory and the command name can vary from system
-       to system; while most systems call the command 'make', other
-       values include 'gmake' and 'gnumake'.
-
 make_set_make (make.U):
        Some versions of 'make' set the variable MAKE.  Others do not.
        This variable contains the string to be included in Makefile.SH
@@ -3483,11 +3479,6 @@
        installed perl5.005 or later suitable for running the script
        to determine inc_version_list.
 
-perl5 (perl5.U):
-       This variable contains the full path (if any) to a previously
-       installed perl5.005 or later suitable for running the script
-       to determine inc_version_list.
-
 perl (Loc.U):
        This variable is defined but not used by Configure.
        The value is a plain '' and is not useful.
@@ -4450,6 +4441,10 @@
        though in principle we could go snooping around in old
        Config.pm files.
 
+yacc (yacc.U):
+       This variable holds the name of the compiler compiler we
+       want to use in the Makefile. It can be yacc, byacc, or bison -y.
+
 yaccflags (yacc.U):
        This variable contains any additional yacc flags desired by the
        user.  It is up to the Makefile to use this.

==== //depot/perl/Porting/config.sh#124 (text) ====
Index: perl/Porting/config.sh
--- perl/Porting/config.sh.~1~  Mon Apr 22 20:45:05 2002
+++ perl/Porting/config.sh      Mon Apr 22 20:45:05 2002
@@ -8,7 +8,7 @@
 
 # Package name      : perl5
 # Source directory  : .
-# Configuration time: Mon Apr  8 20:15:42 EET DST 2002
+# Configuration time: Tue Apr 23 06:32:48 EET DST 2002
 # Configured by     : jhi
 # Target system     : osf1 alpha.hut.fi v4.0 878 alpha 
 
@@ -64,7 +64,7 @@
 ccversion='V5.6-082'
 cf_by='jhi'
 cf_email='[EMAIL PROTECTED]'
-cf_time='Mon Apr  8 20:15:42 EET DST 2002'
+cf_time='Tue Apr 23 06:32:48 EET DST 2002'
 charsize='1'
 chgrp=''
 chmod='chmod'
@@ -495,7 +495,7 @@
 doublesize='8'
 drand01='drand48()'
 drand48_r_proto='0'
-dynamic_ext='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek 
Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util 
MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/Scalar PerlIO/Via SDBM_File Socket 
Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/Typemap attrs re'
+dynamic_ext='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek 
+Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV 
+List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/Scalar PerlIO/Via 
+PerlIO/encoding SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes 
+Unicode/Normalize XS/Typemap attrs re threads threads/shared'
 eagain='EAGAIN'
 ebcdic='undef'
 echo='echo'
@@ -510,7 +510,7 @@
 eunicefix=':'
 exe_ext=''
 expr='expr'
-extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek 
Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV List/Util 
MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/Scalar PerlIO/Via SDBM_File Socket 
Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize XS/Typemap attrs re 
Errno'
+extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek 
+Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV 
+List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/Scalar PerlIO/Via 
+PerlIO/encoding SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes 
+Unicode/Normalize XS/Typemap attrs re threads threads/shared Errno'
 extras=''
 fflushNULL='define'
 fflushall='undef'
@@ -677,7 +677,7 @@
 ivdformat='"ld"'
 ivsize='8'
 ivtype='long'
-known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort 
Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo 
IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/Scalar 
PerlIO/Via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Thread Time/HiRes 
Unicode/Normalize XS/Typemap attrs re threads threads/shared'
+known_extensions='B ByteLoader Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort 
+Devel/Peek Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call GDBM_File I18N/Langinfo 
+IO IPC/SysV List/Util MIME/Base64 NDBM_File ODBM_File Opcode POSIX PerlIO/Scalar 
+PerlIO/Via PerlIO/encoding SDBM_File Socket Storable Sys/Hostname Sys/Syslog Thread 
+Time/HiRes Unicode/Normalize XS/Typemap attrs re threads threads/shared'
 ksh=''
 ld='ld'
 lddlflags='-shared -expect_unresolved "*" -msym -std -s'
@@ -771,7 +771,7 @@
 path_sep=':'
 perl5='perl'
 perl=''
-perl_patchlevel='15771'
+perl_patchlevel='16080'
 perladmin='[EMAIL PROTECTED]'
 perllibs='-lm -lutil'
 perlpath='/opt/perl/bin/perl5.7.3'
@@ -955,7 +955,7 @@
 vendorprefix=''
 vendorprefixexp=''
 version='5.7.3'
-version_patchlevel_string='version 7 subversion 3 patch 15771'
+version_patchlevel_string='version 7 subversion 3 patch 16080'
 versiononly='define'
 vi=''
 voidflags='15'
@@ -985,7 +985,7 @@
 PERL_API_REVISION=5
 PERL_API_VERSION=5
 PERL_API_SUBVERSION=0
-PERL_PATCHLEVEL=15771
+PERL_PATCHLEVEL=16080
 PERL_CONFIG_SH=true
 # Variables propagated from previous config.sh file.
 pp_sys_cflags='ccflags="$ccflags -DNO_EFF_ONLY_OK"'

==== //depot/perl/Porting/config_H#126 (text) ====
Index: perl/Porting/config_H
--- perl/Porting/config_H.~1~   Mon Apr 22 20:45:05 2002
+++ perl/Porting/config_H       Mon Apr 22 20:45:05 2002
@@ -17,7 +17,7 @@
 /*
  * Package name      : perl5
  * Source directory  : .
- * Configuration time: Mon Apr  8 20:15:42 EET DST 2002
+ * Configuration time: Tue Apr 23 06:32:48 EET DST 2002
  * Configured by     : jhi
  * Target system     : osf1 alpha.hut.fi v4.0 878 alpha 
  */
@@ -1028,7 +1028,7 @@
 
 /* BYTEORDER:
  *     This symbol holds the hexadecimal constant defined in byteorder,
- *     i.e. 0x1234 or 0x4321, etc...
+ *     in a UV, i.e. 0x1234 or 0x4321 or 0x12345678, etc...
  *     If the compiler supports cross-compiling or multiple-architecture
  *     binaries (eg. on NeXT systems), use compiler-defined macros to
  *     determine the byte order.

==== //depot/perl/config_h.SH#251 (text) ====
Index: perl/config_h.SH
--- perl/config_h.SH.~1~        Mon Apr 22 20:45:05 2002
+++ perl/config_h.SH    Mon Apr 22 20:45:05 2002
@@ -1048,7 +1048,7 @@
 
 /* BYTEORDER:
  *     This symbol holds the hexadecimal constant defined in byteorder,
- *     i.e. 0x1234 or 0x4321, etc...
+ *     in a UV, i.e. 0x1234 or 0x4321 or 0x12345678, etc...
  *     If the compiler supports cross-compiling or multiple-architecture
  *     binaries (eg. on NeXT systems), use compiler-defined macros to
  *     determine the byte order.
End of Patch.

Reply via email to