crypto/sparccpuid.S

   1 #if defined(__SUNPRO_C) && defined(__sparcv9)
   2 # define ABI64  /* They've said -xarch=v9 at command line */
   3 #elif defined(__GNUC__) && defined(__arch64__)
   4 # define ABI64  /* They've said -m64 at command line */
   5 #endif
   6
   7 #ifdef ABI64
   8   .register     %g2,#scratch
   9   .register     %g3,#scratch
  10 # define        FRAME   -192
  11 # define        BIAS    2047
  12 #else
  13 # define        FRAME   -96
  14 # define        BIAS    0
  15 #endif
  16
  17 .text
  18 .align  32
  19 .global OPENSSL_wipe_cpu
  20 .type   OPENSSL_wipe_cpu,#function
  21 ! Keep in mind that this does not excuse us from wiping the stack!
  22 ! This routine wipes registers, but not the backing store [which
  23 ! resides on the stack, toward lower addresses]. To facilitate for
  24 ! stack wiping I return pointer to the top of stack of the *caller*.
  25 OPENSSL_wipe_cpu:
  26         save    %sp,FRAME,%sp
  27         nop
  28 #ifdef __sun
  29 #include <sys/trap.h>
  30         ta      ST_CLEAN_WINDOWS
  31 #else
  32         call    .walk.reg.wins
  33 #endif
  34         nop
  35         call    .PIC.zero.up
  36         mov     .zero-(.-4),%o0
  37         ldd     [%o0],%f0
  38
  39         subcc   %g0,1,%o0
  40         ! Following is V9 "rd %ccr,%o0" instruction. However! V8
  41         ! specification says that it ("rd %asr2,%o0" in V8 terms) does
  42         ! not cause illegal_instruction trap. It therefore can be used
  43         ! to determine if the CPU the code is executing on is V8- or
  44         ! V9-compliant, as V9 returns a distinct value of 0x99,
  45         ! "negative" and "borrow" bits set in both %icc and %xcc.
  46         .word   0x91408000      !rd     %ccr,%o0
  47         cmp     %o0,0x99
  48         bne     .v8
  49         nop
  50                         ! Even though we do not use %fp register bank,
  51                         ! we wipe it as memcpy might have used it...
  52                         .word   0xbfa00040      !fmovd  %f0,%f62
  53                         .word   0xbba00040      !...
  54                         .word   0xb7a00040
  55                         .word   0xb3a00040
  56                         .word   0xafa00040
  57                         .word   0xaba00040
  58                         .word   0xa7a00040
  59                         .word   0xa3a00040
  60                         .word   0x9fa00040
  61                         .word   0x9ba00040
  62                         .word   0x97a00040
  63                         .word   0x93a00040
  64                         .word   0x8fa00040
  65                         .word   0x8ba00040
  66                         .word   0x87a00040
  67                         .word   0x83a00040      !fmovd  %f0,%f32
  68 .v8:                    fmovs   %f1,%f31
  69         clr     %o0
  70                         fmovs   %f0,%f30
  71         clr     %o1
  72                         fmovs   %f1,%f29
  73         clr     %o2
  74                         fmovs   %f0,%f28
  75         clr     %o3
  76                         fmovs   %f1,%f27
  77         clr     %o4
  78                         fmovs   %f0,%f26
  79         clr     %o5
  80                         fmovs   %f1,%f25
  81         clr     %o7
  82                         fmovs   %f0,%f24
  83         clr     %l0
  84                         fmovs   %f1,%f23
  85         clr     %l1
  86                         fmovs   %f0,%f22
  87         clr     %l2
  88                         fmovs   %f1,%f21
  89         clr     %l3
  90                         fmovs   %f0,%f20
  91         clr     %l4
  92                         fmovs   %f1,%f19
  93         clr     %l5
  94                         fmovs   %f0,%f18
  95         clr     %l6
  96                         fmovs   %f1,%f17
  97         clr     %l7
  98                         fmovs   %f0,%f16
  99         clr     %i0
 100                         fmovs   %f1,%f15
 101         clr     %i1
 102                         fmovs   %f0,%f14
 103         clr     %i2
 104                         fmovs   %f1,%f13
 105         clr     %i3
 106                         fmovs   %f0,%f12
 107         clr     %i4
 108                         fmovs   %f1,%f11
 109         clr     %i5
 110                         fmovs   %f0,%f10
 111         clr     %g1
 112                         fmovs   %f1,%f9
 113         clr     %g2
 114                         fmovs   %f0,%f8
 115         clr     %g3
 116                         fmovs   %f1,%f7
 117         clr     %g4
 118                         fmovs   %f0,%f6
 119         clr     %g5
 120                         fmovs   %f1,%f5
 121                         fmovs   %f0,%f4
 122                         fmovs   %f1,%f3
 123                         fmovs   %f0,%f2
 124
 125         add     %fp,BIAS,%i0    ! return pointer to caller´s top of stack
 126
 127         ret
 128         restore
 129
 130 .zero:  .long   0x0,0x0
 131 .PIC.zero.up:
 132         retl
 133         add     %o0,%o7,%o0
 134 #ifdef DEBUG
 135 .global walk_reg_wins
 136 .type   walk_reg_wins,#function
 137 walk_reg_wins:
 138 #endif
 139 .walk.reg.wins:
 140         save    %sp,FRAME,%sp
 141         cmp     %i7,%o7
 142         be      2f
 143         clr     %o0
 144         cmp     %o7,0   ! compiler never cleans %o7...
 145         be      1f      ! could have been a leaf function...
 146         clr     %o1
 147         call    .walk.reg.wins
 148         nop
 149 1:      clr     %o2
 150         clr     %o3
 151         clr     %o4
 152         clr     %o5
 153         clr     %o7
 154         clr     %l0
 155         clr     %l1
 156         clr     %l2
 157         clr     %l3
 158         clr     %l4
 159         clr     %l5
 160         clr     %l6
 161         clr     %l7
 162         add     %o0,1,%i0       ! used for debugging
 163 2:      ret
 164         restore
 165 .size   OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
 166
 167 .global OPENSSL_atomic_add
 168 .type   OPENSSL_atomic_add,#function
 169 OPENSSL_atomic_add:
 170 #ifndef ABI64
 171         subcc   %g0,1,%o2
 172         .word   0x95408000      !rd     %ccr,%o2, see comment above
 173         cmp     %o2,0x99
 174         be      .v9
 175         nop
 176         save    %sp,FRAME,%sp
 177         ba      .enter
 178         nop
 179 #ifdef __sun
 180 ! Note that you don't have to link with libthread to call thr_yield,
 181 ! as libc provides a stub, which is overloaded the moment you link
 182 ! with *either* libpthread or libthread...
 183 #define YIELD_CPU       thr_yield
 184 #else
 185 ! applies at least to Linux and FreeBSD... Feedback expected...
 186 #define YIELD_CPU       sched_yield
 187 #endif
 188 .spin:  call    YIELD_CPU
 189         nop
 190 .enter: ld      [%i0],%i2
 191         cmp     %i2,-4096
 192         be      .spin
 193         mov     -1,%i2
 194         swap    [%i0],%i2
 195         cmp     %i2,-1
 196         be      .spin
 197         add     %i2,%i1,%i2
 198         stbar
 199         st      %i2,[%i0]
 200         sra     %i2,%g0,%i0
 201         ret
 202         restore
 203 .v9:
 204 #endif
 205         ld      [%o0],%o2
 206 1:      add     %o1,%o2,%o3
 207         .word   0xd7e2100a      !cas [%o0],%o2,%o3, compare [%o0] with %o2 and swap %o3
 208         cmp     %o2,%o3
 209         bne     1b
 210         mov     %o3,%o2         ! cas is always fetching to dest. register
 211         add     %o1,%o2,%o0     ! OpenSSL expects the new value
 212         retl
 213         sra     %o0,%g0,%o0     ! we return signed int, remember?
 214 .size   OPENSSL_atomic_add,.-OPENSSL_atomic_add
 215
 216 .global OPENSSL_rdtsc
 217         subcc   %g0,1,%o0
 218         .word   0x91408000      !rd     %ccr,%o0
 219         cmp     %o0,0x99
 220         bne     .notsc
 221         xor     %o0,%o0,%o0
 222         save    %sp,FRAME-16,%sp
 223         mov     513,%o0         !SI_PLATFORM
 224         add     %sp,BIAS+16,%o1
 225         call    sysinfo
 226         mov     256,%o2
 227
 228         add     %sp,BIAS-16,%o1
 229         ld      [%o1],%l0
 230         ld      [%o1+4],%l1
 231         ld      [%o1+8],%l2
 232         mov     %lo('SUNW'),%l3
 233         ret
 234         restore
 235 .notsc:
 236         retl
 237         nop
 238 .type   OPENSSL_rdtsc,#function
 239 .size   OPENSSL_rdtsc,.-OPENSSL_atomic_add