| /* |
| |
| auto-generated file, do not modify! |
| libcontext - a slightly more portable version of boost::context |
| Copyright Martin Husemann 2013. |
| Copyright Oliver Kowalke 2009. |
| Copyright Sergue E. Leontiev 2013 |
| Copyright Thomas Sailer 2013. |
| Minor modifications by Tomasz Wlostowski 2016. |
| |
| Distributed under the Boost Software License, Version 1.0. |
| (See accompanying file LICENSE_1_0.txt or copy at |
| http://www.boost.org/LICENSE_1_0.txt) |
| |
| */ |
| #include "bthread/context.h" |
| #if defined(BTHREAD_CONTEXT_PLATFORM_windows_i386) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".p2align 4,,15\n" |
| ".globl _bthread_jump_fcontext\n" |
| ".def _bthread_jump_fcontext; .scl 2; .type 32; .endef\n" |
| "_bthread_jump_fcontext:\n" |
| " mov 0x10(%esp),%ecx\n" |
| " push %ebp\n" |
| " push %ebx\n" |
| " push %esi\n" |
| " push %edi\n" |
| " mov %fs:0x18,%edx\n" |
| " mov (%edx),%eax\n" |
| " push %eax\n" |
| " mov 0x4(%edx),%eax\n" |
| " push %eax\n" |
| " mov 0x8(%edx),%eax\n" |
| " push %eax\n" |
| " mov 0xe0c(%edx),%eax\n" |
| " push %eax\n" |
| " mov 0x10(%edx),%eax\n" |
| " push %eax\n" |
| " lea -0x8(%esp),%esp\n" |
| " test %ecx,%ecx\n" |
| " je nxt1\n" |
| " stmxcsr (%esp)\n" |
| " fnstcw 0x4(%esp)\n" |
| "nxt1:\n" |
| " mov 0x30(%esp),%eax\n" |
| " mov %esp,(%eax)\n" |
| " mov 0x34(%esp),%edx\n" |
| " mov 0x38(%esp),%eax\n" |
| " mov %edx,%esp\n" |
| " test %ecx,%ecx\n" |
| " je nxt2\n" |
| " ldmxcsr (%esp)\n" |
| " fldcw 0x4(%esp)\n" |
| "nxt2:\n" |
| " lea 0x8(%esp),%esp\n" |
| " mov %fs:0x18,%edx\n" |
| " pop %ecx\n" |
| " mov %ecx,0x10(%edx)\n" |
| " pop %ecx\n" |
| " mov %ecx,0xe0c(%edx)\n" |
| " pop %ecx\n" |
| " mov %ecx,0x8(%edx)\n" |
| " pop %ecx\n" |
| " mov %ecx,0x4(%edx)\n" |
| " pop %ecx\n" |
| " mov %ecx,(%edx)\n" |
| " pop %edi\n" |
| " pop %esi\n" |
| " pop %ebx\n" |
| " pop %ebp\n" |
| " pop %edx\n" |
| " mov %eax,0x4(%esp)\n" |
| " jmp *%edx\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_windows_i386) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".p2align 4,,15\n" |
| ".globl _bthread_make_fcontext\n" |
| ".def _bthread_make_fcontext; .scl 2; .type 32; .endef\n" |
| "_bthread_make_fcontext:\n" |
| "mov 0x4(%esp),%eax\n" |
| "lea -0x8(%eax),%eax\n" |
| "and $0xfffffff0,%eax\n" |
| "lea -0x3c(%eax),%eax\n" |
| "mov 0x4(%esp),%ecx\n" |
| "mov %ecx,0x14(%eax)\n" |
| "mov 0x8(%esp),%edx\n" |
| "neg %edx\n" |
| "lea (%ecx,%edx,1),%ecx\n" |
| "mov %ecx,0x10(%eax)\n" |
| "mov %ecx,0xc(%eax)\n" |
| "mov 0xc(%esp),%ecx\n" |
| "mov %ecx,0x2c(%eax)\n" |
| "stmxcsr (%eax)\n" |
| "fnstcw 0x4(%eax)\n" |
| "mov $finish,%ecx\n" |
| "mov %ecx,0x30(%eax)\n" |
| "mov %fs:0x0,%ecx\n" |
| "walk:\n" |
| "mov (%ecx),%edx\n" |
| "inc %edx\n" |
| "je found\n" |
| "dec %edx\n" |
| "xchg %edx,%ecx\n" |
| "jmp walk\n" |
| "found:\n" |
| "mov 0x4(%ecx),%ecx\n" |
| "mov %ecx,0x3c(%eax)\n" |
| "mov $0xffffffff,%ecx\n" |
| "mov %ecx,0x38(%eax)\n" |
| "lea 0x38(%eax),%ecx\n" |
| "mov %ecx,0x18(%eax)\n" |
| "ret\n" |
| "finish:\n" |
| "xor %eax,%eax\n" |
| "mov %eax,(%esp)\n" |
| "call _exit\n" |
| "hlt\n" |
| ".def __exit; .scl 2; .type 32; .endef \n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_windows_x86_64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".p2align 4,,15\n" |
| ".globl bthread_jump_fcontext\n" |
| ".def bthread_jump_fcontext; .scl 2; .type 32; .endef\n" |
| ".seh_proc bthread_jump_fcontext\n" |
| "bthread_jump_fcontext:\n" |
| ".seh_endprologue\n" |
| " push %rbp\n" |
| " push %rbx\n" |
| " push %rsi\n" |
| " push %rdi\n" |
| " push %r15\n" |
| " push %r14\n" |
| " push %r13\n" |
| " push %r12\n" |
| " mov %gs:0x30,%r10\n" |
| " mov 0x8(%r10),%rax\n" |
| " push %rax\n" |
| " mov 0x10(%r10),%rax\n" |
| " push %rax\n" |
| " mov 0x1478(%r10),%rax\n" |
| " push %rax\n" |
| " mov 0x18(%r10),%rax\n" |
| " push %rax\n" |
| " lea -0xa8(%rsp),%rsp\n" |
| " test %r9,%r9\n" |
| " je nxt1\n" |
| " stmxcsr 0xa0(%rsp)\n" |
| " fnstcw 0xa4(%rsp)\n" |
| " movaps %xmm6,(%rsp)\n" |
| " movaps %xmm7,0x10(%rsp)\n" |
| " movaps %xmm8,0x20(%rsp)\n" |
| " movaps %xmm9,0x30(%rsp)\n" |
| " movaps %xmm10,0x40(%rsp)\n" |
| " movaps %xmm11,0x50(%rsp)\n" |
| " movaps %xmm12,0x60(%rsp)\n" |
| " movaps %xmm13,0x70(%rsp)\n" |
| " movaps %xmm14,0x80(%rsp)\n" |
| " movaps %xmm15,0x90(%rsp)\n" |
| "nxt1:\n" |
| " xor %r10,%r10\n" |
| " push %r10\n" |
| " mov %rsp,(%rcx)\n" |
| " mov %rdx,%rsp\n" |
| " pop %r10\n" |
| " test %r9,%r9\n" |
| " je nxt2\n" |
| " ldmxcsr 0xa0(%rsp)\n" |
| " fldcw 0xa4(%rsp)\n" |
| " movaps (%rsp),%xmm6\n" |
| " movaps 0x10(%rsp),%xmm7\n" |
| " movaps 0x20(%rsp),%xmm8\n" |
| " movaps 0x30(%rsp),%xmm9\n" |
| " movaps 0x40(%rsp),%xmm10\n" |
| " movaps 0x50(%rsp),%xmm11\n" |
| " movaps 0x60(%rsp),%xmm12\n" |
| " movaps 0x70(%rsp),%xmm13\n" |
| " movaps 0x80(%rsp),%xmm14\n" |
| " movaps 0x90(%rsp),%xmm15\n" |
| "nxt2:\n" |
| " mov $0xa8,%rcx\n" |
| " test %r10,%r10\n" |
| " je nxt3\n" |
| " add $0x8,%rcx\n" |
| "nxt3:\n" |
| " lea (%rsp,%rcx,1),%rsp\n" |
| " mov %gs:0x30,%r10\n" |
| " pop %rax\n" |
| " mov %rax,0x18(%r10)\n" |
| " pop %rax\n" |
| " mov %rax,0x1478(%r10)\n" |
| " pop %rax\n" |
| " mov %rax,0x10(%r10)\n" |
| " pop %rax\n" |
| " mov %rax,0x8(%r10)\n" |
| " pop %r12\n" |
| " pop %r13\n" |
| " pop %r14\n" |
| " pop %r15\n" |
| " pop %rdi\n" |
| " pop %rsi\n" |
| " pop %rbx\n" |
| " pop %rbp\n" |
| " pop %r10\n" |
| " mov %r8,%rax\n" |
| " mov %r8,%rcx\n" |
| " jmpq *%r10\n" |
| ".seh_endproc\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_windows_x86_64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".p2align 4,,15\n" |
| ".globl bthread_make_fcontext\n" |
| ".def bthread_make_fcontext; .scl 2; .type 32; .endef\n" |
| ".seh_proc bthread_make_fcontext\n" |
| "bthread_make_fcontext:\n" |
| ".seh_endprologue\n" |
| "mov %rcx,%rax\n" |
| "sub $0x28,%rax\n" |
| "and $0xfffffffffffffff0,%rax\n" |
| "sub $0x128,%rax\n" |
| "mov %r8,0x118(%rax)\n" |
| "mov %rcx,0xd0(%rax)\n" |
| "neg %rdx\n" |
| "lea (%rcx,%rdx,1),%rcx\n" |
| "mov %rcx,0xc8(%rax)\n" |
| "mov %rcx,0xc0(%rax)\n" |
| "stmxcsr 0xa8(%rax)\n" |
| "fnstcw 0xac(%rax)\n" |
| "leaq finish(%rip), %rcx\n" |
| "mov %rcx,0x120(%rax)\n" |
| "mov $0x1,%rcx\n" |
| "mov %rcx,(%rax)\n" |
| "retq\n" |
| "finish:\n" |
| "xor %rcx,%rcx\n" |
| "callq 0x63\n" |
| "hlt\n" |
| " .seh_endproc\n" |
| ".def _exit; .scl 2; .type 32; .endef \n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_i386) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl bthread_jump_fcontext\n" |
| ".align 2\n" |
| ".type bthread_jump_fcontext,@function\n" |
| "bthread_jump_fcontext:\n" |
| " movl 0x10(%esp), %ecx\n" |
| " pushl %ebp \n" |
| " pushl %ebx \n" |
| " pushl %esi \n" |
| " pushl %edi \n" |
| " leal -0x8(%esp), %esp\n" |
| " test %ecx, %ecx\n" |
| " je 1f\n" |
| " stmxcsr (%esp)\n" |
| " fnstcw 0x4(%esp)\n" |
| "1:\n" |
| " movl 0x1c(%esp), %eax\n" |
| " movl %esp, (%eax)\n" |
| " movl 0x20(%esp), %edx\n" |
| " movl 0x24(%esp), %eax\n" |
| " movl %edx, %esp\n" |
| " test %ecx, %ecx\n" |
| " je 2f\n" |
| " ldmxcsr (%esp)\n" |
| " fldcw 0x4(%esp)\n" |
| "2:\n" |
| " leal 0x8(%esp), %esp\n" |
| " popl %edi \n" |
| " popl %esi \n" |
| " popl %ebx \n" |
| " popl %ebp \n" |
| " popl %edx\n" |
| " movl %eax, 0x4(%esp)\n" |
| " jmp *%edx\n" |
| ".size bthread_jump_fcontext,.-bthread_jump_fcontext\n" |
| ".section .note.GNU-stack,\"\",%progbits\n" |
| ".previous\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_i386) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl bthread_make_fcontext\n" |
| ".align 2\n" |
| ".type bthread_make_fcontext,@function\n" |
| "bthread_make_fcontext:\n" |
| " movl 0x4(%esp), %eax\n" |
| " leal -0x8(%eax), %eax\n" |
| " andl $-16, %eax\n" |
| " leal -0x20(%eax), %eax\n" |
| " movl 0xc(%esp), %edx\n" |
| " movl %edx, 0x18(%eax)\n" |
| " stmxcsr (%eax)\n" |
| " fnstcw 0x4(%eax)\n" |
| " call 1f\n" |
| "1: popl %ecx\n" |
| " addl $finish-1b, %ecx\n" |
| " movl %ecx, 0x1c(%eax)\n" |
| " ret \n" |
| "finish:\n" |
| " call 2f\n" |
| "2: popl %ebx\n" |
| " addl $_GLOBAL_OFFSET_TABLE_+[.-2b], %ebx\n" |
| " xorl %eax, %eax\n" |
| " movl %eax, (%esp)\n" |
| " call _exit@PLT\n" |
| " hlt\n" |
| ".size bthread_make_fcontext,.-bthread_make_fcontext\n" |
| ".section .note.GNU-stack,\"\",%progbits\n" |
| ".previous\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_x86_64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl bthread_jump_fcontext\n" |
| ".type bthread_jump_fcontext,@function\n" |
| ".align 16\n" |
| "bthread_jump_fcontext:\n" |
| " pushq %rbp \n" |
| " pushq %rbx \n" |
| " pushq %r15 \n" |
| " pushq %r14 \n" |
| " pushq %r13 \n" |
| " pushq %r12 \n" |
| " leaq -0x8(%rsp), %rsp\n" |
| " cmp $0, %rcx\n" |
| " je 1f\n" |
| " stmxcsr (%rsp)\n" |
| " fnstcw 0x4(%rsp)\n" |
| "1:\n" |
| " movq %rsp, (%rdi)\n" |
| " movq %rsi, %rsp\n" |
| " cmp $0, %rcx\n" |
| " je 2f\n" |
| " ldmxcsr (%rsp)\n" |
| " fldcw 0x4(%rsp)\n" |
| "2:\n" |
| " leaq 0x8(%rsp), %rsp\n" |
| " popq %r12 \n" |
| " popq %r13 \n" |
| " popq %r14 \n" |
| " popq %r15 \n" |
| " popq %rbx \n" |
| " popq %rbp \n" |
| " popq %r8\n" |
| " movq %rdx, %rax\n" |
| " movq %rdx, %rdi\n" |
| " jmp *%r8\n" |
| ".size bthread_jump_fcontext,.-bthread_jump_fcontext\n" |
| ".section .note.GNU-stack,\"\",%progbits\n" |
| ".previous\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_x86_64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl bthread_make_fcontext\n" |
| ".type bthread_make_fcontext,@function\n" |
| ".align 16\n" |
| "bthread_make_fcontext:\n" |
| " movq %rdi, %rax\n" |
| " andq $-16, %rax\n" |
| " leaq -0x48(%rax), %rax\n" |
| " movq %rdx, 0x38(%rax)\n" |
| " stmxcsr (%rax)\n" |
| " fnstcw 0x4(%rax)\n" |
| " leaq finish(%rip), %rcx\n" |
| " movq %rcx, 0x40(%rax)\n" |
| " ret \n" |
| "finish:\n" |
| " xorq %rdi, %rdi\n" |
| " call _exit@PLT\n" |
| " hlt\n" |
| ".size bthread_make_fcontext,.-bthread_make_fcontext\n" |
| ".section .note.GNU-stack,\"\",%progbits\n" |
| ".previous\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_apple_x86_64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl _bthread_jump_fcontext\n" |
| ".align 8\n" |
| "_bthread_jump_fcontext:\n" |
| " pushq %rbp \n" |
| " pushq %rbx \n" |
| " pushq %r15 \n" |
| " pushq %r14 \n" |
| " pushq %r13 \n" |
| " pushq %r12 \n" |
| " leaq -0x8(%rsp), %rsp\n" |
| " cmp $0, %rcx\n" |
| " je 1f\n" |
| " stmxcsr (%rsp)\n" |
| " fnstcw 0x4(%rsp)\n" |
| "1:\n" |
| " movq %rsp, (%rdi)\n" |
| " movq %rsi, %rsp\n" |
| " cmp $0, %rcx\n" |
| " je 2f\n" |
| " ldmxcsr (%rsp)\n" |
| " fldcw 0x4(%rsp)\n" |
| "2:\n" |
| " leaq 0x8(%rsp), %rsp\n" |
| " popq %r12 \n" |
| " popq %r13 \n" |
| " popq %r14 \n" |
| " popq %r15 \n" |
| " popq %rbx \n" |
| " popq %rbp \n" |
| " popq %r8\n" |
| " movq %rdx, %rax\n" |
| " movq %rdx, %rdi\n" |
| " jmp *%r8\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_apple_x86_64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl _bthread_make_fcontext\n" |
| ".align 8\n" |
| "_bthread_make_fcontext:\n" |
| " movq %rdi, %rax\n" |
| " movabs $-16, %r8\n" |
| " andq %r8, %rax\n" |
| " leaq -0x48(%rax), %rax\n" |
| " movq %rdx, 0x38(%rax)\n" |
| " stmxcsr (%rax)\n" |
| " fnstcw 0x4(%rax)\n" |
| " leaq finish(%rip), %rcx\n" |
| " movq %rcx, 0x40(%rax)\n" |
| " ret \n" |
| "finish:\n" |
| " xorq %rdi, %rdi\n" |
| " call __exit\n" |
| " hlt\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_apple_i386) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl _bthread_jump_fcontext\n" |
| ".align 2\n" |
| "_bthread_jump_fcontext:\n" |
| " movl 0x10(%esp), %ecx\n" |
| " pushl %ebp \n" |
| " pushl %ebx \n" |
| " pushl %esi \n" |
| " pushl %edi \n" |
| " leal -0x8(%esp), %esp\n" |
| " test %ecx, %ecx\n" |
| " je 1f\n" |
| " stmxcsr (%esp)\n" |
| " fnstcw 0x4(%esp)\n" |
| "1:\n" |
| " movl 0x1c(%esp), %eax\n" |
| " movl %esp, (%eax)\n" |
| " movl 0x20(%esp), %edx\n" |
| " movl 0x24(%esp), %eax\n" |
| " movl %edx, %esp\n" |
| " test %ecx, %ecx\n" |
| " je 2f\n" |
| " ldmxcsr (%esp)\n" |
| " fldcw 0x4(%esp)\n" |
| "2:\n" |
| " leal 0x8(%esp), %esp\n" |
| " popl %edi \n" |
| " popl %esi \n" |
| " popl %ebx \n" |
| " popl %ebp \n" |
| " popl %edx\n" |
| " movl %eax, 0x4(%esp)\n" |
| " jmp *%edx\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_apple_i386) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl _bthread_make_fcontext\n" |
| ".align 2\n" |
| "_bthread_make_fcontext:\n" |
| " movl 0x4(%esp), %eax\n" |
| " leal -0x8(%eax), %eax\n" |
| " andl $-16, %eax\n" |
| " leal -0x20(%eax), %eax\n" |
| " movl 0xc(%esp), %edx\n" |
| " movl %edx, 0x18(%eax)\n" |
| " stmxcsr (%eax)\n" |
| " fnstcw 0x4(%eax)\n" |
| " call 1f\n" |
| "1: popl %ecx\n" |
| " addl $finish-1b, %ecx\n" |
| " movl %ecx, 0x1c(%eax)\n" |
| " ret \n" |
| "finish:\n" |
| " xorl %eax, %eax\n" |
| " movl %eax, (%esp)\n" |
| " call __exit\n" |
| " hlt\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_arm32) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl bthread_jump_fcontext\n" |
| ".align 2\n" |
| ".type bthread_jump_fcontext,%function\n" |
| "bthread_jump_fcontext:\n" |
| " @ save LR as PC\n" |
| " push {lr}\n" |
| " @ save V1-V8,LR\n" |
| " push {v1-v8,lr}\n" |
| " @ prepare stack for FPU\n" |
| " sub sp, sp, #64\n" |
| " @ test if fpu env should be preserved\n" |
| " cmp a4, #0\n" |
| " beq 1f\n" |
| " @ save S16-S31\n" |
| " vstmia sp, {d8-d15}\n" |
| "1:\n" |
| " @ store RSP (pointing to context-data) in A1\n" |
| " str sp, [a1]\n" |
| " @ restore RSP (pointing to context-data) from A2\n" |
| " mov sp, a2\n" |
| " @ test if fpu env should be preserved\n" |
| " cmp a4, #0\n" |
| " beq 2f\n" |
| " @ restore S16-S31\n" |
| " vldmia sp, {d8-d15}\n" |
| "2:\n" |
| " @ prepare stack for FPU\n" |
| " add sp, sp, #64\n" |
| " @ use third arg as return value after jump\n" |
| " @ and as first arg in context function\n" |
| " mov a1, a3\n" |
| " @ restore v1-V8,LR,PC\n" |
| " pop {v1-v8,lr}\n" |
| " pop {pc}\n" |
| ".size bthread_jump_fcontext,.-bthread_jump_fcontext\n" |
| "@ Mark that we don't need executable stack.\n" |
| ".section .note.GNU-stack,\"\",%progbits\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_arm32) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl bthread_make_fcontext\n" |
| ".align 2\n" |
| ".type bthread_make_fcontext,%function\n" |
| "bthread_make_fcontext:\n" |
| " @ shift address in A1 to lower 16 byte boundary\n" |
| " bic a1, a1, #15\n" |
| " @ reserve space for context-data on context-stack\n" |
| " sub a1, a1, #104\n" |
| " @ third arg of bthread_make_fcontext() == address of context-function\n" |
| " str a3, [a1,#100]\n" |
| " @ compute abs address of label finish\n" |
| " adr a2, finish\n" |
| " @ save address of finish as return-address for context-function\n" |
| " @ will be entered after context-function returns\n" |
| " str a2, [a1,#96]\n" |
| " bx lr @ return pointer to context-data\n" |
| "finish:\n" |
| " @ exit code is zero\n" |
| " mov a1, #0\n" |
| " @ exit application\n" |
| " bl _exit@PLT\n" |
| ".size bthread_make_fcontext,.-bthread_make_fcontext\n" |
| "@ Mark that we don't need executable stack.\n" |
| ".section .note.GNU-stack,\"\",%progbits\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_arm64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".cpu generic+fp+simd\n" |
| ".text\n" |
| ".align 2\n" |
| ".global bthread_jump_fcontext\n" |
| ".type bthread_jump_fcontext, %function\n" |
| "bthread_jump_fcontext:\n" |
| " # prepare stack for GP + FPU\n" |
| " sub sp, sp, #0xb0\n" |
| "# Because gcc may save integer registers in fp registers across a\n" |
| "# function call we cannot skip saving the fp registers.\n" |
| "#\n" |
| "# Do not reinstate this test unless you fully understand what you\n" |
| "# are doing.\n" |
| "#\n" |
| "# # test if fpu env should be preserved\n" |
| "# cmp w3, #0\n" |
| "# b.eq 1f\n" |
| " # save d8 - d15\n" |
| " stp d8, d9, [sp, #0x00]\n" |
| " stp d10, d11, [sp, #0x10]\n" |
| " stp d12, d13, [sp, #0x20]\n" |
| " stp d14, d15, [sp, #0x30]\n" |
| "1:\n" |
| " # save x19-x30\n" |
| " stp x19, x20, [sp, #0x40]\n" |
| " stp x21, x22, [sp, #0x50]\n" |
| " stp x23, x24, [sp, #0x60]\n" |
| " stp x25, x26, [sp, #0x70]\n" |
| " stp x27, x28, [sp, #0x80]\n" |
| " stp x29, x30, [sp, #0x90]\n" |
| " # save LR as PC\n" |
| " str x30, [sp, #0xa0]\n" |
| " # store RSP (pointing to context-data) in first argument (x0).\n" |
| " # STR cannot have sp as a target register\n" |
| " mov x4, sp\n" |
| " str x4, [x0]\n" |
| " # restore RSP (pointing to context-data) from A2 (x1)\n" |
| " mov sp, x1\n" |
| "# # test if fpu env should be preserved\n" |
| "# cmp w3, #0\n" |
| "# b.eq 2f\n" |
| " # load d8 - d15\n" |
| " ldp d8, d9, [sp, #0x00]\n" |
| " ldp d10, d11, [sp, #0x10]\n" |
| " ldp d12, d13, [sp, #0x20]\n" |
| " ldp d14, d15, [sp, #0x30]\n" |
| "2:\n" |
| " # load x19-x30\n" |
| " ldp x19, x20, [sp, #0x40]\n" |
| " ldp x21, x22, [sp, #0x50]\n" |
| " ldp x23, x24, [sp, #0x60]\n" |
| " ldp x25, x26, [sp, #0x70]\n" |
| " ldp x27, x28, [sp, #0x80]\n" |
| " ldp x29, x30, [sp, #0x90]\n" |
| " # use third arg as return value after jump\n" |
| " # and as first arg in context function\n" |
| " mov x0, x2\n" |
| " # load pc\n" |
| " ldr x4, [sp, #0xa0]\n" |
| " # restore stack from GP + FPU\n" |
| " add sp, sp, #0xb0\n" |
| " ret x4\n" |
| ".size bthread_jump_fcontext,.-bthread_jump_fcontext\n" |
| "# Mark that we don't need executable stack.\n" |
| ".section .note.GNU-stack,\"\",%progbits\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_arm64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".cpu generic+fp+simd\n" |
| ".text\n" |
| ".align 2\n" |
| ".global bthread_make_fcontext\n" |
| ".type bthread_make_fcontext, %function\n" |
| "bthread_make_fcontext:\n" |
| " # shift address in x0 (allocated stack) to lower 16 byte boundary\n" |
| " and x0, x0, ~0xF\n" |
| " # reserve space for context-data on context-stack\n" |
| " sub x0, x0, #0xb0\n" |
| " # third arg of bthread_make_fcontext() == address of context-function\n" |
| " # store address as a PC to jump in\n" |
| " str x2, [x0, #0xa0]\n" |
| " # save address of finish as return-address for context-function\n" |
| " # will be entered after context-function returns (LR register)\n" |
| " adr x1, finish\n" |
| " str x1, [x0, #0x98]\n" |
| " ret x30 \n" |
| "finish:\n" |
| " # exit code is zero\n" |
| " mov x0, #0\n" |
| " # exit application\n" |
| " bl _exit\n" |
| ".size bthread_make_fcontext,.-bthread_make_fcontext\n" |
| "# Mark that we don't need executable stack.\n" |
| ".section .note.GNU-stack,\"\",%progbits\n" |
| ); |
| |
| #endif |
| |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_apple_arm64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl _bthread_jump_fcontext\n" |
| ".balign 16\n" |
| "_bthread_jump_fcontext:\n" |
| " ; prepare stack for GP + FPU\n" |
| " sub sp, sp, #0xb0\n" |
| "#if (defined(__VFP_FP__) && !defined(__SOFTFP__))\n" |
| " ; test if fpu env should be preserved\n" |
| " cmp w3, #0\n" |
| " b.eq 1f\n" |
| " ; save d8 - d15\n" |
| " stp d8, d9, [sp, #0x00]\n" |
| " stp d10, d11, [sp, #0x10]\n" |
| " stp d12, d13, [sp, #0x20]\n" |
| " stp d14, d15, [sp, #0x30]\n" |
| "1:\n" |
| "#endif\n" |
| " ; save x19-x30\n" |
| " stp x19, x20, [sp, #0x40]\n" |
| " stp x21, x22, [sp, #0x50]\n" |
| " stp x23, x24, [sp, #0x60]\n" |
| " stp x25, x26, [sp, #0x70]\n" |
| " stp x27, x28, [sp, #0x80]\n" |
| " stp fp, lr, [sp, #0x90]\n" |
| " ; save LR as PC\n" |
| " str lr, [sp, #0xa0]\n" |
| " ; store RSP (pointing to context-data) in first argument (x0).\n" |
| " ; STR cannot have sp as a target register\n" |
| " mov x4, sp\n" |
| " str x4, [x0]\n" |
| " ; restore RSP (pointing to context-data) from A2 (x1)\n" |
| " mov sp, x1\n" |
| "#if (defined(__VFP_FP__) && !defined(__SOFTFP__))\n" |
| " ; test if fpu env should be preserved\n" |
| " cmp w3, #0\n" |
| " b.eq 2f\n" |
| " ; load d8 - d15\n" |
| " ldp d8, d9, [sp, #0x00]\n" |
| " ldp d10, d11, [sp, #0x10]\n" |
| " ldp d12, d13, [sp, #0x20]\n" |
| " ldp d14, d15, [sp, #0x30]\n" |
| "2:\n" |
| "#endif\n" |
| " ; load x19-x30\n" |
| " ldp x19, x20, [sp, #0x40]\n" |
| " ldp x21, x22, [sp, #0x50]\n" |
| " ldp x23, x24, [sp, #0x60]\n" |
| " ldp x25, x26, [sp, #0x70]\n" |
| " ldp x27, x28, [sp, #0x80]\n" |
| " ldp fp, lr, [sp, #0x90]\n" |
| " ; use third arg as return value after jump\n" |
| " ; and as first arg in context function\n" |
| " mov x0, x2\n" |
| " ; load pc\n" |
| " ldr x4, [sp, #0xa0]\n" |
| " ; restore stack from GP + FPU\n" |
| " add sp, sp, #0xb0\n" |
| " ret x4\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_apple_arm64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".globl _bthread_make_fcontext\n" |
| ".balign 16\n" |
| "_bthread_make_fcontext:\n" |
| " ; shift address in x0 (allocated stack) to lower 16 byte boundary\n" |
| " and x0, x0, ~0xF\n" |
| " ; reserve space for context-data on context-stack\n" |
| " sub x0, x0, #0xb0\n" |
| " ; third arg of make_fcontext() == address of context-function\n" |
| " ; store address as a PC to jump in\n" |
| " str x2, [x0, #0xa0]\n" |
| " ; compute abs address of label finish\n" |
| " ; 0x0c = 3 instructions * size (4) before label 'finish'\n" |
| " ; TODO: Numeric offset since llvm still does not support labels in ADR. Fix:\n" |
| " ; http:\n" |
| " adr x1, 0x0c\n" |
| " ; save address of finish as return-address for context-function\n" |
| " ; will be entered after context-function returns (LR register)\n" |
| " str x1, [x0, #0x98]\n" |
| " ret lr ; return pointer to context-data (x0)\n" |
| "finish:\n" |
| " ; exit code is zero\n" |
| " mov x0, #0\n" |
| " ; exit application\n" |
| " bl __exit\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_loongarch64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".align 3\n" |
| ".global bthread_jump_fcontext\n" |
| ".type bthread_jump_fcontext, %function\n" |
| "bthread_jump_fcontext:\n" |
| " addi.d $sp, $sp, -160\n" |
| |
| " st.d $s0, $sp, 64 # save S0\n" |
| " st.d $s1, $sp, 72 # save S1\n" |
| " st.d $s2, $sp, 80 # save S2\n" |
| " st.d $s3, $sp, 88 # save S3\n" |
| " st.d $s4, $sp, 96 # save S4\n" |
| " st.d $s5, $sp, 104 # save S5\n" |
| " st.d $s6, $sp, 112 # save S6\n" |
| " st.d $s7, $sp, 120 # save S7\n" |
| " st.d $s8, $sp, 128 # save S8\n" |
| " st.d $fp, $sp, 136 # save FP\n" |
| " st.d $ra, $sp, 144 # save RA\n" |
| " st.d $ra, $sp, 152 # save RA as PC\n" |
| |
| " fst.d $fs0, $sp, 0 # save F24\n" |
| " fst.d $fs1, $sp, 8 # save F25\n" |
| " fst.d $fs2, $sp, 16 # save F26\n" |
| " fst.d $fs3, $sp, 24 # save F27\n" |
| " fst.d $fs4, $sp, 32 # save F28\n" |
| " fst.d $fs5, $sp, 40 # save F29\n" |
| " fst.d $fs6, $sp, 48 # save F30\n" |
| " fst.d $fs7, $sp, 56 # save F31\n" |
| |
| " # swap a0(new stack), sp(old stack)\n" |
| " st.d $sp, $a0, 0\n" |
| " or $sp, $a1, $zero\n" |
| |
| " fld.d $fs0, $sp, 0 # restore F24\n" |
| " fld.d $fs1, $sp, 8 # restore F25\n" |
| " fld.d $fs2, $sp, 16 # restore F26\n" |
| " fld.d $fs3, $sp, 24 # restore F27\n" |
| " fld.d $fs4, $sp, 32 # restore F28\n" |
| " fld.d $fs5, $sp, 40 # restore F29\n" |
| " fld.d $fs6, $sp, 48 # restore F30\n" |
| " fld.d $fs7, $sp, 56 # restore F31\n" |
| |
| " ld.d $s0, $sp, 64 # restore S0\n" |
| " ld.d $s1, $sp, 72 # restore S1\n" |
| " ld.d $s2, $sp, 80 # restore S2\n" |
| " ld.d $s3, $sp, 88 # restore S3\n" |
| " ld.d $s4, $sp, 96 # restore S4\n" |
| " ld.d $s5, $sp, 104 # restore S5\n" |
| " ld.d $s6, $sp, 112 # restore S6\n" |
| " ld.d $s7, $sp, 120 # restore S7\n" |
| " ld.d $s8, $sp, 128 # restore S8\n" |
| " ld.d $fp, $sp, 136 # restore FP\n" |
| " ld.d $ra, $sp, 144 # restore RA\n" |
| |
| " or $a0, $a2, $zero \n" |
| " # load PC\n" |
| " ld.d $a4, $sp, 152\n" |
| |
| " # adjust stack\n" |
| " addi.d $sp, $sp, 160\n" |
| |
| " # jump to context\n" |
| " jirl $zero, $a4, 0\n" |
| ); |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_loongarch64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".align 3\n" |
| ".global bthread_make_fcontext\n" |
| ".type bthread_make_fcontext, %function\n" |
| "bthread_make_fcontext:\n" |
| //" andi $a0, $a0, ~0xF\n" |
| " addi.d $a0, $a0, -160\n" |
| |
| " st.d $a2, $a0, 152\n" |
| |
| " pcaddi $a1, 3\n" |
| " st.d $a1, $a0, 144\n" |
| " jirl $zero, $ra, 0\n" |
| |
| "finish:\n" |
| " or $a0, $zero, $zero\n" |
| " bl _exit\n" |
| ); |
| |
| #endif |
| |
| #if defined(BTHREAD_CONTEXT_PLATFORM_linux_riscv64) && defined(BTHREAD_CONTEXT_COMPILER_gcc) |
| __asm ( |
| ".text\n" |
| ".align 3\n" |
| ".global bthread_jump_fcontext\n" |
| ".type bthread_jump_fcontext, %function\n" |
| "bthread_jump_fcontext:\n" |
| " addi sp, sp, -160\n" |
| " # save callee-saved registers\n" |
| " sd s0, 64(sp)\n" |
| " sd s1, 72(sp)\n" |
| " sd s2, 80(sp)\n" |
| " sd s3, 88(sp)\n" |
| " sd s4, 96(sp)\n" |
| " sd s5, 104(sp)\n" |
| " sd s6, 112(sp)\n" |
| " sd s7, 120(sp)\n" |
| " sd s8, 128(sp)\n" |
| " sd s9, 136(sp)\n" |
| " sd s10, 144(sp)\n" |
| " sd s11, 152(sp)\n" |
| " sd ra, 0(sp)\n" |
| " sd fp, 8(sp)\n" |
| " # save floating point registers\n" |
| " fsd fs0, 16(sp)\n" |
| " fsd fs1, 24(sp)\n" |
| " fsd fs2, 32(sp)\n" |
| " fsd fs3, 40(sp)\n" |
| " fsd fs4, 48(sp)\n" |
| " fsd fs5, 56(sp)\n" |
| " # store current stack pointer\n" |
| " sd sp, 0(a0)\n" |
| " # load new stack pointer\n" |
| " mv sp, a1\n" |
| " # restore floating point registers\n" |
| " fld fs0, 16(sp)\n" |
| " fld fs1, 24(sp)\n" |
| " fld fs2, 32(sp)\n" |
| " fld fs3, 40(sp)\n" |
| " fld fs4, 48(sp)\n" |
| " fld fs5, 56(sp)\n" |
| " # restore callee-saved registers\n" |
| " ld s0, 64(sp)\n" |
| " ld s1, 72(sp)\n" |
| " ld s2, 80(sp)\n" |
| " ld s3, 88(sp)\n" |
| " ld s4, 96(sp)\n" |
| " ld s5, 104(sp)\n" |
| " ld s6, 112(sp)\n" |
| " ld s7, 120(sp)\n" |
| " ld s8, 128(sp)\n" |
| " ld s9, 136(sp)\n" |
| " ld s10, 144(sp)\n" |
| " ld s11, 152(sp)\n" |
| " ld ra, 0(sp)\n" |
| " ld fp, 8(sp)\n" |
| " # restore stack pointer\n" |
| " addi sp, sp, 160\n" |
| " # return value in a0\n" |
| " mv a0, a2\n" |
| " # jump to new context\n" |
| " ret\n" |
| ); |
| |
| __asm ( |
| ".text\n" |
| ".align 3\n" |
| ".global bthread_make_fcontext\n" |
| ".type bthread_make_fcontext, %function\n" |
| "bthread_make_fcontext:\n" |
| " # align stack to 16-byte boundary\n" |
| " andi a0, a0, -16\n" |
| " addi a0, a0, -160\n" |
| " # store function pointer at the top of stack\n" |
| " sd a2, 0(a0)\n" |
| " # store finish function address\n" |
| " la t0, finish\n" |
| " sd t0, 8(a0)\n" |
| " # return pointer to context data\n" |
| " ret\n" |
| "finish:\n" |
| " # exit with code 0\n" |
| " li a0, 0\n" |
| " # call exit\n" |
| " call _exit\n" |
| ); |
| #endif |
