mirror of
https://github.com/openssl/openssl.git
synced 2024-11-24 02:23:51 +08:00
e0a651945c
Add copyright to most .pl files This does NOT cover any .pl file that has other copyright in it. Most of those are Andy's but some are public domain. Fix typo's in some existing files. Reviewed-by: Richard Levitte <levitte@openssl.org>
233 lines
3.8 KiB
Raku
233 lines
3.8 KiB
Raku
#! /usr/bin/env perl
|
|
# Copyright 2009-2016 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the OpenSSL license (the "License"). You may not use
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
# in the file LICENSE in the source distribution or at
|
|
# https://www.openssl.org/source/license.html
|
|
|
|
|
|
$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,L\$done
|
|
nop
|
|
cmpib,*>>= 15,$len,L\$ittle
|
|
ldi $SIZE_T-1,%r1
|
|
|
|
L\$align
|
|
and,*<> $inp,%r1,%r28
|
|
b,n L\$aligned
|
|
stb %r0,0($inp)
|
|
ldo -1($len),$len
|
|
b L\$align
|
|
ldo 1($inp),$inp
|
|
|
|
L\$aligned
|
|
andcm $len,%r1,%r28
|
|
L\$ot
|
|
$ST %r0,0($inp)
|
|
addib,*<> -$SIZE_T,%r28,L\$ot
|
|
ldo $SIZE_T($inp),$inp
|
|
|
|
and,*<> $len,%r1,$len
|
|
b,n L\$done
|
|
L\$ittle
|
|
stb %r0,0($inp)
|
|
addib,*<> -1,$len,L\$ittle
|
|
ldo 1($inp),$inp
|
|
L\$done
|
|
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)
|
|
L\$oop
|
|
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,L\$oop
|
|
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
|
|
L\$oop2
|
|
copy $diff,$lastdiff
|
|
fdc 0($out)
|
|
ldw 0($out),$tick
|
|
add $diff,$tick,$tick
|
|
stw $tick,0($out)
|
|
|
|
addib,= -1,$max,L\$done2
|
|
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,L\$oop2
|
|
shladd,l $tick,2,$out,$out
|
|
L\$done2
|
|
bv ($rp)
|
|
.EXIT
|
|
add $rv,$cnt,$rv
|
|
.PROCEND
|
|
___
|
|
}
|
|
$code =~ s/cmpib,\*/comib,/gm if ($SIZE_T==4);
|
|
$code =~ s/,\*/,/gm if ($SIZE_T==4);
|
|
$code =~ s/\bbv\b/bve/gm if ($SIZE_T==8);
|
|
print $code;
|
|
close STDOUT;
|
|
|