5 open STDOUT
,">$output";
7 if ($flavour =~ /64/) {
24 .SUBSPA \
$CODE\
$,QUAD
=0,ALIGN
=8,ACCESS
=0x2C,CODE_ONLY
26 .EXPORT OPENSSL_cpuid_setup
,ENTRY
37 .EXPORT OPENSSL_rdtsc
,ENTRY
49 .EXPORT OPENSSL_wipe_cpu
,ENTRY
94 .EXPORT OPENSSL_cleanse
,ENTRY
,ARGW0
=GR
,ARGW1
=GR
100 cmpib
,*= 0,$len,Ldone
102 cmpib
,*>>= 15,$len,Little
106 and,*<> $inp,%r1,%r28
117 addib
,*<> -$SIZE_T,%r28,Loop
118 ldo
$SIZE_T($inp),$inp
120 and,*<> $len,%r1,$len
124 addib
,*<> -1,$len,Little
134 $code =~ s/cmpib,\*/comib,/gm if ($SIZE_T==4);
135 $code =~ s/,\*/,/gm if ($SIZE_T==4);