Make SPARC assembler modules *really* Purify-friendly.

crypto/aes/asm/aes-sparcv9.pl

@@ -523,7 +523,7 @@ AES_encrypt:
 	ld	[%i0+12],%o3
 
 1:	call	.+8
-	sub	%o7,1b-AES_Te,%o4
+	add	%o7,AES_Te-1b,%o4
 	call	_sparcv9_AES_encrypt
 	mov	%i2,%o5
 
@@ -583,7 +583,7 @@ AES_encrypt:
 	or	%l4,%l6,%o3
 
 1:	call	.+8
-	sub	%o7,1b-AES_Te,%o4
+	add	%o7,AES_Te-1b,%o4
 	call	_sparcv9_AES_encrypt
 	mov	%i2,%o5
 
@@ -1069,7 +1069,7 @@ AES_decrypt:
 	ld	[%i0+12],%o3
 
 1:	call	.+8
-	sub	%o7,1b-AES_Td,%o4
+	add	%o7,AES_Td-1b,%o4
 	call	_sparcv9_AES_decrypt
 	mov	%i2,%o5
 
@@ -1129,7 +1129,7 @@ AES_decrypt:
 	or	%l4,%l6,%o3
 
 1:	call	.+8
-	sub	%o7,1b-AES_Td,%o4
+	add	%o7,AES_Td-1b,%o4
 	call	_sparcv9_AES_decrypt
 	mov	%i2,%o5
 

crypto/sha/asm/sha1-sparcv9a.pl

@@ -415,7 +415,7 @@ sha1_block_data_order:
 	add	%fp,$bias-256,$base
 
 1:	call	.+8
-	sub	%o7,1b-vis_const,$tmp0
+	add	%o7,vis_const-1b,$tmp0
 
 	ldd	[$tmp0+0],$VK_00_19
 	ldd	[$tmp0+8],$VK_20_39
@@ -433,7 +433,7 @@ sha1_block_data_order:
 	and	$inp,-8,$inp
 	ld	[$ctx+16],$Ectx
 
-	# X[16] is maintained in FP register bank
+	! X[16] is maintained in FP register bank
 	alignaddr	%g0,$align,%g0
 	ldd		[$inp+0],@X[0]
 	sub		$inp,-64,$Xfer

crypto/sha/asm/sha512-sparcv9.pl

@@ -472,7 +472,7 @@ $code.=<<___ if ($SZ==8); # SHA512
 ___
 $code.=<<___;
 .Lpic:	call	.+8
-	sub	%o7,.Lpic-K${label},$Ktbl
+	add	%o7,K${label}-.Lpic,$Ktbl
 
 	$LD	[$ctx+`0*$SZ`],$A
 	$LD	[$ctx+`1*$SZ`],$B