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