| OLD | NEW |
| (Empty) |
| 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# | |
| OLD | NEW |