The use of NIDs in the password based encryption table can result in
[openssl.git] / crypto / s390xcpuid.S
1 .text
2
3 .globl  OPENSSL_cpuid_setup
4 .type   OPENSSL_cpuid_setup,@function
5 .align  16
6 OPENSSL_cpuid_setup:
7         br      %r14            # reserved for future
8 .size   OPENSSL_cpuid_setup,.-OPENSSL_cpuid_setup
9
10 .globl  OPENSSL_s390x_facilities
11 .type   OPENSSL_s390x_facilities,@function
12 .align  16
13 OPENSSL_s390x_facilities:
14         lghi    %r0,0
15         .long   0xb2b0f010      # stfle 16(%r15)
16         lg      %r2,16(%r15)
17         br      %r14
18 .size   OPENSSL_s390x_facilities,.-OPENSSL_s390x_facilities
19
20 .globl  OPENSSL_rdtsc
21 .type   OPENSSL_rdtsc,@function
22 .align  16
23 OPENSSL_rdtsc:
24         stck    16(%r15)
25         lg      %r2,16(%r15)
26         br      %r14
27 .size   OPENSSL_rdtsc,.-OPENSSL_rdtsc
28
29 .globl  OPENSSL_atomic_add
30 .type   OPENSSL_atomic_add,@function
31 .align  16
32 OPENSSL_atomic_add:
33         l       %r1,0(%r2)
34 .Lspin: lr      %r0,%r1
35         ar      %r0,%r3
36         cs      %r1,%r0,0(%r2)
37         brc     4,.Lspin
38         lgfr    %r2,%r0         # OpenSSL expects the new value
39         br      %r14
40 .size   OPENSSL_atomic_add,.-OPENSSL_atomic_add
41
42 .globl  OPENSSL_wipe_cpu
43 .type   OPENSSL_wipe_cpu,@function
44 .align  16
45 OPENSSL_wipe_cpu:
46         xgr     %r0,%r0
47         xgr     %r1,%r1
48         lgr     %r2,%r15
49         xgr     %r3,%r3
50         xgr     %r4,%r4
51         lzdr    %f0
52         lzdr    %f1
53         lzdr    %f2
54         lzdr    %f3
55         lzdr    %f4
56         lzdr    %f5
57         lzdr    %f6
58         lzdr    %f7
59         br      %r14
60 .size   OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
61
62 .globl  OPENSSL_cleanse
63 .type   OPENSSL_cleanse,@function
64 .align  16
65 OPENSSL_cleanse:
66         lghi    %r4,15
67         lghi    %r0,0
68         clgr    %r3,%r4
69         jh      .Lot
70 .Little:
71         stc     %r0,0(%r2)
72         la      %r2,1(%r2)
73         brctg   %r3,.Little
74         br      %r14
75 .align  4
76 .Lot:   tmll    %r2,7
77         jz      .Laligned
78         stc     %r0,0(%r2)
79         la      %r2,1(%r2)
80         brctg   %r3,.Lot
81 .Laligned:
82         srlg    %r4,%r3,3
83 .Loop:  stg     %r0,0(%r2)
84         la      %r2,8(%r2)
85         brctg   %r4,.Loop
86         lghi    %r4,7
87         ngr     %r3,%r4
88         jnz     .Little
89         br      %r14
90 .size   OPENSSL_cleanse,.-OPENSSL_cleanse