Home | History | Annotate | Download | only in crypto
      1 // Works on all IA-64 platforms: Linux, HP-UX, Win64i...
      2 // On Win64i compile with ias.exe.
      3 .text
      4 
      5 .global	OPENSSL_cpuid_setup#
      6 .proc	OPENSSL_cpuid_setup#
      7 OPENSSL_cpuid_setup:
      8 { .mib;	br.ret.sptk.many	b0		};;
      9 .endp	OPENSSL_cpuid_setup#
     10 
     11 .global	OPENSSL_rdtsc#
     12 .proc	OPENSSL_rdtsc#
     13 OPENSSL_rdtsc:
     14 { .mib;	mov			r8=ar.itc
     15 	br.ret.sptk.many	b0		};;
     16 .endp   OPENSSL_rdtsc#
     17 
     18 .global	OPENSSL_atomic_add#
     19 .proc	OPENSSL_atomic_add#
     20 .align	32
     21 OPENSSL_atomic_add:
     22 { .mii;	ld4		r2=[r32]
     23 	nop.i		0
     24 	nop.i		0		};;
     25 .Lspin:
     26 { .mii;	mov		ar.ccv=r2
     27 	add		r8=r2,r33
     28 	mov		r3=r2		};;
     29 { .mmi;	mf;;
     30 	cmpxchg4.acq	r2=[r32],r8,ar.ccv
     31 	nop.i		0		};;
     32 { .mib;	cmp.ne		p6,p0=r2,r3
     33 	nop.i		0
     34 (p6)	br.dpnt		.Lspin		};;
     35 { .mib;	nop.m		0
     36 	sxt4		r8=r8
     37 	br.ret.sptk.many	b0	};;
     38 .endp	OPENSSL_atomic_add#
     39 
     40 // Returns a structure comprising pointer to the top of stack of
     41 // the caller and pointer beyond backing storage for the current
     42 // register frame. The latter is required, because it might be
     43 // insufficient to wipe backing storage for the current frame
     44 // (as this procedure does), one might have to go further, toward
     45 // higher addresses to reach for whole "retroactively" saved
     46 // context...
     47 .global	OPENSSL_wipe_cpu#
     48 .proc	OPENSSL_wipe_cpu#
     49 .align	32
     50 OPENSSL_wipe_cpu:
     51 	.prologue
     52 	.fframe	0
     53 	.save	ar.pfs,r2
     54 	.save	ar.lc,r3
     55 { .mib;	alloc		r2=ar.pfs,0,96,0,96
     56 	mov		r3=ar.lc
     57 	brp.loop.imp	.L_wipe_top,.L_wipe_end-16
     58 					};;
     59 { .mii;	mov		r9=ar.bsp
     60 	mov		r8=pr
     61 	mov		ar.lc=96	};;
     62 	.body
     63 { .mii;	add		r9=96*8-8,r9
     64 	mov		ar.ec=1		};;
     65 
     66 // One can sweep double as fast, but then we can't quarantee
     67 // that backing storage is wiped...
     68 .L_wipe_top:
     69 { .mfi;	st8		[r9]=r0,-8
     70 	mov		f127=f0
     71 	mov		r127=r0		}
     72 { .mfb;	nop.m		0
     73 	nop.f		0
     74 	br.ctop.sptk	.L_wipe_top	};;
     75 .L_wipe_end:
     76 
     77 { .mfi;	mov		r11=r0
     78 	mov		f6=f0
     79 	mov		r14=r0		}
     80 { .mfi;	mov		r15=r0
     81 	mov		f7=f0
     82 	mov		r16=r0		}
     83 { .mfi;	mov		r17=r0
     84 	mov		f8=f0
     85 	mov		r18=r0		}
     86 { .mfi;	mov		r19=r0
     87 	mov		f9=f0
     88 	mov		r20=r0		}
     89 { .mfi;	mov		r21=r0
     90 	mov		f10=f0
     91 	mov		r22=r0		}
     92 { .mfi;	mov		r23=r0
     93 	mov		f11=f0
     94 	mov		r24=r0		}
     95 { .mfi;	mov		r25=r0
     96 	mov		f12=f0
     97 	mov		r26=r0		}
     98 { .mfi;	mov		r27=r0
     99 	mov		f13=f0
    100 	mov		r28=r0		}
    101 { .mfi;	mov		r29=r0
    102 	mov		f14=f0
    103 	mov		r30=r0		}
    104 { .mfi;	mov		r31=r0
    105 	mov		f15=f0
    106 	nop.i		0		}
    107 { .mfi;	mov		f16=f0		}
    108 { .mfi;	mov		f17=f0		}
    109 { .mfi;	mov		f18=f0		}
    110 { .mfi;	mov		f19=f0		}
    111 { .mfi;	mov		f20=f0		}
    112 { .mfi;	mov		f21=f0		}
    113 { .mfi;	mov		f22=f0		}
    114 { .mfi;	mov		f23=f0		}
    115 { .mfi;	mov		f24=f0		}
    116 { .mfi;	mov		f25=f0		}
    117 { .mfi;	mov		f26=f0		}
    118 { .mfi;	mov		f27=f0		}
    119 { .mfi;	mov		f28=f0		}
    120 { .mfi;	mov		f29=f0		}
    121 { .mfi;	mov		f30=f0		}
    122 { .mfi;	add		r9=96*8+8,r9
    123 	mov		f31=f0
    124 	mov		pr=r8,0x1ffff	}
    125 { .mib;	mov		r8=sp
    126 	mov		ar.lc=r3
    127 	br.ret.sptk	b0		};;
    128 .endp	OPENSSL_wipe_cpu#
    129 
    130 .global	OPENSSL_cleanse#
    131 .proc	OPENSSL_cleanse#
    132 OPENSSL_cleanse:
    133 { .mib;	cmp.eq		p6,p0=0,r33	    // len==0
    134 #if defined(_HPUX_SOURCE) && !defined(_LP64)
    135 	addp4		r32=0,r32
    136 #endif
    137 (p6)	br.ret.spnt	b0		};;
    138 { .mib;	and		r2=7,r32
    139 	cmp.leu		p6,p0=15,r33	    // len>=15
    140 (p6)	br.cond.dptk	.Lot		};;
    141 
    142 .Little:
    143 { .mib;	st1		[r32]=r0,1
    144 	cmp.ltu		p6,p7=1,r33	}  // len>1
    145 { .mbb;	add		r33=-1,r33	   // len--
    146 (p6)	br.cond.dptk	.Little
    147 (p7)	br.ret.sptk.many	b0	};;
    148 
    149 .Lot:
    150 { .mib;	cmp.eq		p6,p0=0,r2
    151 (p6)	br.cond.dptk	.Laligned	};;
    152 { .mmi;	st1		[r32]=r0,1;;
    153 	and		r2=7,r32	}
    154 { .mib;	add		r33=-1,r33
    155 	br		.Lot		};;
    156 
    157 .Laligned:
    158 { .mmi;	st8		[r32]=r0,8
    159 	and		r2=-8,r33	    // len&~7
    160 	add		r33=-8,r33	};; // len-=8
    161 { .mib;	cmp.ltu		p6,p0=8,r2	    // ((len+8)&~7)>8
    162 (p6)	br.cond.dptk	.Laligned	};;
    163 
    164 { .mbb;	cmp.eq		p6,p7=r0,r33
    165 (p7)	br.cond.dpnt	.Little
    166 (p6)	br.ret.sptk.many	b0	};;
    167 .endp	OPENSSL_cleanse#
    168