pariscid.pl: OPENSSL_cleanse to compile on PA-RISC 2.0W and to accept zero

length parameter.

diff --git a/crypto/pariscid.pl b/crypto/pariscid.pl
index bf470ac510acbd451ab297e43960506d14f27b17..1ed53819573fd2d1e0864b48bc9d405062b67b2c 100644 (file)
--- a/crypto/pariscid.pl
+++ b/crypto/pariscid.pl
@@ -97,7 +97,9 @@ OPENSSL_cleanse
        .PROC
        .CALLINFO       NO_CALLS
        .ENTRY
        .PROC
        .CALLINFO       NO_CALLS
        .ENTRY

-       cmpib,*>>       15,$len,Little
+       cmpib,*=        0,$len,Ldone
+       nop
+       cmpib,*>>=      15,$len,Little

        ldi             $SIZE_T-1,%r1
 
 Lalign
        ldi             $SIZE_T-1,%r1
 
 Lalign


@@ -112,14 +114,14 @@ Laligned
        andcm           $len,%r1,%r28
 Loop
        $ST             %r0,0($inp)
        andcm           $len,%r1,%r28
 Loop
        $ST             %r0,0($inp)

-       addib,*vnz      -$SIZE_T,%r28,Loop
+       addib,*<>       -$SIZE_T,%r28,Loop

        ldo             $SIZE_T($inp),$inp
 
        and,*<>         $len,%r1,$len
        b,n             Ldone
 Little
        stb             %r0,0($inp)
        ldo             $SIZE_T($inp),$inp
 
        and,*<>         $len,%r1,$len
        b,n             Ldone
 Little
        stb             %r0,0($inp)

-       addib,*vnz      -1,$len,Little
+       addib,*<>       -1,$len,Little

        ldo             1($inp),$inp
 Ldone
        bv              ($rp)
        ldo             1($inp),$inp
 Ldone
        bv              ($rp)