ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

x86: Copy fix for clang .org from unix64.S

Browse Source 
Clang doesn't understand .org with symbolic operands.
This commit is contained in:
Richard Henderson
2016-03-07 12:14:22 -05:00
parent 9de24a3ff3
commit d06751979b
1 changed files with 28 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
src/x86/win64.S
View File

@@ -22,10 +22,15 @@
#define arg3 %rcx #define arg3 %rcx
#endif #endif
.macro E which /* This macro allows the safe creation of jump tables without an
.align 8 actual table. The entry points into the table are all 8 bytes.
.org 0b + \which * 8 The use of ORG asserts that we're at the correct location. */
.endm /* ??? The clang assembler doesn't handle .org with symbolic expressions. */
#if defined(__clang__) || defined(__APPLE__) || (defined (__sun__) && defined(__svr4__))
# define E(BASE, X) .balign 8
#else
# define E(BASE, X) .balign 8; .org BASE + X * 8
#endif
.text .text
@@ -88,62 +93,62 @@ ffi_call_win64:
.align 8 .align 8
0: 0:
E FFI_TYPE_VOID E(0b, FFI_TYPE_VOID)
epilogue epilogue
E FFI_TYPE_INT E(0b, FFI_TYPE_INT)
movslq %eax, %rax movslq %eax, %rax
movq %rax, (%r8) movq %rax, (%r8)
epilogue epilogue
E FFI_TYPE_FLOAT E(0b, FFI_TYPE_FLOAT)
movss %xmm0, (%r8) movss %xmm0, (%r8)
epilogue epilogue
E FFI_TYPE_DOUBLE E(0b, FFI_TYPE_DOUBLE)
movsd %xmm0, (%r8) movsd %xmm0, (%r8)
epilogue epilogue
E FFI_TYPE_LONGDOUBLE E(0b, FFI_TYPE_LONGDOUBLE)
call PLT(C(abort)) call PLT(C(abort))
E FFI_TYPE_UINT8 E(0b, FFI_TYPE_UINT8)
movzbl %al, %eax movzbl %al, %eax
movq %rax, (%r8) movq %rax, (%r8)
epilogue epilogue
E FFI_TYPE_SINT8 E(0b, FFI_TYPE_SINT8)
movsbq %al, %rax movsbq %al, %rax
jmp 98f jmp 98f
E FFI_TYPE_UINT16 E(0b, FFI_TYPE_UINT16)
movzwl %ax, %eax movzwl %ax, %eax
movq %rax, (%r8) movq %rax, (%r8)
epilogue epilogue
E FFI_TYPE_SINT16 E(0b, FFI_TYPE_SINT16)
movswq %ax, %rax movswq %ax, %rax
jmp 98f jmp 98f
E FFI_TYPE_UINT32 E(0b, FFI_TYPE_UINT32)
movl %eax, %eax movl %eax, %eax
movq %rax, (%r8) movq %rax, (%r8)
epilogue epilogue
E FFI_TYPE_SINT32 E(0b, FFI_TYPE_SINT32)
movslq %eax, %rax movslq %eax, %rax
movq %rax, (%r8) movq %rax, (%r8)
epilogue epilogue
E FFI_TYPE_UINT64 E(0b, FFI_TYPE_UINT64)
98: movq %rax, (%r8) 98: movq %rax, (%r8)
epilogue epilogue
E FFI_TYPE_SINT64 E(0b, FFI_TYPE_SINT64)
movq %rax, (%r8) movq %rax, (%r8)
epilogue epilogue
E FFI_TYPE_STRUCT E(0b, FFI_TYPE_STRUCT)
epilogue epilogue
E FFI_TYPE_POINTER E(0b, FFI_TYPE_POINTER)
movq %rax, (%r8) movq %rax, (%r8)
epilogue epilogue
E FFI_TYPE_COMPLEX E(0b, FFI_TYPE_COMPLEX)
call PLT(C(abort)) call PLT(C(abort))
E FFI_TYPE_SMALL_STRUCT_1B E(0b, FFI_TYPE_SMALL_STRUCT_1B)
movb %al, (%r8) movb %al, (%r8)
epilogue epilogue
E FFI_TYPE_SMALL_STRUCT_2B E(0b, FFI_TYPE_SMALL_STRUCT_2B)
movw %ax, (%r8) movw %ax, (%r8)
epilogue epilogue
E FFI_TYPE_SMALL_STRUCT_4B E(0b, FFI_TYPE_SMALL_STRUCT_4B)
movl %eax, (%r8) movl %eax, (%r8)
epilogue epilogue