| Brian Carlstrom | 43c12e3 | 2010-11-16 11:19:35 -0800 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| 2 | print <<'___'; |
| 3 | .text |
| 4 | |
| 5 | .set noat |
| 6 | |
| 7 | .globl OPENSSL_cpuid_setup |
| 8 | .ent OPENSSL_cpuid_setup |
| 9 | OPENSSL_cpuid_setup: |
| 10 | .frame $30,0,$26 |
| 11 | .prologue 0 |
| 12 | ret ($26) |
| 13 | .end OPENSSL_cpuid_setup |
| 14 | |
| 15 | .globl OPENSSL_wipe_cpu |
| 16 | .ent OPENSSL_wipe_cpu |
| 17 | OPENSSL_wipe_cpu: |
| 18 | .frame $30,0,$26 |
| 19 | .prologue 0 |
| 20 | clr $1 |
| 21 | clr $2 |
| 22 | clr $3 |
| 23 | clr $4 |
| 24 | clr $5 |
| 25 | clr $6 |
| 26 | clr $7 |
| 27 | clr $8 |
| 28 | clr $16 |
| 29 | clr $17 |
| 30 | clr $18 |
| 31 | clr $19 |
| 32 | clr $20 |
| 33 | clr $21 |
| 34 | clr $22 |
| 35 | clr $23 |
| 36 | clr $24 |
| 37 | clr $25 |
| 38 | clr $27 |
| 39 | clr $at |
| 40 | clr $29 |
| 41 | fclr $f0 |
| 42 | fclr $f1 |
| 43 | fclr $f10 |
| 44 | fclr $f11 |
| 45 | fclr $f12 |
| 46 | fclr $f13 |
| 47 | fclr $f14 |
| 48 | fclr $f15 |
| 49 | fclr $f16 |
| 50 | fclr $f17 |
| 51 | fclr $f18 |
| 52 | fclr $f19 |
| 53 | fclr $f20 |
| 54 | fclr $f21 |
| 55 | fclr $f22 |
| 56 | fclr $f23 |
| 57 | fclr $f24 |
| 58 | fclr $f25 |
| 59 | fclr $f26 |
| 60 | fclr $f27 |
| 61 | fclr $f28 |
| 62 | fclr $f29 |
| 63 | fclr $f30 |
| 64 | mov $sp,$0 |
| 65 | ret ($26) |
| 66 | .end OPENSSL_wipe_cpu |
| 67 | |
| 68 | .globl OPENSSL_atomic_add |
| 69 | .ent OPENSSL_atomic_add |
| 70 | OPENSSL_atomic_add: |
| 71 | .frame $30,0,$26 |
| 72 | .prologue 0 |
| 73 | 1: ldl_l $0,0($16) |
| 74 | addl $0,$17,$1 |
| 75 | stl_c $1,0($16) |
| 76 | beq $1,1b |
| 77 | addl $0,$17,$0 |
| 78 | ret ($26) |
| 79 | .end OPENSSL_atomic_add |
| 80 | |
| 81 | .globl OPENSSL_rdtsc |
| 82 | .ent OPENSSL_rdtsc |
| 83 | OPENSSL_rdtsc: |
| 84 | .frame $30,0,$26 |
| 85 | .prologue 0 |
| 86 | rpcc $0 |
| 87 | ret ($26) |
| 88 | .end OPENSSL_rdtsc |
| 89 | |
| 90 | .globl OPENSSL_cleanse |
| 91 | .ent OPENSSL_cleanse |
| 92 | OPENSSL_cleanse: |
| 93 | .frame $30,0,$26 |
| 94 | .prologue 0 |
| 95 | beq $17,.Ldone |
| 96 | and $16,7,$0 |
| 97 | bic $17,7,$at |
| 98 | beq $at,.Little |
| 99 | beq $0,.Laligned |
| 100 | |
| 101 | .Little: |
| Brian Carlstrom | ee7afb3 | 2011-09-06 09:58:20 -0700 | [diff] [blame] | 102 | subq $0,8,$0 |
| Brian Carlstrom | 43c12e3 | 2010-11-16 11:19:35 -0800 | [diff] [blame] | 103 | ldq_u $1,0($16) |
| 104 | mov $16,$2 |
| 105 | .Lalign: |
| 106 | mskbl $1,$16,$1 |
| 107 | lda $16,1($16) |
| 108 | subq $17,1,$17 |
| Brian Carlstrom | ee7afb3 | 2011-09-06 09:58:20 -0700 | [diff] [blame] | 109 | addq $0,1,$0 |
| Brian Carlstrom | 43c12e3 | 2010-11-16 11:19:35 -0800 | [diff] [blame] | 110 | beq $17,.Lout |
| 111 | bne $0,.Lalign |
| 112 | .Lout: stq_u $1,0($2) |
| 113 | beq $17,.Ldone |
| 114 | bic $17,7,$at |
| Brian Carlstrom | 43c12e3 | 2010-11-16 11:19:35 -0800 | [diff] [blame] | 115 | beq $at,.Little |
| 116 | |
| 117 | .Laligned: |
| 118 | stq $31,0($16) |
| 119 | subq $17,8,$17 |
| 120 | lda $16,8($16) |
| 121 | bic $17,7,$at |
| 122 | bne $at,.Laligned |
| Brian Carlstrom | ee7afb3 | 2011-09-06 09:58:20 -0700 | [diff] [blame] | 123 | bne $17,.Little |
| Brian Carlstrom | 43c12e3 | 2010-11-16 11:19:35 -0800 | [diff] [blame] | 124 | .Ldone: ret ($26) |
| 125 | .end OPENSSL_cleanse |
| 126 | ___ |