Minor formatting fixes in crypto/sha/asm.
authorAndy Polyakov <appro@openssl.org>
Tue, 18 Sep 2007 21:12:02 +0000 (21:12 +0000)
committerAndy Polyakov <appro@openssl.org>
Tue, 18 Sep 2007 21:12:02 +0000 (21:12 +0000)
crypto/sha/asm/sha256-586.pl
crypto/sha/asm/sha512-armv4.pl

index 4cc1576b8968420591cb11dfd7b5bd390111be53..387ccb0eb7630fc23625263b582ea1a13f4e459f 100644 (file)
@@ -45,17 +45,17 @@ $Xoff=&DWP(32,"esp");
 $K256="ebp";
 
 sub BODY_00_15() {
-    my $in_16_64=shift;
+    my $in_16_63=shift;
 
        &mov    ("ecx",$E);
-        &add   ($T,&DWP(4*(8+15+16-9),"esp"))  if ($in_16_64); # T += X[-7]
+        &add   ($T,&DWP(4*(8+15+16-9),"esp"))  if ($in_16_63); # T += X[-7]
        &ror    ("ecx",6);
        &mov    ("edi",$E);
        &ror    ("edi",11);
         &mov   ("esi",$Foff);
        &xor    ("ecx","edi");
        &ror    ("edi",25-11);
-        &mov   (&DWP(4*(8+15),"esp"),$T)       if ($in_16_64); # save X[0]
+        &mov   (&DWP(4*(8+15),"esp"),$T)       if ($in_16_63); # save X[0]
        &xor    ("ecx","edi");  # Sigma1(e)
         &mov   ("edi",$Goff);
        &add    ($T,"ecx");     # T += Sigma1(e)
@@ -92,7 +92,7 @@ sub BODY_00_15() {
 
        &add    ($K256,4);
        &add    ($A,$T);        # h += T
-        &mov   ($T,&DWP(4*(8+15+16-1),"esp"))  if ($in_16_64); # preload T
+        &mov   ($T,&DWP(4*(8+15+16-1),"esp"))  if ($in_16_63); # preload T
        &add    ($E,"esi");     # d += K256[i]
        &add    ($A,"esi");     # h += K256[i]
 }
index 0d2ef8b1f44ff66ae8a51be019a5b241317f518f..7e7a726b17297bd61c7bfed26a262955ccb9e9bc 100644 (file)
@@ -104,7 +104,7 @@ $code.=<<___;
        orreq   $Ktbl,$Ktbl,#1
 
        ldr     $t2,[sp,#$Boff+0]       @ b.lo
-       ldr     $t3,[sp,#$Coff+0]               @ c.lo
+       ldr     $t3,[sp,#$Coff+0]       @ c.lo
        @ Sigma0(x)     (ROTR((x),28) ^ ROTR((x),34) ^ ROTR((x),39))
        @ LO            lo>>28^hi<<4  ^ hi>>2^lo<<30 ^ hi>>7^lo<<25
        @ HI            hi>>28^lo<<4  ^ lo>>2^hi<<30 ^ lo>>7^hi<<25