240 lines
4.6 KiB
ArmAsm
240 lines
4.6 KiB
ArmAsm
#if defined(__SUNPRO_C) && defined(__sparcv9)
|
||
# define ABI64 /* They've said -xarch=v9 at command line */
|
||
#elif defined(__GNUC__) && defined(__arch64__)
|
||
# define ABI64 /* They've said -m64 at command line */
|
||
#endif
|
||
|
||
#ifdef ABI64
|
||
.register %g2,#scratch
|
||
.register %g3,#scratch
|
||
# define FRAME -192
|
||
# define BIAS 2047
|
||
#else
|
||
# define FRAME -96
|
||
# define BIAS 0
|
||
#endif
|
||
|
||
.text
|
||
.align 32
|
||
.global OPENSSL_wipe_cpu
|
||
.type OPENSSL_wipe_cpu,#function
|
||
! Keep in mind that this does not excuse us from wiping the stack!
|
||
! This routine wipes registers, but not the backing store [which
|
||
! resides on the stack, toward lower addresses]. To facilitate for
|
||
! stack wiping I return pointer to the top of stack of the *caller*.
|
||
OPENSSL_wipe_cpu:
|
||
save %sp,FRAME,%sp
|
||
nop
|
||
#ifdef __sun
|
||
#include <sys/trap.h>
|
||
ta ST_CLEAN_WINDOWS
|
||
#else
|
||
call .walk.reg.wins
|
||
#endif
|
||
nop
|
||
call .PIC.zero.up
|
||
mov .zero-(.-4),%o0
|
||
ldd [%o0],%f0
|
||
|
||
subcc %g0,1,%o0
|
||
! Following is V9 "rd %ccr,%o0" instruction. However! V8
|
||
! specification says that it ("rd %asr2,%o0" in V8 terms) does
|
||
! not cause illegal_instruction trap. It therefore can be used
|
||
! to determine if the CPU the code is executing on is V8- or
|
||
! V9-compliant, as V9 returns a distinct value of 0x99,
|
||
! "negative" and "borrow" bits set in both %icc and %xcc.
|
||
.word 0x91408000 !rd %ccr,%o0
|
||
cmp %o0,0x99
|
||
bne .v8
|
||
nop
|
||
! Even though we do not use %fp register bank,
|
||
! we wipe it as memcpy might have used it...
|
||
.word 0xbfa00040 !fmovd %f0,%f62
|
||
.word 0xbba00040 !...
|
||
.word 0xb7a00040
|
||
.word 0xb3a00040
|
||
.word 0xafa00040
|
||
.word 0xaba00040
|
||
.word 0xa7a00040
|
||
.word 0xa3a00040
|
||
.word 0x9fa00040
|
||
.word 0x9ba00040
|
||
.word 0x97a00040
|
||
.word 0x93a00040
|
||
.word 0x8fa00040
|
||
.word 0x8ba00040
|
||
.word 0x87a00040
|
||
.word 0x83a00040 !fmovd %f0,%f32
|
||
.v8: fmovs %f1,%f31
|
||
clr %o0
|
||
fmovs %f0,%f30
|
||
clr %o1
|
||
fmovs %f1,%f29
|
||
clr %o2
|
||
fmovs %f0,%f28
|
||
clr %o3
|
||
fmovs %f1,%f27
|
||
clr %o4
|
||
fmovs %f0,%f26
|
||
clr %o5
|
||
fmovs %f1,%f25
|
||
clr %o7
|
||
fmovs %f0,%f24
|
||
clr %l0
|
||
fmovs %f1,%f23
|
||
clr %l1
|
||
fmovs %f0,%f22
|
||
clr %l2
|
||
fmovs %f1,%f21
|
||
clr %l3
|
||
fmovs %f0,%f20
|
||
clr %l4
|
||
fmovs %f1,%f19
|
||
clr %l5
|
||
fmovs %f0,%f18
|
||
clr %l6
|
||
fmovs %f1,%f17
|
||
clr %l7
|
||
fmovs %f0,%f16
|
||
clr %i0
|
||
fmovs %f1,%f15
|
||
clr %i1
|
||
fmovs %f0,%f14
|
||
clr %i2
|
||
fmovs %f1,%f13
|
||
clr %i3
|
||
fmovs %f0,%f12
|
||
clr %i4
|
||
fmovs %f1,%f11
|
||
clr %i5
|
||
fmovs %f0,%f10
|
||
clr %g1
|
||
fmovs %f1,%f9
|
||
clr %g2
|
||
fmovs %f0,%f8
|
||
clr %g3
|
||
fmovs %f1,%f7
|
||
clr %g4
|
||
fmovs %f0,%f6
|
||
clr %g5
|
||
fmovs %f1,%f5
|
||
fmovs %f0,%f4
|
||
fmovs %f1,%f3
|
||
fmovs %f0,%f2
|
||
|
||
add %fp,BIAS,%i0 ! return pointer to caller<EFBFBD>s top of stack
|
||
|
||
ret
|
||
restore
|
||
|
||
.zero: .long 0x0,0x0
|
||
.PIC.zero.up:
|
||
retl
|
||
add %o0,%o7,%o0
|
||
#ifdef DEBUG
|
||
.global walk_reg_wins
|
||
.type walk_reg_wins,#function
|
||
walk_reg_wins:
|
||
#endif
|
||
.walk.reg.wins:
|
||
save %sp,FRAME,%sp
|
||
cmp %i7,%o7
|
||
be 2f
|
||
clr %o0
|
||
cmp %o7,0 ! compiler never cleans %o7...
|
||
be 1f ! could have been a leaf function...
|
||
clr %o1
|
||
call .walk.reg.wins
|
||
nop
|
||
1: clr %o2
|
||
clr %o3
|
||
clr %o4
|
||
clr %o5
|
||
clr %o7
|
||
clr %l0
|
||
clr %l1
|
||
clr %l2
|
||
clr %l3
|
||
clr %l4
|
||
clr %l5
|
||
clr %l6
|
||
clr %l7
|
||
add %o0,1,%i0 ! used for debugging
|
||
2: ret
|
||
restore
|
||
.size OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
|
||
|
||
.global OPENSSL_atomic_add
|
||
.type OPENSSL_atomic_add,#function
|
||
OPENSSL_atomic_add:
|
||
#ifndef ABI64
|
||
subcc %g0,1,%o2
|
||
.word 0x95408000 !rd %ccr,%o2, see comment above
|
||
cmp %o2,0x99
|
||
be .v9
|
||
nop
|
||
save %sp,FRAME,%sp
|
||
ba .enter
|
||
nop
|
||
#ifdef __sun
|
||
! Note that you don't have to link with libthread to call thr_yield,
|
||
! as libc provides a stub, which is overloaded the moment you link
|
||
! with *either* libpthread or libthread...
|
||
#define YIELD_CPU thr_yield
|
||
#else
|
||
! applies at least to Linux and FreeBSD... Feedback expected...
|
||
#define YIELD_CPU sched_yield
|
||
#endif
|
||
.spin: call YIELD_CPU
|
||
nop
|
||
.enter: ld [%i0],%i2
|
||
cmp %i2,-4096
|
||
be .spin
|
||
mov -1,%i2
|
||
swap [%i0],%i2
|
||
cmp %i2,-1
|
||
be .spin
|
||
add %i2,%i1,%i2
|
||
stbar
|
||
st %i2,[%i0]
|
||
sra %i2,%g0,%i0
|
||
ret
|
||
restore
|
||
.v9:
|
||
#endif
|
||
ld [%o0],%o2
|
||
1: add %o1,%o2,%o3
|
||
.word 0xd7e2100a !cas [%o0],%o2,%o3, compare [%o0] with %o2 and swap %o3
|
||
cmp %o2,%o3
|
||
bne 1b
|
||
mov %o3,%o2 ! cas is always fetching to dest. register
|
||
add %o1,%o2,%o0 ! OpenSSL expects the new value
|
||
retl
|
||
sra %o0,%g0,%o0 ! we return signed int, remember?
|
||
.size OPENSSL_atomic_add,.-OPENSSL_atomic_add
|
||
|
||
.global OPENSSL_rdtsc
|
||
subcc %g0,1,%o0
|
||
.word 0x91408000 !rd %ccr,%o0
|
||
cmp %o0,0x99
|
||
bne .notsc
|
||
xor %o0,%o0,%o0
|
||
save %sp,FRAME-16,%sp
|
||
mov 513,%o0 !SI_PLATFORM
|
||
add %sp,BIAS+16,%o1
|
||
call sysinfo
|
||
mov 256,%o2
|
||
|
||
add %sp,BIAS-16,%o1
|
||
ld [%o1],%l0
|
||
ld [%o1+4],%l1
|
||
ld [%o1+8],%l2
|
||
mov %lo('SUNW'),%l3
|
||
ret
|
||
restore
|
||
.notsc:
|
||
retl
|
||
nop
|
||
.type OPENSSL_rdtsc,#function
|
||
.size OPENSSL_rdtsc,.-OPENSSL_atomic_add
|