| Index: openssl/crypto/pariscid.pl
|
| diff --git a/openssl/crypto/pariscid.pl b/openssl/crypto/pariscid.pl
|
| deleted file mode 100644
|
| index 477ec9b87dd7d36ccb190001ec5bd4d00d9d6b26..0000000000000000000000000000000000000000
|
| --- a/openssl/crypto/pariscid.pl
|
| +++ /dev/null
|
| @@ -1,224 +0,0 @@
|
| -#!/usr/bin/env perl
|
| -
|
| -$flavour = shift;
|
| -$output = shift;
|
| -open STDOUT,">$output";
|
| -
|
| -if ($flavour =~ /64/) {
|
| - $LEVEL ="2.0W";
|
| - $SIZE_T =8;
|
| - $ST ="std";
|
| -} else {
|
| - $LEVEL ="1.1";
|
| - $SIZE_T =4;
|
| - $ST ="stw";
|
| -}
|
| -
|
| -$rp="%r2";
|
| -$sp="%r30";
|
| -$rv="%r28";
|
| -
|
| -$code=<<___;
|
| - .LEVEL $LEVEL
|
| - .SPACE \$TEXT\$
|
| - .SUBSPA \$CODE\$,QUAD=0,ALIGN=8,ACCESS=0x2C,CODE_ONLY
|
| -
|
| - .EXPORT OPENSSL_cpuid_setup,ENTRY
|
| - .ALIGN 8
|
| -OPENSSL_cpuid_setup
|
| - .PROC
|
| - .CALLINFO NO_CALLS
|
| - .ENTRY
|
| - bv ($rp)
|
| - .EXIT
|
| - nop
|
| - .PROCEND
|
| -
|
| - .EXPORT OPENSSL_rdtsc,ENTRY
|
| - .ALIGN 8
|
| -OPENSSL_rdtsc
|
| - .PROC
|
| - .CALLINFO NO_CALLS
|
| - .ENTRY
|
| - mfctl %cr16,$rv
|
| - bv ($rp)
|
| - .EXIT
|
| - nop
|
| - .PROCEND
|
| -
|
| - .EXPORT OPENSSL_wipe_cpu,ENTRY
|
| - .ALIGN 8
|
| -OPENSSL_wipe_cpu
|
| - .PROC
|
| - .CALLINFO NO_CALLS
|
| - .ENTRY
|
| - xor %r0,%r0,%r1
|
| - fcpy,dbl %fr0,%fr4
|
| - xor %r0,%r0,%r19
|
| - fcpy,dbl %fr0,%fr5
|
| - xor %r0,%r0,%r20
|
| - fcpy,dbl %fr0,%fr6
|
| - xor %r0,%r0,%r21
|
| - fcpy,dbl %fr0,%fr7
|
| - xor %r0,%r0,%r22
|
| - fcpy,dbl %fr0,%fr8
|
| - xor %r0,%r0,%r23
|
| - fcpy,dbl %fr0,%fr9
|
| - xor %r0,%r0,%r24
|
| - fcpy,dbl %fr0,%fr10
|
| - xor %r0,%r0,%r25
|
| - fcpy,dbl %fr0,%fr11
|
| - xor %r0,%r0,%r26
|
| - fcpy,dbl %fr0,%fr22
|
| - xor %r0,%r0,%r29
|
| - fcpy,dbl %fr0,%fr23
|
| - xor %r0,%r0,%r31
|
| - fcpy,dbl %fr0,%fr24
|
| - fcpy,dbl %fr0,%fr25
|
| - fcpy,dbl %fr0,%fr26
|
| - fcpy,dbl %fr0,%fr27
|
| - fcpy,dbl %fr0,%fr28
|
| - fcpy,dbl %fr0,%fr29
|
| - fcpy,dbl %fr0,%fr30
|
| - fcpy,dbl %fr0,%fr31
|
| - bv ($rp)
|
| - .EXIT
|
| - ldo 0($sp),$rv
|
| - .PROCEND
|
| -___
|
| -{
|
| -my $inp="%r26";
|
| -my $len="%r25";
|
| -
|
| -$code.=<<___;
|
| - .EXPORT OPENSSL_cleanse,ENTRY,ARGW0=GR,ARGW1=GR
|
| - .ALIGN 8
|
| -OPENSSL_cleanse
|
| - .PROC
|
| - .CALLINFO NO_CALLS
|
| - .ENTRY
|
| - cmpib,*= 0,$len,Ldone
|
| - nop
|
| - cmpib,*>>= 15,$len,Little
|
| - ldi $SIZE_T-1,%r1
|
| -
|
| -Lalign
|
| - and,*<> $inp,%r1,%r28
|
| - b,n Laligned
|
| - stb %r0,0($inp)
|
| - ldo -1($len),$len
|
| - b Lalign
|
| - ldo 1($inp),$inp
|
| -
|
| -Laligned
|
| - andcm $len,%r1,%r28
|
| -Lot
|
| - $ST %r0,0($inp)
|
| - addib,*<> -$SIZE_T,%r28,Lot
|
| - ldo $SIZE_T($inp),$inp
|
| -
|
| - and,*<> $len,%r1,$len
|
| - b,n Ldone
|
| -Little
|
| - stb %r0,0($inp)
|
| - addib,*<> -1,$len,Little
|
| - ldo 1($inp),$inp
|
| -Ldone
|
| - bv ($rp)
|
| - .EXIT
|
| - nop
|
| - .PROCEND
|
| -___
|
| -}
|
| -{
|
| -my ($out,$cnt,$max)=("%r26","%r25","%r24");
|
| -my ($tick,$lasttick)=("%r23","%r22");
|
| -my ($diff,$lastdiff)=("%r21","%r20");
|
| -
|
| -$code.=<<___;
|
| - .EXPORT OPENSSL_instrument_bus,ENTRY,ARGW0=GR,ARGW1=GR
|
| - .ALIGN 8
|
| -OPENSSL_instrument_bus
|
| - .PROC
|
| - .CALLINFO NO_CALLS
|
| - .ENTRY
|
| - copy $cnt,$rv
|
| - mfctl %cr16,$tick
|
| - copy $tick,$lasttick
|
| - ldi 0,$diff
|
| -
|
| - fdc 0($out)
|
| - ldw 0($out),$tick
|
| - add $diff,$tick,$tick
|
| - stw $tick,0($out)
|
| -Loop
|
| - mfctl %cr16,$tick
|
| - sub $tick,$lasttick,$diff
|
| - copy $tick,$lasttick
|
| -
|
| - fdc 0($out)
|
| - ldw 0($out),$tick
|
| - add $diff,$tick,$tick
|
| - stw $tick,0($out)
|
| -
|
| - addib,<> -1,$cnt,Loop
|
| - addi 4,$out,$out
|
| -
|
| - bv ($rp)
|
| - .EXIT
|
| - sub $rv,$cnt,$rv
|
| - .PROCEND
|
| -
|
| - .EXPORT OPENSSL_instrument_bus2,ENTRY,ARGW0=GR,ARGW1=GR
|
| - .ALIGN 8
|
| -OPENSSL_instrument_bus2
|
| - .PROC
|
| - .CALLINFO NO_CALLS
|
| - .ENTRY
|
| - copy $cnt,$rv
|
| - sub %r0,$cnt,$cnt
|
| -
|
| - mfctl %cr16,$tick
|
| - copy $tick,$lasttick
|
| - ldi 0,$diff
|
| -
|
| - fdc 0($out)
|
| - ldw 0($out),$tick
|
| - add $diff,$tick,$tick
|
| - stw $tick,0($out)
|
| -
|
| - mfctl %cr16,$tick
|
| - sub $tick,$lasttick,$diff
|
| - copy $tick,$lasttick
|
| -Loop2
|
| - copy $diff,$lastdiff
|
| - fdc 0($out)
|
| - ldw 0($out),$tick
|
| - add $diff,$tick,$tick
|
| - stw $tick,0($out)
|
| -
|
| - addib,= -1,$max,Ldone2
|
| - nop
|
| -
|
| - mfctl %cr16,$tick
|
| - sub $tick,$lasttick,$diff
|
| - copy $tick,$lasttick
|
| - cmpclr,<> $lastdiff,$diff,$tick
|
| - ldi 1,$tick
|
| -
|
| - ldi 1,%r1
|
| - xor %r1,$tick,$tick
|
| - addb,<> $tick,$cnt,Loop2
|
| - shladd,l $tick,2,$out,$out
|
| -Ldone2
|
| - bv ($rp)
|
| - .EXIT
|
| - add $rv,$cnt,$rv
|
| - .PROCEND
|
| -___
|
| -}
|
| -$code =~ s/cmpib,\*/comib,/gm if ($SIZE_T==4);
|
| -$code =~ s/,\*/,/gm if ($SIZE_T==4);
|
| -print $code;
|
| -close STDOUT;
|
| -
|
|
|