// Works on all IA-64 platforms: Linux, HP-UX, Win64i...
// On Win64i compile with ias.exe.
.text
.global OPENSSL_rdtsc#
.proc OPENSSL_rdtsc#
OPENSSL_rdtsc:
{ .mib.endp OPENSSL_rdtsc#
.global OPENSSL_atomic_add#
.proc OPENSSL_atomic_add#
.align 32
OPENSSL_atomic_add:
{ .mii nop.i 0 }{ .mii mov r3=r2 } cmpxchg4.acq r2=[r32],r8,ar.ccv
nop.i 0 } nop.i 0
(p6) br.dpnt .Lspin } sxt4 r8=r8
br.ret.sptk.many b0 }
// Returns a structure comprising pointer to the top of stack of
// the caller and pointer beyond backing storage for the current
// register frame. The latter is required, because it might be
// insufficient to wipe backing storage for the current frame
// (as this procedure does), one might have to go further, toward
// higher addresses to reach for whole "retroactively" saved
// context...
.global OPENSSL_wipe_cpu#
.proc OPENSSL_wipe_cpu#
.align 32
OPENSSL_wipe_cpu:
.prologue
.fframe 0
.save ar.pfs,r2
.save ar.lc,r3
{ .mib brp.loop.imp .L_wipe_top,.L_wipe_end-16
};;
{ .mii mov ar.lc=96 }{ .mii
// One can sweep double as fast, but then we can't quarantee
// that backing storage is wiped...
.L_wipe_top:
{ .mfi mov r127=r0 }
{ .mfb br.ctop.sptk .L_wipe_top }
{ .mfi mov r14=r0 }
{ .mfi mov r16=r0 }
{ .mfi mov r18=r0 }
{ .mfi mov r20=r0 }
{ .mfi mov r22=r0 }
{ .mfi mov r24=r0 }
{ .mfi mov r26=r0 }
{ .mfi mov r28=r0 }
{ .mfi mov r30=r0 }
{ .mfi nop.i 0 }
{ .mfi{ .mfi{ .mfi{ .mfi{ .mfi{ .mfi{ .mfi{ .mfi mov f31=f0
mov pr=r8,0x1ffff }
{ .mib br.ret.sptk b0 }