Index: openssl/crypto/s390xcpuid.S |
diff --git a/openssl/crypto/s390xcpuid.S b/openssl/crypto/s390xcpuid.S |
deleted file mode 100644 |
index 06815347e6a380bd6229382b49ec3bc014921f04..0000000000000000000000000000000000000000 |
--- a/openssl/crypto/s390xcpuid.S |
+++ /dev/null |
@@ -1,99 +0,0 @@ |
-.text |
- |
-.globl OPENSSL_s390x_facilities |
-.type OPENSSL_s390x_facilities,@function |
-.align 16 |
-OPENSSL_s390x_facilities: |
- lghi %r0,0 |
- larl %r2,OPENSSL_s390xcap_P |
- stg %r0,8(%r2) |
- .long 0xb2b02000 # stfle 0(%r2) |
- brc 8,.Ldone |
- lghi %r0,1 |
- .long 0xb2b02000 # stfle 0(%r2) |
-.Ldone: |
- lg %r2,0(%r2) |
- br %r14 |
-.size OPENSSL_s390x_facilities,.-OPENSSL_s390x_facilities |
- |
-.globl OPENSSL_rdtsc |
-.type OPENSSL_rdtsc,@function |
-.align 16 |
-OPENSSL_rdtsc: |
- stck 16(%r15) |
- lg %r2,16(%r15) |
- br %r14 |
-.size OPENSSL_rdtsc,.-OPENSSL_rdtsc |
- |
-.globl OPENSSL_atomic_add |
-.type OPENSSL_atomic_add,@function |
-.align 16 |
-OPENSSL_atomic_add: |
- l %r1,0(%r2) |
-.Lspin: lr %r0,%r1 |
- ar %r0,%r3 |
- cs %r1,%r0,0(%r2) |
- brc 4,.Lspin |
- lgfr %r2,%r0 # OpenSSL expects the new value |
- br %r14 |
-.size OPENSSL_atomic_add,.-OPENSSL_atomic_add |
- |
-.globl OPENSSL_wipe_cpu |
-.type OPENSSL_wipe_cpu,@function |
-.align 16 |
-OPENSSL_wipe_cpu: |
- xgr %r0,%r0 |
- xgr %r1,%r1 |
- lgr %r2,%r15 |
- xgr %r3,%r3 |
- xgr %r4,%r4 |
- lzdr %f0 |
- lzdr %f1 |
- lzdr %f2 |
- lzdr %f3 |
- lzdr %f4 |
- lzdr %f5 |
- lzdr %f6 |
- lzdr %f7 |
- br %r14 |
-.size OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu |
- |
-.globl OPENSSL_cleanse |
-.type OPENSSL_cleanse,@function |
-.align 16 |
-OPENSSL_cleanse: |
-#if !defined(__s390x__) && !defined(__s390x) |
- llgfr %r3,%r3 |
-#endif |
- lghi %r4,15 |
- lghi %r0,0 |
- clgr %r3,%r4 |
- jh .Lot |
- clgr %r3,%r0 |
- bcr 8,%r14 |
-.Little: |
- stc %r0,0(%r2) |
- la %r2,1(%r2) |
- brctg %r3,.Little |
- br %r14 |
-.align 4 |
-.Lot: tmll %r2,7 |
- jz .Laligned |
- stc %r0,0(%r2) |
- la %r2,1(%r2) |
- brctg %r3,.Lot |
-.Laligned: |
- srlg %r4,%r3,3 |
-.Loop: stg %r0,0(%r2) |
- la %r2,8(%r2) |
- brctg %r4,.Loop |
- lghi %r4,7 |
- ngr %r3,%r4 |
- jnz .Little |
- br %r14 |
-.size OPENSSL_cleanse,.-OPENSSL_cleanse |
- |
-.section .init |
- brasl %r14,OPENSSL_cpuid_setup |
- |
-.comm OPENSSL_s390xcap_P,16,8 |