mirror of
https://github.com/openssl/openssl.git
synced 2025-01-18 13:44:20 +08:00
31 lines
478 B
Perl
31 lines
478 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
$output=shift;
|
||
|
|
$win64a=1 if ($output =~ /win64a\.[s|asm]/);
|
||
|
|
open STDOUT,">$output" || die "can't open $output: $!";
|
||
|
|
|
||
|
|
print<<___ if(defined($win64a));
|
||
|
|
TEXT SEGMENT
|
||
|
|
PUBLIC OPENSSL_rdtsc
|
||
|
|
ALIGN 16
|
||
|
|
OPENSSL_rdtsc PROC NEAR
|
||
|
|
rdtsc
|
||
|
|
shl rdx,32
|
||
|
|
or rax,rdx
|
||
|
|
ret
|
||
|
|
OPENSSL_rdtsc ENDP
|
||
|
|
TEXT ENDS
|
||
|
|
END
|
||
|
|
___
|
||
|
|
print<<___ if(!defined($win64a));
|
||
|
|
.text
|
||
|
|
.globl OPENSSL_rdtsc
|
||
|
|
.align 16
|
||
|
|
OPENSSL_rdtsc:
|
||
|
|
rdtsc
|
||
|
|
shl \$32,%rdx
|
||
|
|
or %rdx,%rax
|
||
|
|
ret
|
||
|
|
.size OPENSSL_rdtsc,.-OPENSSL_rdtsc
|
||
|
|
___
|