Make SPARC assembler modules *really* Purify-friendly.
authorAndy Polyakov <appro@openssl.org>
Tue, 17 Mar 2009 18:31:08 +0000 (18:31 +0000)
committerAndy Polyakov <appro@openssl.org>
Tue, 17 Mar 2009 18:31:08 +0000 (18:31 +0000)
crypto/aes/asm/aes-sparcv9.pl
crypto/sha/asm/sha1-sparcv9a.pl
crypto/sha/asm/sha512-sparcv9.pl

index 76828ee..c57b3a2 100755 (executable)
@@ -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
 
index 9e8d0ca..15eb854 100644 (file)
@@ -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
index fa276d2..54241aa 100644 (file)
@@ -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