openpkg/openssl.patch

Wed, 01 Aug 2012 23:24:50 +0200

author
Michael Schloh von Bennewitz <michael@schloh.com>
date
Wed, 01 Aug 2012 23:24:50 +0200
changeset 431
127559aa0c5e
parent 13
cb59d6afeb61
child 432
aa0488214e35
permissions
-rw-r--r--

Renumber patch hunks to avoid almost all patch(1) warnings.

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

mercurial