2
0

uplink-x86_64.pl 1.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. #!/usr/bin/env perl
  2. $output=shift;
  3. $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
  4. open STDOUT,"| $^X ${dir}../crypto/perlasm/x86_64-xlate.pl $output";
  5. push(@INC,"${dir}.");
  6. require "uplink-common.pl";
  7. $prefix="_lazy";
  8. print <<___;
  9. .text
  10. .extern OPENSSL_Uplink
  11. .globl OPENSSL_UplinkTable
  12. ___
  13. for ($i=1;$i<=$N;$i++) {
  14. print <<___;
  15. .type $prefix${i},\@abi-omnipotent
  16. .align 16
  17. $prefix${i}:
  18. .byte 0x48,0x83,0xEC,0x28 # sub rsp,40
  19. mov %rcx,48(%rsp)
  20. mov %rdx,56(%rsp)
  21. mov %r8,64(%rsp)
  22. mov %r9,72(%rsp)
  23. lea OPENSSL_UplinkTable(%rip),%rcx
  24. mov \$$i,%rdx
  25. call OPENSSL_Uplink
  26. mov 48(%rsp),%rcx
  27. mov 56(%rsp),%rdx
  28. mov 64(%rsp),%r8
  29. mov 72(%rsp),%r9
  30. lea OPENSSL_UplinkTable(%rip),%rax
  31. add \$40,%rsp
  32. jmp *8*$i(%rax)
  33. $prefix${i}_end:
  34. .size $prefix${i},.-$prefix${i}
  35. ___
  36. }
  37. print <<___;
  38. .data
  39. OPENSSL_UplinkTable:
  40. .quad $N
  41. ___
  42. for ($i=1;$i<=$N;$i++) { print " .quad $prefix$i\n"; }
  43. print <<___;
  44. .section .pdata,"r"
  45. .align 4
  46. ___
  47. for ($i=1;$i<=$N;$i++) {
  48. print <<___;
  49. .rva $prefix${i},$prefix${i}_end,${prefix}_unwind_info
  50. ___
  51. }
  52. print <<___;
  53. .section .xdata,"r"
  54. .align 8
  55. ${prefix}_unwind_info:
  56. .byte 0x01,0x04,0x01,0x00
  57. .byte 0x04,0x42,0x00,0x00
  58. ___
  59. close STDOUT;