This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
megalomaniac 64-bit update: most importantly,
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 12 Feb 2000 01:25:41 +0000 (01:25 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 12 Feb 2000 01:25:41 +0000 (01:25 +0000)
uselonglong is eradicated, only backward
compatibility hooks in use64bits remain.

p4raw-id: //depot/metaconfig@5070

U/a_dvisory/quadtype.U
U/modified/libpth.U
U/modified/libs.U
U/perl/use64bits.U

index 3b18df6..af1998c 100644 (file)
@@ -6,7 +6,7 @@
 ?RCS: License or the Artistic License, as specified in the README file.
 ?RCS:
 ?MAKE:d_quad quadtype uquadtype quadkind: \
-       longsize intsize d_longlong longlongsize uselonglong d_int64t \
+       longsize intsize d_longlong longlongsize d_int64t \
        Inhdr Setvar use64bits
 ?MAKE: -pick add $@ %<
 ?S:d_quad:
@@ -97,11 +97,7 @@ case "$intsize" in
 esac
 
 case "$quadtype" in
-'')    case "$uselonglong:$d_longlong:$longlongsize" in
-       undef:define:8)
-          echo "(You would have 'long long', but you are not using it.)" >&4 ;;
-       *) echo "Alas, no 64-bit integer types in sight." >&4 ;;
-       esac
+'')    echo "Alas, no 64-bit integer types in sight." >&4
        d_quad="$undef"
        ;;
 *)     if test X"$use64bits" = Xdefine -o X"$longsize" = X8; then
index 59bdfea..964d5db 100644 (file)
@@ -74,7 +74,7 @@
 ?X:    /shlib is for Digital Unix 4.0
 ?X:    /usr/shlib is for OSF/1 systems.
 ?X:    I don't know why the large & small libraries are in this order.
-?INIT:glibpth="/shlib /usr/shlib /lib/pa1.1 /usr/lib/large"
+?INIT:glibpth="/shlib /usr/shlib /lib/pa20_64 /lib/pa1.1 /usr/lib/large"
 ?INIT:glibpth="$glibpth /lib /usr/lib $xlibpth"
 ?INIT:glibpth="$glibpth /lib/large /usr/lib/small /lib/small"
 ?INIT:glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
index f284c8c..bc7a2be 100644 (file)
@@ -34,7 +34,7 @@
 ?RCS:
 ?MAKE:libs ignore_versioned_solibs libsfound libsfiles libsdirs: \
        test cat Myread Oldconfig Loc libpth package xlibpth so _a \
-       usesocks ccflags
+       use64bits usesocks ccflags
 ?MAKE: -pick add $@ %<
 ?S:libs:
 ?S:    This variable holds the additional libraries we want to use.
@@ -85,7 +85,6 @@
 ?INIT:libswanted=''
 ?INIT:: some systems want to use only the non-versioned libso:s
 ?INIT:ignore_versioned_solibs=''
-?LINT:extern libscheck
 : Looking for optional libraries
 echo " "
 echo "Checking for optional libraries..." >&4
@@ -128,11 +127,6 @@ for thislib in $libswanted; do
                libstyle="static"
        fi
        if $test -f "$xxx"; then
-?X: If $xxx is not to be used as a library, $libscheck (set in
-?X: some hints file, most likely) should set the $xxx to a non-file.
-               eval $libscheck
-       fi
-       if $test -f "$xxx"; then
                case "$libstyle" in
                shared) echo "Found -l$libname (shared)." ;;
                static) echo "Found -l$libname." ;;
index 5a29b48..9a0efaa 100644 (file)
@@ -6,7 +6,7 @@
 ?RCS: License or the Artistic License, as specified in the README file.
 ?RCS:
 ?MAKE:use64bits archname64: Myread Oldconfig Setvar test gccversion cat \
-       uselargefiles usemorebits longsize intsize
+       uselargefiles usemorebits longsize intsize ccflags
 ?MAKE: -pick add $@ %<
 ?Y:TOP
 ?S:use64bits:
@@ -32,6 +32,8 @@
 ?LINT:change ccflags
 ?LINT:use uselargefiles
 ?LINT:use usemorebits
+?LINT:extern uselonglong
+?LINT:use uselonglong
 ?F:!use64bits.cbu
 
 case "$intsize:$longsize" in
@@ -39,25 +41,33 @@ case "$intsize:$longsize" in
 
 You have natively 64-bit integers.
 EOM
-   val="$define" ;;
-*) cat <<EOM
+   val="$define"
+   ;;
+*) case "$ccflags" in
+   *-DUSE_64_BITS*|*-DUSE_LONG_LONG*) use64bits="$define";;
+   *) case "$uselonglong" in
+      $define|true|[yY]*) use64bits="$define";;
+      esac
+      ;;
+   esac
+   case "$use64bits" in
+   $define|true|[yY]*) dflt='y';;
+   *) dflt='n';;
+   esac
+cat <<EOM
 
 Perl can be built to take advantage of 64-bit integer types
 on some systems.  To do so, Configure must be run with -Duse64bits.
 
-If this doesn't make any sense to you, just accept the default.
+If this doesn't make any sense to you, just accept the default '$dflt'.
 EOM
-  case "$use64bits" in
-  $define|true|[yY]*)  dflt='y';;
-  *) dflt='n';;
-  esac
-  rp='Try to use 64-bit integers, if available?'
-  . ./myread
-  case "$ans" in
-  y|Y) val="$define" ;;
-  *)   val="$undef"  ;;
-  esac
-  ;;
+   rp='Try to use 64-bit integers, if available?'
+   . ./myread
+   case "$ans" in
+   [yY]*) val="$define" ;;
+   *)     val="$undef"  ;;
+   esac
+   ;;
 esac
 set use64bits
 eval $setvar