diff options
Diffstat (limited to 'src/lib/libcrypto/ia64cpuid.S')
| -rw-r--r-- | src/lib/libcrypto/ia64cpuid.S | 167 |
1 files changed, 0 insertions, 167 deletions
diff --git a/src/lib/libcrypto/ia64cpuid.S b/src/lib/libcrypto/ia64cpuid.S deleted file mode 100644 index d705fff7ee..0000000000 --- a/src/lib/libcrypto/ia64cpuid.S +++ /dev/null | |||
| @@ -1,167 +0,0 @@ | |||
| 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# | ||