crypto/s390xcpuid.S

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