(_aes_crypt): Unrolled source loop.

Rev: src/nettle/sparc/aes.asm:1.111

diff --git a/sparc/aes.asm b/sparc/aes.asm
index 318b5ce0b6c06011764d042f7ed481ec25e8d98c..e7d007741952b306e5d74d70b1a06afa35a6ab74 100644 (file)
--- a/sparc/aes.asm
+++ b/sparc/aes.asm
@@ -63,6 +63,24 @@ define(t1, %o1)
 define(t2, %o2)
 define(t3, %o3)
 
+C AES_LOAD(i)
+C Get one word of input, XOR with first subkey, store in wtxt
+define(<AES_LOAD>, <
+       ldub    [src + $1], t0
+       ldub    [src + $1 + 1], t1
+       sll     t1, 8, t1
+       or      t0, t1, t0
+       ldub    [src + $1 + 2], t2
+       sll     t2, 16, t2
+       or      t0, t2, t0
+       ldub    [src + $1 + 3], t1
+       sll     t1, 24, t1
+       or      t0, t1, t0
+       ld      [key + $1], t2
+       xor     t0, t2, t0
+       st      t0, [wtxt + $1]
+       >)dnl
+
 C AES_ROUND(i)
 C Compute one word in the round function. 
 C Input in wtxt, output stored in tmp + i.
@@ -186,8 +204,80 @@ _aes_crypt:
        ! For stop condition. Note that src is incremented in the
        ! delay slot
        add     src, 8, %g1
+
+       C AES_LOAD(0)   ! i = 0
+       C AES_LOAD(4)   ! i = 1
+       C AES_LOAD(8)   ! i = 2
+       C AES_LOAD(12)  ! i = 3
+       C add   src, 16, src
+                       
+C .Lsource_loop:
+       C Begin loop
+       C i = 0
+       ldub    [src+3], t3
+       ldub    [src+2], t2
+       sll     t3, 24, t3
+       ldub    [src+1], t1
+       
+       sll     t2, 16, t2
+       or      t3, t2, t3
+       ldub    [src], t0
+       sll     t1, 8, t1
+       
+       ! Get subkey
+       ld      [src+%g2], t2
+       or      t3, t1, t3
+       or      t3, t0, t3
+       xor     t3, t2, t3
+       
+       C cmp   src, %g1
+       st      t3, [src+%g3]
+       C bleu  .Lsource_loop
+       add     src, 4, src
+
+       C i = 1
+       ldub    [src+3], t3
+       ldub    [src+2], t2
+       sll     t3, 24, t3
+       ldub    [src+1], t1
+       
+       sll     t2, 16, t2
+       or      t3, t2, t3
+       ldub    [src], t0
+       sll     t1, 8, t1
+       
+       ! Get subkey
+       ld      [src+%g2], t2
+       or      t3, t1, t3
+       or      t3, t0, t3
+       xor     t3, t2, t3
+       
+       C cmp   src, %g1
+       st      t3, [src+%g3]
+       C bleu  .Lsource_loop
+       add     src, 4, src
+       C i = 2
+       ldub    [src+3], t3
+       ldub    [src+2], t2
+       sll     t3, 24, t3
+       ldub    [src+1], t1
+       
+       sll     t2, 16, t2
+       or      t3, t2, t3
+       ldub    [src], t0
+       sll     t1, 8, t1
        
-.Lsource_loop:
+       ! Get subkey
+       ld      [src+%g2], t2
+       or      t3, t1, t3
+       or      t3, t0, t3
+       xor     t3, t2, t3
+       
+       C cmp   src, %g1
+       st      t3, [src+%g3]
+       C bleu  .Lsource_loop
+       add     src, 4, src
+       C i = 3
        ldub    [src+3], t3
        ldub    [src+2], t2
        sll     t3, 24, t3
@@ -204,10 +294,12 @@ _aes_crypt:
        or      t3, t0, t3
        xor     t3, t2, t3
        
-       cmp     src, %g1
+       C cmp   src, %g1
        st      t3, [src+%g3]
-       bleu    .Lsource_loop
+       C bleu  .Lsource_loop
        add     src, 4, src
+
+       C End loop
        
        sub     nrounds, 1, round
        add     ctx, 16, key