Mon, 28 Jan 2013 17:37:18 +0100
Correct socket error reporting improvement with IPv6 portable code,
after helpful recommendation by Saúl Ibarra Corretgé on OSips devlist.
michael@13 | 1 | Index: Configure |
michael@428 | 2 | --- Configure.orig 2012-03-14 23:20:40.000000000 +0100 |
michael@428 | 3 | +++ Configure 2012-06-27 10:10:05.000000000 +0200 |
michael@13 | 4 | @@ -6,7 +6,6 @@ |
michael@13 | 5 | ## |
michael@13 | 6 | |
michael@13 | 7 | require 5.000; |
michael@13 | 8 | -use strict; |
michael@13 | 9 | |
michael@13 | 10 | # see INSTALL for instructions. |
michael@13 | 11 | |
michael@13 | 12 | @@ -34,6 +33,7 @@ |
michael@13 | 13 | # (Default: KRB5_DIR/include) |
michael@13 | 14 | # --with-krb5-flavor Declare what flavor of Kerberos 5 is used. Currently |
michael@13 | 15 | # supported values are "MIT" and "Heimdal". A value is required. |
michael@13 | 16 | +# --with-cc compiler to use for $CC (useful if cc is a disguised gcc) |
michael@13 | 17 | # |
michael@13 | 18 | # --test-sanity Make a number of sanity checks on the data in this file. |
michael@13 | 19 | # This is a debugging tool for OpenSSL developers. |
michael@428 | 20 | @@ -123,6 +123,7 @@ |
michael@13 | 21 | #$bits2="THIRTY_TWO_BIT "; |
michael@13 | 22 | my $bits1="THIRTY_TWO_BIT "; |
michael@13 | 23 | my $bits2="SIXTY_FOUR_BIT "; |
michael@13 | 24 | +my $ccarg; |
michael@13 | 25 | |
michael@428 | 26 | my $x86_asm="x86cpuid.o:bn-586.o co-586.o x86-mont.o x86-gf2m.o:des-586.o crypt586.o:aes-586.o vpaes-x86.o aesni-x86.o:bf-586.o:md5-586.o:sha1-586.o sha256-586.o sha512-586.o:cast-586.o:rc4-586.o:rmd-586.o:rc5-586.o:wp_block.o wp-mmx.o:cmll-x86.o:ghash-x86.o:"; |
michael@428 | 27 | |
michael@428 | 28 | @@ -460,12 +461,12 @@ |
michael@13 | 29 | |
michael@13 | 30 | #### IBM's AIX. |
michael@13 | 31 | "aix3-cc", "cc:-O -DB_ENDIAN -qmaxmem=16384::(unknown):AIX::BN_LLONG RC4_CHAR:::", |
michael@428 | 32 | -"aix-gcc", "gcc:-O -DB_ENDIAN::-pthread:AIX::BN_LLONG RC4_CHAR:${ppc32_asm}:aix32:dlfcn:aix-shared::-shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X32", |
michael@428 | 33 | -"aix64-gcc","gcc:-maix64 -O -DB_ENDIAN::-pthread:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR:${ppc64_asm}:aix64:dlfcn:aix-shared::-maix64 -shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X64", |
michael@428 | 34 | +"aix-gcc", "gcc:-O -DB_ENDIAN::-pthread:AIX::BN_LLONG RC4_CHAR:${ppc32_asm}:aix32:dlfcn:aix-shared::-shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::", |
michael@428 | 35 | +"aix64-gcc","gcc:-maix64 -O -DB_ENDIAN::-pthread:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR:${ppc64_asm}:aix64:dlfcn:aix-shared::-maix64 -shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::", |
michael@13 | 36 | # Below targets assume AIX 5. Idea is to effectively disregard $OBJECT_MODE |
michael@13 | 37 | # at build time. $OBJECT_MODE is respected at ./config stage! |
michael@428 | 38 | -"aix-cc", "cc:-q32 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::BN_LLONG RC4_CHAR:${ppc32_asm}:aix32:dlfcn:aix-shared::-q32 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X 32", |
michael@428 | 39 | -"aix64-cc", "cc:-q64 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR:${ppc64_asm}:aix64:dlfcn:aix-shared::-q64 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X 64", |
michael@428 | 40 | +"aix-cc", "cc:-q32 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::BN_LLONG RC4_CHAR:${ppc32_asm}:aix32:dlfcn:aix-shared::-q32 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::", |
michael@428 | 41 | +"aix64-cc", "cc:-q64 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR:${ppc64_asm}:aix64:dlfcn:aix-shared::-q64 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::", |
michael@428 | 42 | |
michael@428 | 43 | # |
michael@428 | 44 | # Cray T90 and similar (SDSC) |
michael@428 | 45 | @@ -828,6 +829,10 @@ |
michael@13 | 46 | { |
michael@428 | 47 | $strict_warnings = 1; |
michael@13 | 48 | } |
michael@13 | 49 | + elsif (/^--with-cc=(.*)$/) |
michael@13 | 50 | + { |
michael@13 | 51 | + $ccarg=$1 |
michael@13 | 52 | + } |
michael@13 | 53 | elsif (/^reconfigure/ || /^reconf/) |
michael@13 | 54 | { |
michael@13 | 55 | if (open(IN,"<$Makefile")) |
michael@428 | 56 | @@ -1143,7 +1148,7 @@ |
michael@13 | 57 | print "IsMK1MF=$IsMK1MF\n"; |
michael@13 | 58 | |
michael@13 | 59 | my @fields = split(/\s*:\s*/,$table{$target} . ":" x 30 , -1); |
michael@13 | 60 | -my $cc = $fields[$idx_cc]; |
michael@13 | 61 | +my $cc = $ccarg ? $ccarg : $fields[$idx_cc]; |
michael@428 | 62 | # Allow environment CC to override compiler... |
michael@428 | 63 | if($ENV{CC}) { |
michael@428 | 64 | $cc = $ENV{CC}; |
michael@13 | 65 | Index: config |
michael@428 | 66 | --- config.orig 2011-11-14 22:12:53.000000000 +0100 |
michael@428 | 67 | +++ config 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 68 | @@ -277,6 +277,9 @@ |
michael@428 | 69 | Power*) |
michael@428 | 70 | echo "ppc-apple-darwin${VERSION}" |
michael@428 | 71 | ;; |
michael@428 | 72 | + x86_64 ) |
michael@428 | 73 | + echo "x86_64-apple-darwin${VERSION}" |
michael@428 | 74 | + ;; |
michael@428 | 75 | *) |
michael@428 | 76 | echo "i686-apple-darwin${VERSION}" |
michael@428 | 77 | ;; |
michael@472 | 78 | @@ -411,9 +414,14 @@ |
michael@472 | 79 | # this is where the translation occurs into SSLeay terms |
michael@472 | 80 | # --------------------------------------------------------------------------- |
michael@13 | 81 | |
michael@472 | 82 | +# Assume CC is GNU GCC if 'dumpversion' argument produces valid output |
michael@472 | 83 | +GCCVER=`sh -c "${CC-gcc} -dumpversion" 2>/dev/null` |
michael@472 | 84 | +GCCVER=`echo $GCCVER | LC_ALL=C sed 's/^[a-zA-Z]*\-//'` |
michael@472 | 85 | +GCCVER=`echo $GCCVER | sed 's/\([0-9]\)\.\([0-9]\).*/\1\2/'` |
michael@472 | 86 | + |
michael@428 | 87 | # Only set CC if not supplied already |
michael@428 | 88 | if [ -z "$CROSS_COMPILE$CC" ]; then |
michael@428 | 89 | - GCCVER=`sh -c "gcc -dumpversion" 2>/dev/null` |
michael@428 | 90 | + GCCVER=`sh -c "${CC-gcc} -dumpversion" 2>/dev/null` |
michael@428 | 91 | if [ "$GCCVER" != "" ]; then |
michael@428 | 92 | # then strip off whatever prefix egcs prepends the number with... |
michael@428 | 93 | # Hopefully, this will work for any future prefixes as well. |
michael@472 | 94 | @@ -424,8 +432,17 @@ |
michael@428 | 95 | # peak single digit before and after first dot, e.g. 2.95.1 gives 29 |
michael@428 | 96 | GCCVER=`echo $GCCVER | sed 's/\([0-9]\)\.\([0-9]\).*/\1\2/'` |
michael@428 | 97 | CC=gcc |
michael@428 | 98 | + SUFFIX=gcc |
michael@472 | 99 | else |
michael@472 | 100 | CC=cc |
michael@428 | 101 | + SUFFIX=cc |
michael@428 | 102 | + fi |
michael@428 | 103 | +else |
michael@428 | 104 | + if [ "$GCCVER" != "" ]; then |
michael@428 | 105 | + SUFFIX=gcc |
michael@472 | 106 | + else |
michael@472 | 107 | + CC=cc |
michael@432 | 108 | + SUFFIX=cc |
michael@428 | 109 | fi |
michael@13 | 110 | fi |
michael@13 | 111 | GCCVER=${GCCVER:-0} |
michael@472 | 112 | @@ -435,7 +452,7 @@ |
michael@13 | 113 | if [ $GCCVER -ge 30 ]; then |
michael@13 | 114 | # PA64 support only came in with gcc 3.0.x. |
michael@13 | 115 | # We check if the preprocessor symbol __LP64__ is defined... |
michael@13 | 116 | - if echo "__LP64__" | gcc -v -E -x c - 2>/dev/null | grep "^__LP64__" 2>&1 > /dev/null; then |
michael@13 | 117 | + if echo "__LP64__" | $CC -v -E -x c - 2>/dev/null | grep "^__LP64__" 2>&1 > /dev/null; then |
michael@13 | 118 | : # __LP64__ has slipped through, it therefore is not defined |
michael@13 | 119 | else |
michael@13 | 120 | GCC_BITS="64" |
michael@472 | 121 | @@ -446,13 +463,14 @@ |
michael@13 | 122 | if [ $GCCVER -ge 30 ]; then |
michael@13 | 123 | # 64-bit ABI isn't officially supported in gcc 3.0, but it appears |
michael@13 | 124 | # to be working, at the very least 'make test' passes... |
michael@13 | 125 | - if gcc -v -E -x c /dev/null 2>&1 | grep __arch64__ > /dev/null; then |
michael@13 | 126 | + if $CC -v -E -x c /dev/null 2>&1 | grep __arch64__ > /dev/null; then |
michael@13 | 127 | GCC_ARCH="-m64" |
michael@13 | 128 | else |
michael@13 | 129 | GCC_ARCH="-m32" |
michael@13 | 130 | fi |
michael@13 | 131 | fi |
michael@13 | 132 | # check for WorkShop C, expected output is "cc: blah-blah C x.x" |
michael@13 | 133 | + if [ $GCCVER -eq 0 ]; then |
michael@13 | 134 | CCVER=`(cc -V 2>&1) 2>/dev/null | \ |
michael@13 | 135 | egrep -e '^cc: .* C [0-9]\.[0-9]' | \ |
michael@13 | 136 | sed 's/.* C \([0-9]\)\.\([0-9]\).*/\1\2/'` |
michael@472 | 137 | @@ -465,6 +483,7 @@ |
michael@13 | 138 | sleep 5 |
michael@13 | 139 | fi |
michael@13 | 140 | fi |
michael@13 | 141 | + fi |
michael@13 | 142 | fi |
michael@13 | 143 | |
michael@13 | 144 | if [ "${SYSTEM}-${MACHINE}" = "Linux-alpha" ]; then |
michael@472 | 145 | @@ -482,6 +501,7 @@ |
michael@13 | 146 | |
michael@13 | 147 | if [ "${SYSTEM}" = "AIX" ]; then # favor vendor cc over gcc |
michael@13 | 148 | (cc) 2>&1 | grep -iv "not found" > /dev/null && CC=cc |
michael@13 | 149 | + (gcc) 2>&1 | grep -iv "not found" > /dev/null && CC=gcc |
michael@13 | 150 | fi |
michael@13 | 151 | |
michael@13 | 152 | CCVER=${CCVER:-0} |
michael@472 | 153 | @@ -507,7 +527,7 @@ |
michael@13 | 154 | if [ $CPU -ge 4000 ]; then |
michael@13 | 155 | options="$options -mips2" |
michael@13 | 156 | fi |
michael@13 | 157 | - OUT="irix-$CC" |
michael@13 | 158 | + OUT="irix-$SUFFIX" |
michael@13 | 159 | ;; |
michael@13 | 160 | mips3-sgi-irix) |
michael@13 | 161 | #CPU=`(hinv -t cpu) 2>/dev/null | head -1 | sed 's/^CPU:[^R]*R\([0-9]*\).*/\1/'` |
michael@472 | 162 | @@ -517,11 +537,11 @@ |
michael@13 | 163 | #else |
michael@13 | 164 | # options="$options -mips3" |
michael@13 | 165 | #fi |
michael@13 | 166 | - OUT="irix-mips3-$CC" |
michael@13 | 167 | + OUT="irix-mips3-$SUFFIX" |
michael@13 | 168 | ;; |
michael@13 | 169 | mips4-sgi-irix64) |
michael@13 | 170 | echo "WARNING! If you wish to build 64-bit library, then you have to" |
michael@13 | 171 | - echo " invoke './Configure irix64-mips4-$CC' *manually*." |
michael@13 | 172 | + echo " invoke './Configure irix64-mips4-$SUFFIX' *manually*." |
michael@13 | 173 | if [ "$TEST" = "false" -a -t 1 ]; then |
michael@13 | 174 | echo " You have about 5 seconds to press Ctrl-C to abort." |
michael@13 | 175 | (trap "stty `stty -g`" 2 0; stty -icanon min 0 time 50; read waste) <&1 |
michael@472 | 176 | @@ -533,7 +553,7 @@ |
michael@13 | 177 | #else |
michael@13 | 178 | # options="$options -mips3" |
michael@13 | 179 | #fi |
michael@13 | 180 | - OUT="irix-mips3-$CC" |
michael@13 | 181 | + OUT="irix-mips3-$SUFFIX" |
michael@13 | 182 | ;; |
michael@13 | 183 | ppc-apple-rhapsody) OUT="rhapsody-ppc-cc" ;; |
michael@428 | 184 | ppc-apple-darwin*) |
michael@472 | 185 | @@ -566,6 +586,9 @@ |
michael@428 | 186 | else |
michael@428 | 187 | OUT="darwin-i386-cc" |
michael@428 | 188 | fi ;; |
michael@428 | 189 | + x86_64-apple-darwin*) |
michael@428 | 190 | + OUT="darwin64-x86_64-cc" |
michael@428 | 191 | + ;; |
michael@428 | 192 | armv6+7-*-iphoneos) |
michael@428 | 193 | options="$options -arch%20armv6 -arch%20armv7" |
michael@428 | 194 | OUT="iphoneos-cross" ;; |
michael@472 | 195 | @@ -575,10 +598,10 @@ |
michael@13 | 196 | alpha-*-linux2) |
michael@13 | 197 | ISA=`awk '/cpu model/{print$4;exit(0);}' /proc/cpuinfo` |
michael@13 | 198 | case ${ISA:-generic} in |
michael@13 | 199 | - *[678]) OUT="linux-alpha+bwx-$CC" ;; |
michael@13 | 200 | - *) OUT="linux-alpha-$CC" ;; |
michael@13 | 201 | + *[678]) OUT="linux-alpha+bwx-$SUFFIX" ;; |
michael@13 | 202 | + *) OUT="linux-alpha-$SUFFIX" ;; |
michael@13 | 203 | esac |
michael@13 | 204 | - if [ "$CC" = "gcc" ]; then |
michael@13 | 205 | + if [ $GCCVER -gt 0 ]; then |
michael@13 | 206 | case ${ISA:-generic} in |
michael@13 | 207 | EV5|EV45) options="$options -mcpu=ev5";; |
michael@13 | 208 | EV56|PCA56) options="$options -mcpu=ev56";; |
michael@472 | 209 | @@ -662,7 +685,7 @@ |
michael@428 | 210 | ;; |
michael@13 | 211 | x86_64-*-linux?) OUT="linux-x86_64" ;; |
michael@13 | 212 | *86-*-linux2) OUT="linux-elf" |
michael@13 | 213 | - if [ "$GCCVER" -gt 28 ]; then |
michael@13 | 214 | + if [ $GCCVER -gt 28 ]; then |
michael@13 | 215 | if grep '^model.*Pentium' /proc/cpuinfo >/dev/null ; then |
michael@13 | 216 | options="$options -march=pentium" |
michael@13 | 217 | fi |
michael@472 | 218 | @@ -676,17 +699,17 @@ |
michael@13 | 219 | *-*-linux1) OUT="linux-aout" ;; |
michael@13 | 220 | *-*-linux2) OUT="linux-generic32" ;; |
michael@13 | 221 | sun4[uv]*-*-solaris2) |
michael@13 | 222 | - OUT="solaris-sparcv9-$CC" |
michael@13 | 223 | + OUT="solaris-sparcv9-$SUFFIX" |
michael@13 | 224 | ISA64=`(isalist) 2>/dev/null | grep sparcv9` |
michael@428 | 225 | if [ "$ISA64" != "" -a "$KERNEL_BITS" = "" ]; then |
michael@13 | 226 | - if [ "$CC" = "cc" -a $CCVER -ge 50 ]; then |
michael@13 | 227 | + if [ $GCCVER -eq 0 -a $CCVER -ge 50 ]; then |
michael@13 | 228 | echo "WARNING! If you wish to build 64-bit library, then you have to" |
michael@13 | 229 | echo " invoke './Configure solaris64-sparcv9-cc' *manually*." |
michael@13 | 230 | if [ "$TEST" = "false" -a -t 1 ]; then |
michael@13 | 231 | echo " You have about 5 seconds to press Ctrl-C to abort." |
michael@13 | 232 | (trap "stty `stty -g`" 2 0; stty -icanon min 0 time 50; read waste) <&1 |
michael@13 | 233 | fi |
michael@13 | 234 | - elif [ "$CC" = "gcc" -a "$GCC_ARCH" = "-m64" ]; then |
michael@13 | 235 | + elif [ $GCCVER -gt 0 -a "$GCC_ARCH" = "-m64" ]; then |
michael@13 | 236 | # $GCC_ARCH denotes default ABI chosen by compiler driver |
michael@13 | 237 | # (first one found on the $PATH). I assume that user |
michael@13 | 238 | # expects certain consistency with the rest of his builds |
michael@472 | 239 | @@ -712,21 +735,21 @@ |
michael@428 | 240 | OUT="solaris64-sparcv9-$CC" |
michael@13 | 241 | fi |
michael@13 | 242 | ;; |
michael@13 | 243 | - sun4m-*-solaris2) OUT="solaris-sparcv8-$CC" ;; |
michael@13 | 244 | - sun4d-*-solaris2) OUT="solaris-sparcv8-$CC" ;; |
michael@13 | 245 | - sun4*-*-solaris2) OUT="solaris-sparcv7-$CC" ;; |
michael@13 | 246 | + sun4m-*-solaris2) OUT="solaris-sparcv8-$SUFFIX" ;; |
michael@13 | 247 | + sun4d-*-solaris2) OUT="solaris-sparcv8-$SUFFIX" ;; |
michael@13 | 248 | + sun4*-*-solaris2) OUT="solaris-sparcv7-$SUFFIX" ;; |
michael@13 | 249 | *86*-*-solaris2) |
michael@13 | 250 | ISA64=`(isalist) 2>/dev/null | grep amd64` |
michael@432 | 251 | if [ "$ISA64" != "" -a ${KERNEL_BITS:-64} -eq 64 ]; then |
michael@13 | 252 | - OUT="solaris64-x86_64-$CC" |
michael@13 | 253 | + OUT="solaris64-x86_64-$SUFFIX" |
michael@13 | 254 | else |
michael@13 | 255 | - OUT="solaris-x86-$CC" |
michael@13 | 256 | + OUT="solaris-x86-$SUFFIX" |
michael@13 | 257 | if [ `uname -r | sed -e 's/5\.//'` -lt 10 ]; then |
michael@13 | 258 | options="$options no-sse2" |
michael@13 | 259 | fi |
michael@13 | 260 | fi |
michael@13 | 261 | ;; |
michael@13 | 262 | - *-*-sunos4) OUT="sunos-$CC" ;; |
michael@13 | 263 | + *-*-sunos4) OUT="sunos-$SUFFIX" ;; |
michael@13 | 264 | |
michael@13 | 265 | *86*-*-bsdi4) OUT="BSD-x86-elf"; options="$options no-sse2 -ldl" ;; |
michael@13 | 266 | alpha*-*-*bsd*) OUT="BSD-generic64"; options="$options -DL_ENDIAN" ;; |
michael@472 | 267 | @@ -750,7 +773,7 @@ |
michael@13 | 268 | *-*-osf) OUT="osf1-alpha-cc" ;; |
michael@13 | 269 | *-*-tru64) OUT="tru64-alpha-cc" ;; |
michael@13 | 270 | *-*-[Uu]nix[Ww]are7) |
michael@13 | 271 | - if [ "$CC" = "gcc" ]; then |
michael@13 | 272 | + if [ $GCCVER -gt 0 ]; then |
michael@13 | 273 | OUT="unixware-7-gcc" ; options="$options no-sse2" |
michael@13 | 274 | else |
michael@13 | 275 | OUT="unixware-7" ; options="$options no-sse2 -D__i386__" |
michael@472 | 276 | @@ -761,12 +784,12 @@ |
michael@13 | 277 | *-*-vos) |
michael@13 | 278 | options="$options no-threads no-shared no-asm no-dso" |
michael@13 | 279 | EXE=".pm" |
michael@13 | 280 | - OUT="vos-$CC" ;; |
michael@13 | 281 | + OUT="vos-$SUFFIX" ;; |
michael@13 | 282 | BS2000-siemens-sysv4) OUT="BS2000-OSD" ;; |
michael@13 | 283 | RM*-siemens-sysv4) OUT="ReliantUNIX" ;; |
michael@13 | 284 | *-siemens-sysv4) OUT="SINIX" ;; |
michael@13 | 285 | *-hpux1*) |
michael@13 | 286 | - if [ $CC = "gcc" -a $GCC_BITS = "64" ]; then |
michael@13 | 287 | + if [ $GCCVER -gt 0 -a $GCC_BITS = "64" ]; then |
michael@13 | 288 | OUT="hpux64-parisc2-gcc" |
michael@13 | 289 | fi |
michael@428 | 290 | [ "$KERNEL_BITS" ] || KERNEL_BITS=`(getconf KERNEL_BITS) 2>/dev/null` |
michael@472 | 291 | @@ -781,8 +804,8 @@ |
michael@428 | 292 | OUT="hpux-ia64-cc" |
michael@428 | 293 | fi |
michael@13 | 294 | elif [ $CPU_VERSION -ge 532 ]; then # PA-RISC 2.x CPU |
michael@13 | 295 | - OUT=${OUT:-"hpux-parisc2-${CC}"} |
michael@13 | 296 | - if [ $KERNEL_BITS -eq 64 -a "$CC" = "cc" ]; then |
michael@13 | 297 | + OUT=${OUT:-"hpux-parisc2-${SUFFIX}"} |
michael@13 | 298 | + if [ $KERNEL_BITS -eq 64 -a $GCCVER -eq 0 ]; then |
michael@13 | 299 | echo "WARNING! If you wish to build 64-bit library then you have to" |
michael@13 | 300 | echo " invoke './Configure hpux64-parisc2-cc' *manually*." |
michael@13 | 301 | if [ "$TEST" = "false" -a -t 1 ]; then |
michael@472 | 302 | @@ -791,9 +814,9 @@ |
michael@13 | 303 | fi |
michael@13 | 304 | fi |
michael@13 | 305 | elif [ $CPU_VERSION -ge 528 ]; then # PA-RISC 1.1+ CPU |
michael@13 | 306 | - OUT="hpux-parisc-${CC}" |
michael@13 | 307 | + OUT="hpux-parisc-${SUFFIX}" |
michael@13 | 308 | elif [ $CPU_VERSION -ge 523 ]; then # PA-RISC 1.0 CPU |
michael@13 | 309 | - OUT="hpux-parisc-${CC}" |
michael@13 | 310 | + OUT="hpux-parisc-${SUFFIX}" |
michael@13 | 311 | else # Motorola(?) CPU |
michael@428 | 312 | OUT="hpux-$CC" |
michael@13 | 313 | fi |
michael@472 | 314 | @@ -803,7 +826,7 @@ |
michael@428 | 315 | [ "$KERNEL_BITS" ] || KERNEL_BITS=`(getconf KERNEL_BITMODE) 2>/dev/null` |
michael@13 | 316 | KERNEL_BITS=${KERNEL_BITS:-32} |
michael@13 | 317 | OBJECT_MODE=${OBJECT_MODE:-32} |
michael@13 | 318 | - if [ "$CC" = "gcc" ]; then |
michael@13 | 319 | + if [ $GCCVER -gt 0 ]; then |
michael@13 | 320 | OUT="aix-gcc" |
michael@428 | 321 | if [ $OBJECT_MODE -eq 64 ]; then |
michael@428 | 322 | echo 'Your $OBJECT_MODE was found to be set to 64' |
michael@472 | 323 | @@ -913,7 +936,7 @@ |
michael@13 | 324 | #fi |
michael@13 | 325 | |
michael@13 | 326 | if [ -z "$OUT" ]; then |
michael@13 | 327 | - OUT="$CC" |
michael@13 | 328 | + OUT="$SUFFIX" |
michael@13 | 329 | fi |
michael@13 | 330 | |
michael@13 | 331 | if [ ".$PERL" = . ] ; then |
michael@472 | 332 | @@ -945,9 +968,9 @@ |
michael@13 | 333 | # compiler for the platform ... in which case we add it on |
michael@13 | 334 | # the end ... otherwise we leave it off |
michael@13 | 335 | |
michael@13 | 336 | -$PERL ./Configure LIST | grep "$OUT-$CC" > /dev/null |
michael@13 | 337 | +$PERL ./Configure LIST | grep "$OUT-$SUFFIX" > /dev/null |
michael@13 | 338 | if [ $? = "0" ]; then |
michael@13 | 339 | - OUT="$OUT-$CC" |
michael@13 | 340 | + OUT="$OUT-$SUFFIX" |
michael@13 | 341 | fi |
michael@13 | 342 | |
michael@13 | 343 | OUT="$PREFIX$OUT" |
michael@472 | 344 | @@ -957,9 +980,9 @@ |
michael@13 | 345 | echo Configuring for $OUT |
michael@13 | 346 | |
michael@13 | 347 | if [ "$TEST" = "true" ]; then |
michael@13 | 348 | - echo $PERL ./Configure $OUT $options |
michael@13 | 349 | + echo $PERL ./Configure $OUT --with-cc=$CC $options |
michael@13 | 350 | else |
michael@13 | 351 | - $PERL ./Configure $OUT $options |
michael@13 | 352 | + $PERL ./Configure $OUT --with-cc=$CC $options |
michael@13 | 353 | fi |
michael@13 | 354 | else |
michael@13 | 355 | echo "This system ($OUT) is not supported. See file INSTALL for details." |
michael@428 | 356 | Index: crypto/aes/asm/aesni-sha1-x86_64.pl |
michael@428 | 357 | --- crypto/aes/asm/aesni-sha1-x86_64.pl.orig 2011-08-23 22:53:31.000000000 +0200 |
michael@428 | 358 | +++ crypto/aes/asm/aesni-sha1-x86_64.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 359 | @@ -206,7 +206,7 @@ |
michael@428 | 360 | ___ |
michael@428 | 361 | |
michael@428 | 362 | my $aesenc=sub { |
michael@428 | 363 | - use integer; |
michael@428 | 364 | + |
michael@428 | 365 | my ($n,$k)=($r/10,$r%10); |
michael@428 | 366 | if ($k==0) { |
michael@428 | 367 | $code.=<<___; |
michael@428 | 368 | @@ -249,7 +249,7 @@ |
michael@428 | 369 | }; |
michael@428 | 370 | |
michael@428 | 371 | sub Xupdate_ssse3_16_31() # recall that $Xi starts wtih 4 |
michael@428 | 372 | -{ use integer; |
michael@428 | 373 | +{ |
michael@428 | 374 | my $body = shift; |
michael@428 | 375 | my @insns = (&$body,&$body,&$body,&$body); # 40 instructions |
michael@428 | 376 | my ($a,$b,$c,$d,$e); |
michael@428 | 377 | @@ -330,7 +330,7 @@ |
michael@428 | 378 | } |
michael@428 | 379 | |
michael@428 | 380 | sub Xupdate_ssse3_32_79() |
michael@428 | 381 | -{ use integer; |
michael@428 | 382 | +{ |
michael@428 | 383 | my $body = shift; |
michael@428 | 384 | my @insns = (&$body,&$body,&$body,&$body); # 32 to 48 instructions |
michael@428 | 385 | my ($a,$b,$c,$d,$e); |
michael@428 | 386 | @@ -397,7 +397,7 @@ |
michael@428 | 387 | } |
michael@428 | 388 | |
michael@428 | 389 | sub Xuplast_ssse3_80() |
michael@428 | 390 | -{ use integer; |
michael@428 | 391 | +{ |
michael@428 | 392 | my $body = shift; |
michael@428 | 393 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 394 | my ($a,$b,$c,$d,$e); |
michael@428 | 395 | @@ -431,7 +431,7 @@ |
michael@428 | 396 | } |
michael@428 | 397 | |
michael@428 | 398 | sub Xloop_ssse3() |
michael@428 | 399 | -{ use integer; |
michael@428 | 400 | +{ |
michael@428 | 401 | my $body = shift; |
michael@428 | 402 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 403 | my ($a,$b,$c,$d,$e); |
michael@428 | 404 | @@ -456,7 +456,7 @@ |
michael@428 | 405 | } |
michael@428 | 406 | |
michael@428 | 407 | sub Xtail_ssse3() |
michael@428 | 408 | -{ use integer; |
michael@428 | 409 | +{ |
michael@428 | 410 | my $body = shift; |
michael@428 | 411 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 412 | my ($a,$b,$c,$d,$e); |
michael@428 | 413 | @@ -465,7 +465,7 @@ |
michael@428 | 414 | } |
michael@428 | 415 | |
michael@428 | 416 | sub body_00_19 () { |
michael@428 | 417 | - use integer; |
michael@428 | 418 | + |
michael@428 | 419 | my ($k,$n); |
michael@428 | 420 | my @r=( |
michael@428 | 421 | '($a,$b,$c,$d,$e)=@V;'. |
michael@428 | 422 | @@ -488,7 +488,7 @@ |
michael@428 | 423 | } |
michael@428 | 424 | |
michael@428 | 425 | sub body_20_39 () { |
michael@428 | 426 | - use integer; |
michael@428 | 427 | + |
michael@428 | 428 | my ($k,$n); |
michael@428 | 429 | my @r=( |
michael@428 | 430 | '($a,$b,$c,$d,$e)=@V;'. |
michael@428 | 431 | @@ -509,7 +509,7 @@ |
michael@428 | 432 | } |
michael@428 | 433 | |
michael@428 | 434 | sub body_40_59 () { |
michael@428 | 435 | - use integer; |
michael@428 | 436 | + |
michael@428 | 437 | my ($k,$n); |
michael@428 | 438 | my @r=( |
michael@428 | 439 | '($a,$b,$c,$d,$e)=@V;'. |
michael@428 | 440 | @@ -723,7 +723,7 @@ |
michael@428 | 441 | ___ |
michael@428 | 442 | |
michael@428 | 443 | my $aesenc=sub { |
michael@428 | 444 | - use integer; |
michael@428 | 445 | + |
michael@428 | 446 | my ($n,$k)=($r/10,$r%10); |
michael@428 | 447 | if ($k==0) { |
michael@428 | 448 | $code.=<<___; |
michael@428 | 449 | @@ -766,7 +766,7 @@ |
michael@428 | 450 | }; |
michael@428 | 451 | |
michael@428 | 452 | sub Xupdate_avx_16_31() # recall that $Xi starts wtih 4 |
michael@428 | 453 | -{ use integer; |
michael@428 | 454 | +{ |
michael@428 | 455 | my $body = shift; |
michael@428 | 456 | my @insns = (&$body,&$body,&$body,&$body); # 40 instructions |
michael@428 | 457 | my ($a,$b,$c,$d,$e); |
michael@428 | 458 | @@ -842,7 +842,7 @@ |
michael@428 | 459 | } |
michael@428 | 460 | |
michael@428 | 461 | sub Xupdate_avx_32_79() |
michael@428 | 462 | -{ use integer; |
michael@428 | 463 | +{ |
michael@428 | 464 | my $body = shift; |
michael@428 | 465 | my @insns = (&$body,&$body,&$body,&$body); # 32 to 48 instructions |
michael@428 | 466 | my ($a,$b,$c,$d,$e); |
michael@428 | 467 | @@ -907,7 +907,7 @@ |
michael@428 | 468 | } |
michael@428 | 469 | |
michael@428 | 470 | sub Xuplast_avx_80() |
michael@428 | 471 | -{ use integer; |
michael@428 | 472 | +{ |
michael@428 | 473 | my $body = shift; |
michael@428 | 474 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 475 | my ($a,$b,$c,$d,$e); |
michael@428 | 476 | @@ -941,7 +941,7 @@ |
michael@428 | 477 | } |
michael@428 | 478 | |
michael@428 | 479 | sub Xloop_avx() |
michael@428 | 480 | -{ use integer; |
michael@428 | 481 | +{ |
michael@428 | 482 | my $body = shift; |
michael@428 | 483 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 484 | my ($a,$b,$c,$d,$e); |
michael@428 | 485 | @@ -965,7 +965,7 @@ |
michael@428 | 486 | } |
michael@428 | 487 | |
michael@428 | 488 | sub Xtail_avx() |
michael@428 | 489 | -{ use integer; |
michael@428 | 490 | +{ |
michael@428 | 491 | my $body = shift; |
michael@428 | 492 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 493 | my ($a,$b,$c,$d,$e); |
michael@428 | 494 | Index: crypto/asn1/charmap.pl |
michael@428 | 495 | --- crypto/asn1/charmap.pl.orig 2000-07-28 03:58:11.000000000 +0200 |
michael@428 | 496 | +++ crypto/asn1/charmap.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 497 | @@ -1,7 +1,5 @@ |
michael@428 | 498 | #!/usr/local/bin/perl -w |
michael@428 | 499 | |
michael@428 | 500 | -use strict; |
michael@428 | 501 | - |
michael@428 | 502 | my ($i, @arr); |
michael@428 | 503 | |
michael@428 | 504 | # Set up an array with the type of ASCII characters |
michael@428 | 505 | Index: crypto/bn/asm/modexp512-x86_64.pl |
michael@428 | 506 | --- crypto/bn/asm/modexp512-x86_64.pl.orig 2011-12-12 16:12:09.000000000 +0100 |
michael@428 | 507 | +++ crypto/bn/asm/modexp512-x86_64.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 508 | @@ -70,7 +70,6 @@ |
michael@428 | 509 | |
michael@428 | 510 | open STDOUT,"| $^X $xlate $flavour $output"; |
michael@428 | 511 | |
michael@428 | 512 | -use strict; |
michael@428 | 513 | my $code=".text\n\n"; |
michael@428 | 514 | my $m=0; |
michael@428 | 515 | |
michael@428 | 516 | Index: crypto/md5/asm/md5-x86_64.pl |
michael@428 | 517 | --- crypto/md5/asm/md5-x86_64.pl.orig 2008-12-19 12:17:27.000000000 +0100 |
michael@428 | 518 | +++ crypto/md5/asm/md5-x86_64.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 519 | @@ -7,8 +7,6 @@ |
michael@428 | 520 | # in the public domain. |
michael@428 | 521 | # |
michael@428 | 522 | |
michael@428 | 523 | -use strict; |
michael@428 | 524 | - |
michael@428 | 525 | my $code; |
michael@428 | 526 | |
michael@428 | 527 | # round1_step() does: |
michael@13 | 528 | Index: crypto/objects/obj_dat.pl |
michael@428 | 529 | --- crypto/objects/obj_dat.pl.orig 2007-09-18 23:05:21.000000000 +0200 |
michael@428 | 530 | +++ crypto/objects/obj_dat.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 531 | @@ -2,7 +2,6 @@ |
michael@428 | 532 | |
michael@428 | 533 | # fixes bug in floating point emulation on sparc64 when |
michael@428 | 534 | # this script produces off-by-one output on sparc64 |
michael@428 | 535 | -use integer; |
michael@428 | 536 | |
michael@428 | 537 | sub obj_cmp |
michael@428 | 538 | { |
michael@428 | 539 | Index: crypto/objects/objxref.pl |
michael@428 | 540 | --- crypto/objects/objxref.pl.orig 2009-04-06 18:16:23.000000000 +0200 |
michael@428 | 541 | +++ crypto/objects/objxref.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 542 | @@ -1,7 +1,5 @@ |
michael@13 | 543 | #!/usr/local/bin/perl |
michael@13 | 544 | |
michael@428 | 545 | -use strict; |
michael@13 | 546 | - |
michael@428 | 547 | my %xref_tbl; |
michael@428 | 548 | my %oid_tbl; |
michael@428 | 549 | |
michael@428 | 550 | Index: crypto/perlasm/x86_64-xlate.pl |
michael@428 | 551 | --- crypto/perlasm/x86_64-xlate.pl.orig 2012-03-13 20:19:31.000000000 +0100 |
michael@428 | 552 | +++ crypto/perlasm/x86_64-xlate.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 553 | @@ -248,7 +248,6 @@ |
michael@428 | 554 | |
michael@428 | 555 | # Solaris /usr/ccs/bin/as can't handle multiplications |
michael@428 | 556 | # in $self->{label}, new gas requires sign extension... |
michael@428 | 557 | - use integer; |
michael@428 | 558 | $self->{label} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi; |
michael@428 | 559 | $self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg; |
michael@428 | 560 | $self->{label} =~ s/([0-9]+)/$1<<32>>32/eg; |
michael@428 | 561 | Index: crypto/sha/asm/sha1-586.pl |
michael@428 | 562 | --- crypto/sha/asm/sha1-586.pl.orig 2011-06-28 15:53:49.000000000 +0200 |
michael@428 | 563 | +++ crypto/sha/asm/sha1-586.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 564 | @@ -523,7 +523,7 @@ |
michael@428 | 565 | # round]... |
michael@428 | 566 | # |
michael@428 | 567 | sub Xupdate_ssse3_16_31() # recall that $Xi starts wtih 4 |
michael@428 | 568 | -{ use integer; |
michael@428 | 569 | +{ |
michael@428 | 570 | my $body = shift; |
michael@428 | 571 | my @insns = (&$body,&$body,&$body,&$body); # 40 instructions |
michael@428 | 572 | my ($a,$b,$c,$d,$e); |
michael@428 | 573 | @@ -607,7 +607,7 @@ |
michael@428 | 574 | } |
michael@428 | 575 | |
michael@428 | 576 | sub Xupdate_ssse3_32_79() |
michael@428 | 577 | -{ use integer; |
michael@428 | 578 | +{ |
michael@428 | 579 | my $body = shift; |
michael@428 | 580 | my @insns = (&$body,&$body,&$body,&$body); # 32 to 48 instructions |
michael@428 | 581 | my ($a,$b,$c,$d,$e); |
michael@428 | 582 | @@ -675,7 +675,7 @@ |
michael@428 | 583 | } |
michael@428 | 584 | |
michael@428 | 585 | sub Xuplast_ssse3_80() |
michael@428 | 586 | -{ use integer; |
michael@428 | 587 | +{ |
michael@428 | 588 | my $body = shift; |
michael@428 | 589 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 590 | my ($a,$b,$c,$d,$e); |
michael@428 | 591 | @@ -710,7 +710,7 @@ |
michael@428 | 592 | } |
michael@428 | 593 | |
michael@428 | 594 | sub Xloop_ssse3() |
michael@428 | 595 | -{ use integer; |
michael@428 | 596 | +{ |
michael@428 | 597 | my $body = shift; |
michael@428 | 598 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 599 | my ($a,$b,$c,$d,$e); |
michael@428 | 600 | @@ -735,7 +735,7 @@ |
michael@428 | 601 | } |
michael@428 | 602 | |
michael@428 | 603 | sub Xtail_ssse3() |
michael@428 | 604 | -{ use integer; |
michael@428 | 605 | +{ |
michael@428 | 606 | my $body = shift; |
michael@428 | 607 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 608 | my ($a,$b,$c,$d,$e); |
michael@428 | 609 | @@ -945,7 +945,7 @@ |
michael@428 | 610 | &jmp (&label("loop")); |
michael@428 | 611 | |
michael@428 | 612 | sub Xupdate_avx_16_31() # recall that $Xi starts wtih 4 |
michael@428 | 613 | -{ use integer; |
michael@428 | 614 | +{ |
michael@428 | 615 | my $body = shift; |
michael@428 | 616 | my @insns = (&$body,&$body,&$body,&$body); # 40 instructions |
michael@428 | 617 | my ($a,$b,$c,$d,$e); |
michael@428 | 618 | @@ -1023,7 +1023,7 @@ |
michael@428 | 619 | } |
michael@428 | 620 | |
michael@428 | 621 | sub Xupdate_avx_32_79() |
michael@428 | 622 | -{ use integer; |
michael@428 | 623 | +{ |
michael@428 | 624 | my $body = shift; |
michael@428 | 625 | my @insns = (&$body,&$body,&$body,&$body); # 32 to 48 instructions |
michael@428 | 626 | my ($a,$b,$c,$d,$e); |
michael@428 | 627 | @@ -1088,7 +1088,7 @@ |
michael@428 | 628 | } |
michael@428 | 629 | |
michael@428 | 630 | sub Xuplast_avx_80() |
michael@428 | 631 | -{ use integer; |
michael@428 | 632 | +{ |
michael@428 | 633 | my $body = shift; |
michael@428 | 634 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 635 | my ($a,$b,$c,$d,$e); |
michael@428 | 636 | @@ -1123,7 +1123,7 @@ |
michael@428 | 637 | } |
michael@428 | 638 | |
michael@428 | 639 | sub Xloop_avx() |
michael@428 | 640 | -{ use integer; |
michael@428 | 641 | +{ |
michael@428 | 642 | my $body = shift; |
michael@428 | 643 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 644 | my ($a,$b,$c,$d,$e); |
michael@428 | 645 | @@ -1147,7 +1147,7 @@ |
michael@428 | 646 | } |
michael@428 | 647 | |
michael@428 | 648 | sub Xtail_avx() |
michael@428 | 649 | -{ use integer; |
michael@428 | 650 | +{ |
michael@428 | 651 | my $body = shift; |
michael@428 | 652 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 653 | my ($a,$b,$c,$d,$e); |
michael@428 | 654 | Index: crypto/sha/asm/sha1-x86_64.pl |
michael@428 | 655 | --- crypto/sha/asm/sha1-x86_64.pl.orig 2011-07-04 15:01:42.000000000 +0200 |
michael@428 | 656 | +++ crypto/sha/asm/sha1-x86_64.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 657 | @@ -367,7 +367,7 @@ |
michael@428 | 658 | } |
michael@428 | 659 | |
michael@428 | 660 | sub Xupdate_ssse3_16_31() # recall that $Xi starts wtih 4 |
michael@428 | 661 | -{ use integer; |
michael@428 | 662 | +{ |
michael@428 | 663 | my $body = shift; |
michael@428 | 664 | my @insns = (&$body,&$body,&$body,&$body); # 40 instructions |
michael@428 | 665 | my ($a,$b,$c,$d,$e); |
michael@428 | 666 | @@ -448,7 +448,7 @@ |
michael@428 | 667 | } |
michael@428 | 668 | |
michael@428 | 669 | sub Xupdate_ssse3_32_79() |
michael@428 | 670 | -{ use integer; |
michael@428 | 671 | +{ |
michael@428 | 672 | my $body = shift; |
michael@428 | 673 | my @insns = (&$body,&$body,&$body,&$body); # 32 to 48 instructions |
michael@428 | 674 | my ($a,$b,$c,$d,$e); |
michael@428 | 675 | @@ -515,7 +515,7 @@ |
michael@428 | 676 | } |
michael@428 | 677 | |
michael@428 | 678 | sub Xuplast_ssse3_80() |
michael@428 | 679 | -{ use integer; |
michael@428 | 680 | +{ |
michael@428 | 681 | my $body = shift; |
michael@428 | 682 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 683 | my ($a,$b,$c,$d,$e); |
michael@428 | 684 | @@ -549,7 +549,7 @@ |
michael@428 | 685 | } |
michael@428 | 686 | |
michael@428 | 687 | sub Xloop_ssse3() |
michael@428 | 688 | -{ use integer; |
michael@428 | 689 | +{ |
michael@428 | 690 | my $body = shift; |
michael@428 | 691 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 692 | my ($a,$b,$c,$d,$e); |
michael@428 | 693 | @@ -574,7 +574,7 @@ |
michael@428 | 694 | } |
michael@428 | 695 | |
michael@428 | 696 | sub Xtail_ssse3() |
michael@428 | 697 | -{ use integer; |
michael@428 | 698 | +{ |
michael@428 | 699 | my $body = shift; |
michael@428 | 700 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 701 | my ($a,$b,$c,$d,$e); |
michael@428 | 702 | @@ -778,7 +778,7 @@ |
michael@428 | 703 | ___ |
michael@428 | 704 | |
michael@428 | 705 | sub Xupdate_avx_16_31() # recall that $Xi starts wtih 4 |
michael@428 | 706 | -{ use integer; |
michael@428 | 707 | +{ |
michael@428 | 708 | my $body = shift; |
michael@428 | 709 | my @insns = (&$body,&$body,&$body,&$body); # 40 instructions |
michael@428 | 710 | my ($a,$b,$c,$d,$e); |
michael@428 | 711 | @@ -854,7 +854,7 @@ |
michael@428 | 712 | } |
michael@428 | 713 | |
michael@428 | 714 | sub Xupdate_avx_32_79() |
michael@428 | 715 | -{ use integer; |
michael@428 | 716 | +{ |
michael@428 | 717 | my $body = shift; |
michael@428 | 718 | my @insns = (&$body,&$body,&$body,&$body); # 32 to 48 instructions |
michael@428 | 719 | my ($a,$b,$c,$d,$e); |
michael@428 | 720 | @@ -919,7 +919,7 @@ |
michael@428 | 721 | } |
michael@428 | 722 | |
michael@428 | 723 | sub Xuplast_avx_80() |
michael@428 | 724 | -{ use integer; |
michael@428 | 725 | +{ |
michael@428 | 726 | my $body = shift; |
michael@428 | 727 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 728 | my ($a,$b,$c,$d,$e); |
michael@428 | 729 | @@ -953,7 +953,7 @@ |
michael@428 | 730 | } |
michael@428 | 731 | |
michael@428 | 732 | sub Xloop_avx() |
michael@428 | 733 | -{ use integer; |
michael@428 | 734 | +{ |
michael@428 | 735 | my $body = shift; |
michael@428 | 736 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 737 | my ($a,$b,$c,$d,$e); |
michael@428 | 738 | @@ -977,7 +977,7 @@ |
michael@428 | 739 | } |
michael@428 | 740 | |
michael@428 | 741 | sub Xtail_avx() |
michael@428 | 742 | -{ use integer; |
michael@428 | 743 | +{ |
michael@428 | 744 | my $body = shift; |
michael@428 | 745 | my @insns = (&$body,&$body,&$body,&$body); # 32 instructions |
michael@428 | 746 | my ($a,$b,$c,$d,$e); |
michael@428 | 747 | Index: util/clean-depend.pl |
michael@428 | 748 | --- util/clean-depend.pl.orig 2007-09-19 16:53:18.000000000 +0200 |
michael@428 | 749 | +++ util/clean-depend.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@428 | 750 | @@ -2,8 +2,6 @@ |
michael@428 | 751 | # Clean the dependency list in a makefile of standard includes... |
michael@428 | 752 | # Written by Ben Laurie <ben@algroup.co.uk> 19 Jan 1999 |
michael@428 | 753 | |
michael@428 | 754 | -use strict; |
michael@428 | 755 | - |
michael@428 | 756 | while(<STDIN>) { |
michael@428 | 757 | print; |
michael@428 | 758 | last if /^# DO NOT DELETE THIS LINE/; |
michael@13 | 759 | Index: util/mklink.pl |
michael@428 | 760 | --- util/mklink.pl.orig 2008-12-19 14:35:09.000000000 +0100 |
michael@428 | 761 | +++ util/mklink.pl 2012-06-27 10:10:05.000000000 +0200 |
michael@13 | 762 | @@ -15,13 +15,12 @@ |
michael@13 | 763 | # Apart from this, this script should be able to handle even the most |
michael@13 | 764 | # pathological cases. |
michael@13 | 765 | |
michael@13 | 766 | -use Cwd; |
michael@13 | 767 | - |
michael@13 | 768 | my $from = shift; |
michael@13 | 769 | my @files = @ARGV; |
michael@13 | 770 | |
michael@13 | 771 | my @from_path = split(/[\\\/]/, $from); |
michael@13 | 772 | -my $pwd = getcwd(); |
michael@13 | 773 | +my $pwd = `pwd`; |
michael@428 | 774 | +$pwd =~ s/\r?\n$//s; |
michael@13 | 775 | chomp($pwd); |
michael@13 | 776 | my @pwd_path = split(/[\\\/]/, $pwd); |
michael@13 | 777 |