Commit 8d274837 authored by Ulf Möller's avatar Ulf Möller
Browse files

fix breakage for Perl versions that do boolean operations on long words

parent 58550380

crypto/aes/asm/aes-586.pl

+2 −2
Original line number Original line Diff line number Diff line
@@ -1245,7 +1245,7 @@ sub declast() 
	&mov	($acc,&wparam(0));		# load inp

	&mov	($acc,&wparam(0));		# load inp

	&mov	($key,&wparam(4));		# load ivp

	&mov	($key,&wparam(4));		# load ivp





	&test	($s2,~15);

	&test	($s2,0xFFFFFFF0);

	&jz	(&label("enc_tail"));		# short input...

	&jz	(&label("enc_tail"));		# short input...





	&mov	($s0,&DWP(0,$key));		# load iv

	&mov	($s0,&DWP(0,$key));		# load iv
@@ -1281,7 +1281,7 @@ sub declast() 
		&mov	(&wparam(1),$s3);		# save out

		&mov	(&wparam(1),$s3);		# save out





		&sub	($s2,16);

		&sub	($s2,16);

		&test	($s2,~15);

		&test	($s2,0xFFFFFFF0);

		&mov	(&wparam(2),$s2);		# save len

		&mov	(&wparam(2),$s2);		# save len

	&jnz	(&label("enc_loop"));

	&jnz	(&label("enc_loop"));

	&test	($s2,15);

	&test	($s2,15);