1: #!/usr/bin/env perl
    2: 
    3: $output=shift;
    4: $win64a=1 if ($output =~ /win64a\.[s|asm]/);
    5: open STDOUT,">$output" || die "can't open $output: $!";
    6: 
    7: print<<___ if(defined($win64a));
    8: _TEXT   SEGMENT
    9: PUBLIC  OPENSSL_rdtsc
   10: ALIGN   16
   11: OPENSSL_rdtsc   PROC
   12:         rdtsc
   13:         shl    rdx,32
   14:         or     rax,rdx
   15:         ret
   16: OPENSSL_rdtsc   ENDP
   17: 
   18: PUBLIC  OPENSSL_atomic_add
   19: ALIGN   16
   20: OPENSSL_atomic_add      PROC
   21:         mov    eax,DWORD PTR[rcx]
   22: \$Lspin:        lea    r8,DWORD PTR[rdx+rax]
   23: lock    cmpxchg    DWORD PTR[rcx],r8d
   24:         jne    \$Lspin
   25:         mov    eax,r8d
   26:         cdqe    
   27:         ret
   28: OPENSSL_atomic_add      ENDP
   29: 
   30: PUBLIC  OPENSSL_wipe_cpu
   31: ALIGN   16
   32: OPENSSL_wipe_cpu        PROC
   33:         pxor   xmm0,xmm0
   34:         pxor   xmm1,xmm1
   35:         pxor   xmm2,xmm2
   36:         pxor   xmm3,xmm3
   37:         pxor   xmm4,xmm4
   38:         pxor   xmm5,xmm5
   39:         xor    rcx,rcx
   40:         xor    rdx,rdx
   41:         xor    r8,r8
   42:         xor    r9,r9
   43:         xor    r10,r10
   44:         xor    r11,r11
   45:         lea    rax,QWORD PTR[rsp+8]
   46:         ret
   47: OPENSSL_wipe_cpu        ENDP
   48: 
   49: OPENSSL_ia32_cpuid      PROC
   50:         mov    r8,rbx
   51:         mov    eax,1
   52:         cpuid
   53:         shl    rcx,32
   54:         mov    eax,edx
   55:         mov    rbx,r8
   56:         or     rax,rcx
   57:         ret
   58: OPENSSL_ia32_cpuid      ENDP
   59: _TEXT   ENDS
   60: 
   61: CRT\$XIU        SEGMENT
   62: EXTRN   OPENSSL_cpuid_setup:PROC
   63: DQ      OPENSSL_cpuid_setup
   64: CRT\$XIU        ENDS
   65: END
   66: ___
   67: print<<___ if(!defined($win64a));
   68: .text
   69: .globl  OPENSSL_rdtsc
   70: .align  16
   71: OPENSSL_rdtsc:
   72:         rdtsc
   73:         shlq   \$32,%rdx
   74:         orq    %rdx,%rax
   75:         ret
   76: .size   OPENSSL_rdtsc,.-OPENSSL_rdtsc
   77: 
   78: .globl  OPENSSL_atomic_add
   79: .type   OPENSSL_atomic_add,\@function
   80: .align  16
   81: OPENSSL_atomic_add:
   82:         movl   (%rdi),%eax
   83: .Lspin: leaq    (%rsi,%rax),%r8
   84: lock;   cmpxchgl  %r8d,(%rdi)
   85:         jne    .Lspin
   86:         movl   %r8d,%eax
   87:         .byte  0x48,0x98
   88:         ret
   89: .size   OPENSSL_atomic_add,.-OPENSSL_atomic_add
   90: 
   91: .globl  OPENSSL_wipe_cpu
   92: .type   OPENSSL_wipe_cpu,\@function
   93: .align  16
   94: OPENSSL_wipe_cpu:
   95:         pxor   %xmm0,%xmm0
   96:         pxor   %xmm1,%xmm1
   97:         pxor   %xmm2,%xmm2
   98:         pxor   %xmm3,%xmm3
   99:         pxor   %xmm4,%xmm4
  100:         pxor   %xmm5,%xmm5
  101:         pxor   %xmm6,%xmm6
  102:         pxor   %xmm7,%xmm7
  103:         pxor   %xmm8,%xmm8
  104:         pxor   %xmm9,%xmm9
  105:         pxor   %xmm10,%xmm10
  106:         pxor   %xmm11,%xmm11
  107:         pxor   %xmm12,%xmm12
  108:         pxor   %xmm13,%xmm13
  109:         pxor   %xmm14,%xmm14
  110:         pxor   %xmm15,%xmm15
  111:         xorq   %rcx,%rcx
  112:         xorq   %rdx,%rdx
  113:         xorq   %rsi,%rsi
  114:         xorq   %rdi,%rdi
  115:         xorq   %r8,%r8
  116:         xorq   %r9,%r9
  117:         xorq   %r10,%r10
  118:         xorq   %r11,%r11
  119:         leaq   8(%rsp),%rax
  120:         ret
  121: .size   OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
  122: 
  123: .globl  OPENSSL_ia32_cpuid
  124: .align  16
  125: OPENSSL_ia32_cpuid:
  126:         movq   %rbx,%r8
  127:         movl   \$1,%eax
  128:         cpuid
  129:         shlq   \$32,%rcx
  130:         movl   %edx,%eax
  131:         movq   %r8,%rbx
  132:         orq    %rcx,%rax
  133:         ret
  134: .size   OPENSSL_ia32_cpuid,.-OPENSSL_ia32_cpuid
  135: 
  136: .section        .init
  137:         call   OPENSSL_cpuid_setup
  138: ___