evp: prevent underflow in base64 decoding
[openssl.git] / crypto / ppccpuid.pl
1 #!/usr/bin/env perl
2
3 $flavour = shift;
4
5 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
6 ( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
7 ( $xlate="${dir}perlasm/ppc-xlate.pl" and -f $xlate) or
8 die "can't locate ppc-xlate.pl";
9
10 open STDOUT,"| $^X $xlate $flavour ".shift || die "can't call $xlate: $!";
11
12 if ($flavour=~/64/) {
13     $CMPLI="cmpldi";
14     $SHRLI="srdi";
15     $SIGNX="extsw";
16 } else {
17     $CMPLI="cmplwi";
18     $SHRLI="srwi";
19     $SIGNX="mr";
20 }
21
22 $code=<<___;
23 .machine        "any"
24 .text
25
26 .globl  .OPENSSL_ppc64_probe
27 .align  4
28 .OPENSSL_ppc64_probe:
29         fcfid   f1,f1
30         extrdi  r0,r0,32,0
31         blr
32         .long   0
33         .byte   0,12,0x14,0,0,0,0,0
34
35 .globl  .OPENSSL_altivec_probe
36 .align  4
37 .OPENSSL_altivec_probe:
38         .long   0x10000484      # vor   v0,v0,v0
39         blr
40         .long   0
41         .byte   0,12,0x14,0,0,0,0,0
42
43 .globl  .OPENSSL_wipe_cpu
44 .align  4
45 .OPENSSL_wipe_cpu:
46         xor     r0,r0,r0
47         fmr     f0,f31
48         fmr     f1,f31
49         fmr     f2,f31
50         mr      r3,r1
51         fmr     f3,f31
52         xor     r4,r4,r4
53         fmr     f4,f31
54         xor     r5,r5,r5
55         fmr     f5,f31
56         xor     r6,r6,r6
57         fmr     f6,f31
58         xor     r7,r7,r7
59         fmr     f7,f31
60         xor     r8,r8,r8
61         fmr     f8,f31
62         xor     r9,r9,r9
63         fmr     f9,f31
64         xor     r10,r10,r10
65         fmr     f10,f31
66         xor     r11,r11,r11
67         fmr     f11,f31
68         xor     r12,r12,r12
69         fmr     f12,f31
70         fmr     f13,f31
71         blr
72         .long   0
73         .byte   0,12,0x14,0,0,0,0,0
74
75 .globl  .OPENSSL_atomic_add
76 .align  4
77 .OPENSSL_atomic_add:
78 Ladd:   lwarx   r5,0,r3
79         add     r0,r4,r5
80         stwcx.  r0,0,r3
81         bne-    Ladd
82         $SIGNX  r3,r0
83         blr
84         .long   0
85         .byte   0,12,0x14,0,0,0,2,0
86         .long   0
87
88 .globl  .OPENSSL_rdtsc
89 .align  4
90 .OPENSSL_rdtsc:
91         mftb    r3
92         mftbu   r4
93         blr
94         .long   0
95         .byte   0,12,0x14,0,0,0,0,0
96
97 .globl  .OPENSSL_cleanse
98 .align  4
99 .OPENSSL_cleanse:
100         $CMPLI  r4,7
101         li      r0,0
102         bge     Lot
103         $CMPLI  r4,0
104         beqlr-
105 Little: mtctr   r4
106         stb     r0,0(r3)
107         addi    r3,r3,1
108         bdnz    \$-8
109         blr
110 Lot:    andi.   r5,r3,3
111         beq     Laligned
112         stb     r0,0(r3)
113         subi    r4,r4,1
114         addi    r3,r3,1
115         b       Lot
116 Laligned:
117         $SHRLI  r5,r4,2
118         mtctr   r5
119         stw     r0,0(r3)
120         addi    r3,r3,4
121         bdnz    \$-8
122         andi.   r4,r4,3
123         bne     Little
124         blr
125         .long   0
126         .byte   0,12,0x14,0,0,0,2,0
127         .long   0
128 ___
129
130 $code =~ s/\`([^\`]*)\`/eval $1/gem;
131 print $code;
132 close STDOUT;