From e22b864846d0ba7be13bf791843001f53ee54f70 Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Tue, 17 Mar 2009 18:31:08 +0000
Subject: [PATCH] Make SPARC assembler modules *really* Purify-friendly.

---
 crypto/aes/asm/aes-sparcv9.pl    | 8 ++++----
 crypto/sha/asm/sha1-sparcv9a.pl  | 4 ++--
 crypto/sha/asm/sha512-sparcv9.pl | 2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/crypto/aes/asm/aes-sparcv9.pl b/crypto/aes/asm/aes-sparcv9.pl
index 76828ee767..c57b3a2d6d 100755
--- a/crypto/aes/asm/aes-sparcv9.pl
+++ b/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
 
diff --git a/crypto/sha/asm/sha1-sparcv9a.pl b/crypto/sha/asm/sha1-sparcv9a.pl
index 9e8d0ca382..15eb854bad 100644
--- a/crypto/sha/asm/sha1-sparcv9a.pl
+++ b/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
diff --git a/crypto/sha/asm/sha512-sparcv9.pl b/crypto/sha/asm/sha512-sparcv9.pl
index fa276d258b..54241aab50 100644
--- a/crypto/sha/asm/sha512-sparcv9.pl
+++ b/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
-- 
2.25.1