kicad/thirdparty/libcontext/libcontext.cpp

1440 lines
38 KiB
C++

/*
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.BOOSTv1_0.txt or copy at
http://www.boost.org/LICENSE_1_0.txt)
*/
#include <csetjmp>
#include <cstdlib>
#include <libcontext.h>
#if defined(LIBCONTEXT_PLATFORM_windows_i386) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".p2align 4,,15\n"
".globl _jump_fcontext\n"
".def _jump_fcontext; .scl 2; .type 32; .endef\n"
"_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(LIBCONTEXT_PLATFORM_windows_i386) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".p2align 4,,15\n"
".globl _make_fcontext\n"
".def _make_fcontext; .scl 2; .type 32; .endef\n"
"_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(LIBCONTEXT_PLATFORM_windows_x86_64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".p2align 4,,15\n"
".globl jump_fcontext\n"
".def jump_fcontext; .scl 2; .type 32; .endef\n"
".seh_proc jump_fcontext\n"
"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 0x20(%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,0x20(%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(LIBCONTEXT_PLATFORM_windows_x86_64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".p2align 4,,15\n"
".globl make_fcontext\n"
".def make_fcontext; .scl 2; .type 32; .endef\n"
".seh_proc make_fcontext\n"
"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"
"call _exit\n"
"hlt\n"
" .seh_endproc\n"
".def _exit; .scl 2; .type 32; .endef \n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_i386) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl jump_fcontext\n"
".align 2\n"
".type jump_fcontext,@function\n"
"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 jump_fcontext,.-jump_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_i386) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl make_fcontext\n"
".align 2\n"
".type make_fcontext,@function\n"
"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 make_fcontext,.-make_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_x86_64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl jump_fcontext\n"
".type jump_fcontext,@function\n"
".align 16\n"
"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 jump_fcontext,.-jump_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_x86_64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl make_fcontext\n"
".type make_fcontext,@function\n"
".align 16\n"
"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 make_fcontext,.-make_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_apple_x86_64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl _jump_fcontext\n"
".align 8\n"
"_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(LIBCONTEXT_PLATFORM_apple_x86_64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl _make_fcontext\n"
".align 8\n"
"_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(LIBCONTEXT_PLATFORM_apple_i386) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl _jump_fcontext\n"
".align 2\n"
"_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(LIBCONTEXT_PLATFORM_apple_i386) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl _make_fcontext\n"
".align 2\n"
"_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(LIBCONTEXT_PLATFORM_apple_arm64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".balign 16\n"
".global _jump_fcontext\n"
"_jump_fcontext:\n"
" # prepare stack for GP + FPU\n"
" sub sp, sp, #0xb0\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"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_apple_arm64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".cpu generic+fp+simd\n"
".text\n"
".align 2\n"
".global _make_fcontext\n"
"_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"
" # save address of finish as return-address for context-function\n"
" # will be entered after context-function returns (LR register)\n"
" # need to relocate manually because of Clang limitation\n"
" adrp x1, finish@PAGE\n"
" add x1, x1, finish@PAGEOFF\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"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_arm32) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl jump_fcontext\n"
".align 2\n"
".type jump_fcontext,%function\n"
"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 jump_fcontext,.-jump_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_arm32) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl make_fcontext\n"
".align 2\n"
".type make_fcontext,%function\n"
"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 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 make_fcontext,.-make_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_arm64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".cpu generic+fp+simd\n"
".text\n"
".align 2\n"
".global jump_fcontext\n"
".type jump_fcontext, %function\n"
"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 jump_fcontext,.-jump_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_arm64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".cpu generic+fp+simd\n"
".text\n"
".align 2\n"
".global make_fcontext\n"
".type make_fcontext, %function\n"
"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"
" # 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 make_fcontext,.-make_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_mips_n64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl jump_fcontext\n"
".align 2\n"
".set noreorder\n"
".type jump_fcontext,@function\n"
".ent jump_fcontext\n"
"jump_fcontext:\n"
" # reserve space on stack\n"
" daddiu $sp, $sp, -176\n"
" sd $s0, 64($sp) # save S0\n"
" sd $s1, 72($sp) # save S1\n"
" sd $s2, 80($sp) # save S2\n"
" sd $s3, 88($sp) # save S3\n"
" sd $s4, 96($sp) # save S4\n"
" sd $s5, 104($sp) # save S5\n"
" sd $s6, 112($sp) # save S6\n"
" sd $s7, 120($sp) # save S7\n"
" sd $fp, 128($sp) # save FP\n"
" sd $ra, 144($sp) # save RA\n"
" sd $ra, 152($sp) # save RA as PC\n"
" s.d $f24, 0($sp) # save F24\n"
" s.d $f25, 8($sp) # save F25\n"
" s.d $f26, 16($sp) # save F26\n"
" s.d $f27, 24($sp) # save F27\n"
" s.d $f28, 32($sp) # save F28\n"
" s.d $f29, 40($sp) # save F29\n"
" s.d $f30, 48($sp) # save F30\n"
" s.d $f31, 56($sp) # save F31\n"
" # store SP (pointing to old context-data) in pointer a0(first arg)\n"
" sd $sp, 0($a0)\n"
" # get SP (pointing to new context-data) from a1 param\n"
" move $sp, $a1\n"
" l.d $f24, 0($sp) # restore F24\n"
" l.d $f25, 8($sp) # restore F25\n"
" l.d $f26, 16($sp) # restore F26\n"
" l.d $f27, 24($sp) # restore F27\n"
" l.d $f28, 32($sp) # restore F28\n"
" l.d $f29, 40($sp) # restore F29\n"
" l.d $f30, 48($sp) # restore F30\n"
" l.d $f31, 56($sp) # restore F31\n"
" ld $s0, 64($sp) # restore S0\n"
" ld $s1, 72($sp) # restore S1\n"
" ld $s2, 80($sp) # restore S2\n"
" ld $s3, 88($sp) # restore S3\n"
" ld $s4, 96($sp) # restore S4\n"
" ld $s5, 104($sp) # restore S5\n"
" ld $s6, 112($sp) # restore S6\n"
" ld $s7, 120($sp) # restore S7\n"
" ld $fp, 128($sp) # restore FP\n"
" ld $ra, 144($sp) # restore RA\n"
" # load PC\n"
" ld $t9, 152($sp)\n"
" sd $a2, 160($sp)\n"
" # adjust stack\n"
" daddiu $sp, $sp, 176\n"
" move $a0, $a2 # move *data from a2 to a0 as param\n"
" move $v0, $a2 # move *data from a2 to v0 as return\n"
" # jump to context\n"
" jr $t9\n"
" nop\n"
".end jump_fcontext\n"
".size jump_fcontext, .-jump_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_mips_n64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl make_fcontext\n"
".align 2\n"
".set noreorder\n"
".type make_fcontext,@function\n"
".ent make_fcontext\n"
"make_fcontext:\n"
"#ifdef __PIC__\n"
".set noreorder\n"
".cpload $t9\n"
".set reorder\n"
"#endif\n"
" # shift address in A0 to lower 16 byte boundary\n"
" li $v1, 0xfffffffffffffff0\n"
" and $v0, $v1, $a0\n"
" # reserve space for context-data on context-stack\n"
" daddiu $v0, $v0, -176\n"
" # third arg of make_fcontext() == address of context-function\n"
" sd $a2, 152($v0)\n"
" # save global pointer in context-data\n"
" sd $gp, 136($v0)\n"
" # psudo instruction compute abs address of label finish based on GP\n"
" dla $t9, finish\n"
" # save address of finish as return-address for context-function\n"
" # will be entered after context-function returns\n"
" sd $t9, 144($v0)\n"
" jr $ra # return pointer to context-data\n"
" nop\n"
"finish:\n"
" # reload our gp register (needed for la)\n"
" daddiu $t0, $sp, -176\n"
" ld $gp, 136($t0)\n"
" ld $v0, 160($t0)\n"
" # call _exit(0)\n"
" dla $t9, _exit\n"
" move $a0, $zero\n"
" jr $t9\n"
" nop\n"
".end make_fcontext\n"
".size make_fcontext, .-make_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_ppc32) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl jump_fcontext\n"
".align 2\n"
".type jump_fcontext,@function\n"
"jump_fcontext:\n"
" # reserve space on stack\n"
" subi %r1, %r1, 240\n"
" stw %r13, 152(%r1) # save R13\n"
" stw %r14, 156(%r1) # save R14\n"
" stw %r15, 160(%r1) # save R15\n"
" stw %r16, 164(%r1) # save R16\n"
" stw %r17, 168(%r1) # save R17\n"
" stw %r18, 172(%r1) # save R18\n"
" stw %r19, 176(%r1) # save R19\n"
" stw %r20, 180(%r1) # save R20\n"
" stw %r21, 184(%r1) # save R21\n"
" stw %r22, 188(%r1) # save R22\n"
" stw %r23, 192(%r1) # save R23\n"
" stw %r24, 196(%r1) # save R24\n"
" stw %r25, 200(%r1) # save R25\n"
" stw %r26, 204(%r1) # save R26\n"
" stw %r27, 208(%r1) # save R27\n"
" stw %r28, 212(%r1) # save R28\n"
" stw %r29, 216(%r1) # save R29\n"
" stw %r30, 220(%r1) # save R30\n"
" stw %r31, 224(%r1) # save R31\n"
" # save CR\n"
" mfcr %r0\n"
" stw %r0, 228(%r1)\n"
" # save LR\n"
" mflr %r0\n"
" stw %r0, 232(%r1)\n"
" # save LR as PC\n"
" stw %r0, 236(%r1)\n"
" # test if fpu env should be preserved\n"
" cmpwi cr7, %r6, 0\n"
" beq cr7, 1f\n"
" stfd %f14, 0(%r1) # save F14\n"
" stfd %f15, 8(%r1) # save F15\n"
" stfd %f16, 16(%r1) # save F16\n"
" stfd %f17, 24(%r1) # save F17\n"
" stfd %f18, 32(%r1) # save F18\n"
" stfd %f19, 40(%r1) # save F19\n"
" stfd %f20, 48(%r1) # save F20\n"
" stfd %f21, 56(%r1) # save F21\n"
" stfd %f22, 64(%r1) # save F22\n"
" stfd %f23, 72(%r1) # save F23\n"
" stfd %f24, 80(%r1) # save F24\n"
" stfd %f25, 88(%r1) # save F25\n"
" stfd %f26, 96(%r1) # save F26\n"
" stfd %f27, 104(%r1) # save F27\n"
" stfd %f28, 112(%r1) # save F28\n"
" stfd %f29, 120(%r1) # save F29\n"
" stfd %f30, 128(%r1) # save F30\n"
" stfd %f31, 136(%r1) # save F31\n"
" mffs %f0 # load FPSCR\n"
" stfd %f0, 144(%r1) # save FPSCR\n"
"1:\n"
" # store RSP (pointing to context-data) in R3\n"
" stw %r1, 0(%r3)\n"
" # restore RSP (pointing to context-data) from R4\n"
" mr %r1, %r4\n"
" # test if fpu env should be preserved\n"
" cmpwi cr7, %r6, 0\n"
" beq cr7, 2f\n"
" lfd %f14, 0(%r1) # restore F14\n"
" lfd %f15, 8(%r1) # restore F15\n"
" lfd %f16, 16(%r1) # restore F16\n"
" lfd %f17, 24(%r1) # restore F17\n"
" lfd %f18, 32(%r1) # restore F18\n"
" lfd %f19, 40(%r1) # restore F19\n"
" lfd %f20, 48(%r1) # restore F20\n"
" lfd %f21, 56(%r1) # restore F21\n"
" lfd %f22, 64(%r1) # restore F22\n"
" lfd %f23, 72(%r1) # restore F23\n"
" lfd %f24, 80(%r1) # restore F24\n"
" lfd %f25, 88(%r1) # restore F25\n"
" lfd %f26, 96(%r1) # restore F26\n"
" lfd %f27, 104(%r1) # restore F27\n"
" lfd %f28, 112(%r1) # restore F28\n"
" lfd %f29, 120(%r1) # restore F29\n"
" lfd %f30, 128(%r1) # restore F30\n"
" lfd %f31, 136(%r1) # restore F31\n"
" lfd %f0, 144(%r1) # load FPSCR\n"
" mtfsf 0xff, %f0 # restore FPSCR\n"
"2:\n"
" lwz %r13, 152(%r1) # restore R13\n"
" lwz %r14, 156(%r1) # restore R14\n"
" lwz %r15, 160(%r1) # restore R15\n"
" lwz %r16, 164(%r1) # restore R16\n"
" lwz %r17, 168(%r1) # restore R17\n"
" lwz %r18, 172(%r1) # restore R18\n"
" lwz %r19, 176(%r1) # restore R19\n"
" lwz %r20, 180(%r1) # restore R20\n"
" lwz %r21, 184(%r1) # restore R21\n"
" lwz %r22, 188(%r1) # restore R22\n"
" lwz %r23, 192(%r1) # restore R23\n"
" lwz %r24, 196(%r1) # restore R24\n"
" lwz %r25, 200(%r1) # restore R25\n"
" lwz %r26, 204(%r1) # restore R26\n"
" lwz %r27, 208(%r1) # restore R27\n"
" lwz %r28, 212(%r1) # restore R28\n"
" lwz %r29, 216(%r1) # restore R29\n"
" lwz %r30, 220(%r1) # restore R30\n"
" lwz %r31, 224(%r1) # restore R31\n"
" # restore CR\n"
" lwz %r0, 228(%r1)\n"
" mtcr %r0\n"
" # restore LR\n"
" lwz %r0, 232(%r1)\n"
" mtlr %r0\n"
" # load PC\n"
" lwz %r0, 236(%r1)\n"
" # restore CTR\n"
" mtctr %r0\n"
" # adjust stack\n"
" addi %r1, %r1, 240\n"
" # use third arg as return value after jump\n"
" # use third arg as first arg in context function\n"
" mr %r3, %r5\n"
" # jump to context\n"
" bctr\n"
".size jump_fcontext, .-jump_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_ppc32) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".text\n"
".globl make_fcontext\n"
".align 2\n"
".type make_fcontext,@function\n"
"make_fcontext:\n"
" # save return address into R6\n"
" mflr %r6\n"
" # first arg of make_fcontext() == top address of context-function\n"
" # shift address in R3 to lower 16 byte boundary\n"
" clrrwi %r3, %r3, 4\n"
" # reserve space for context-data on context-stack\n"
" # including 64 byte of linkage + parameter area (R1 % 16 == 0)\n"
" subi %r3, %r3, 304\n"
" # third arg of make_fcontext() == address of context-function\n"
" stw %r5, 236(%r3)\n"
" # load LR\n"
" mflr %r0\n"
" # jump to label 1\n"
" bl 1f\n"
"1:\n"
" # load LR into R4\n"
" mflr %r4\n"
" # compute abs address of label finish\n"
" addi %r4, %r4, finish - 1b\n"
" # restore LR\n"
" mtlr %r0\n"
" # save address of finish as return-address for context-function\n"
" # will be entered after context-function returns\n"
" stw %r4, 232(%r3)\n"
" # restore return address from R6\n"
" mtlr %r6\n"
" blr # return pointer to context-data\n"
"finish:\n"
" # save return address into R0\n"
" mflr %r0\n"
" # save return address on stack, set up stack frame\n"
" stw %r0, 4(%r1)\n"
" # allocate stack space, R1 % 16 == 0\n"
" stwu %r1, -16(%r1)\n"
" # exit code is zero\n"
" li %r3, 0\n"
" # exit application\n"
" bl _exit@plt\n"
".size make_fcontext, .-make_fcontext\n"
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_ppc64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".globl jump_fcontext\n"
#if _CALL_ELF == 2
" .text\n"
" .align 2\n"
"jump_fcontext:\n"
" addis %r2, %r12, .TOC.-jump_fcontext@ha\n"
" addi %r2, %r2, .TOC.-jump_fcontext@l\n"
" .localentry jump_fcontext, . - jump_fcontext\n"
#else
" .section \".opd\",\"aw\"\n"
" .align 3\n"
"jump_fcontext:\n"
# ifdef _CALL_LINUX
" .quad .L.jump_fcontext,.TOC.@tocbase,0\n"
" .type jump_fcontext,@function\n"
" .text\n"
" .align 2\n"
".L.jump_fcontext:\n"
# else
" .hidden .jump_fcontext\n"
" .globl .jump_fcontext\n"
" .quad .jump_fcontext,.TOC.@tocbase,0\n"
" .size jump_fcontext,24\n"
" .type .jump_fcontext,@function\n"
" .text\n"
" .align 2\n"
".jump_fcontext:\n"
# endif
#endif
" # reserve space on stack\n"
" subi %r1, %r1, 320\n"
#if _CALL_ELF != 2
" std %r2, 144(%r1) # save TOC\n"
#endif
" std %r14, 152(%r1) # save R14\n"
" std %r15, 160(%r1) # save R15\n"
" std %r16, 168(%r1) # save R16\n"
" std %r17, 176(%r1) # save R17\n"
" std %r18, 184(%r1) # save R18\n"
" std %r19, 192(%r1) # save R19\n"
" std %r20, 200(%r1) # save R20\n"
" std %r21, 208(%r1) # save R21\n"
" std %r22, 216(%r1) # save R22\n"
" std %r23, 224(%r1) # save R23\n"
" std %r24, 232(%r1) # save R24\n"
" std %r25, 240(%r1) # save R25\n"
" std %r26, 248(%r1) # save R26\n"
" std %r27, 256(%r1) # save R27\n"
" std %r28, 264(%r1) # save R28\n"
" std %r29, 272(%r1) # save R29\n"
" std %r30, 280(%r1) # save R30\n"
" std %r31, 288(%r1) # save R31\n"
" # save CR\n"
" mfcr %r0\n"
" std %r0, 296(%r1)\n"
" # save LR\n"
" mflr %r0\n"
" std %r0, 304(%r1)\n"
" # save LR as PC\n"
" std %r0, 312(%r1)\n"
" # test if fpu env should be preserved\n"
" cmpwi cr7, %r6, 0\n"
" beq cr7, 1f\n"
" stfd %f14, 0(%r1) # save F14\n"
" stfd %f15, 8(%r1) # save F15\n"
" stfd %f16, 16(%r1) # save F16\n"
" stfd %f17, 24(%r1) # save F17\n"
" stfd %f18, 32(%r1) # save F18\n"
" stfd %f19, 40(%r1) # save F19\n"
" stfd %f20, 48(%r1) # save F20\n"
" stfd %f21, 56(%r1) # save F21\n"
" stfd %f22, 64(%r1) # save F22\n"
" stfd %f23, 72(%r1) # save F23\n"
" stfd %f24, 80(%r1) # save F24\n"
" stfd %f25, 88(%r1) # save F25\n"
" stfd %f26, 96(%r1) # save F26\n"
" stfd %f27, 104(%r1) # save F27\n"
" stfd %f28, 112(%r1) # save F28\n"
" stfd %f29, 120(%r1) # save F29\n"
" stfd %f30, 128(%r1) # save F30\n"
" stfd %f31, 136(%r1) # save F31\n"
"1:\n"
" # store RSP (pointing to context-data) in R3\n"
" std %r1, 0(%r3)\n"
" # restore RSP (pointing to context-data) from R4\n"
" mr %r1, %r4\n"
" # test if fpu env should be preserved\n"
" cmpwi cr7, %r6, 0\n"
" beq cr7, 2f\n"
" lfd %f14, 0(%r1) # restore F14\n"
" lfd %f15, 8(%r1) # restore F15\n"
" lfd %f16, 16(%r1) # restore F16\n"
" lfd %f17, 24(%r1) # restore F17\n"
" lfd %f18, 32(%r1) # restore F18\n"
" lfd %f19, 40(%r1) # restore F19\n"
" lfd %f20, 48(%r1) # restore F20\n"
" lfd %f21, 56(%r1) # restore F21\n"
" lfd %f22, 64(%r1) # restore F22\n"
" lfd %f23, 72(%r1) # restore F23\n"
" lfd %f24, 80(%r1) # restore F24\n"
" lfd %f25, 88(%r1) # restore F25\n"
" lfd %f26, 96(%r1) # restore F26\n"
" lfd %f27, 104(%r1) # restore F27\n"
" lfd %f28, 112(%r1) # restore F28\n"
" lfd %f29, 120(%r1) # restore F29\n"
" lfd %f30, 128(%r1) # restore F30\n"
" lfd %f31, 136(%r1) # restore F31\n"
"2:\n"
#if _CALL_ELF != 2
" ld %r2, 144(%r1) # restore TOC\n"
#endif
" ld %r14, 152(%r1) # restore R14\n"
" ld %r15, 160(%r1) # restore R15\n"
" ld %r16, 168(%r1) # restore R16\n"
" ld %r17, 176(%r1) # restore R17\n"
" ld %r18, 184(%r1) # restore R18\n"
" ld %r19, 192(%r1) # restore R19\n"
" ld %r20, 200(%r1) # restore R20\n"
" ld %r21, 208(%r1) # restore R21\n"
" ld %r22, 216(%r1) # restore R22\n"
" ld %r23, 224(%r1) # restore R23\n"
" ld %r24, 232(%r1) # restore R24\n"
" ld %r25, 240(%r1) # restore R25\n"
" ld %r26, 248(%r1) # restore R26\n"
" ld %r27, 256(%r1) # restore R27\n"
" ld %r28, 264(%r1) # restore R28\n"
" ld %r29, 272(%r1) # restore R29\n"
" ld %r30, 280(%r1) # restore R30\n"
" ld %r31, 288(%r1) # restore R31\n"
" # restore CR\n"
" ld %r0, 296(%r1)\n"
" mtcr %r0\n"
" # restore LR\n"
" ld %r0, 304(%r1)\n"
" mtlr %r0\n"
" # load PC\n"
" ld %r12, 312(%r1)\n"
" # restore CTR\n"
" mtctr %r12\n"
" # adjust stack\n"
" addi %r1, %r1, 320\n"
" # use third arg as return value after jump\n"
" # use third arg as first arg in context function\n"
" mr %r3, %r5\n"
" # jump to context\n"
" bctr\n"
#if _CALL_ELF == 2
" .size jump_fcontext, .-jump_fcontext\n"
#else
# ifdef _CALL_LINUX
" .size .jump_fcontext, .-.L.jump_fcontext\n"
# else
" .size .jump_fcontext, .-.jump_fcontext\n"
# endif
#endif
);
#endif
#if defined(LIBCONTEXT_PLATFORM_linux_ppc64) && defined(LIBCONTEXT_COMPILER_gcc)
__asm (
".globl make_fcontext\n"
#if _CALL_ELF == 2
" .text\n"
" .align 2\n"
"make_fcontext:\n"
" addis %r2, %r12, .TOC.-make_fcontext@ha\n"
" addi %r2, %r2, .TOC.-make_fcontext@l\n"
" .localentry make_fcontext, . - make_fcontext\n"
#else
" .section \".opd\",\"aw\"\n"
" .align 3\n"
"make_fcontext:\n"
# ifdef _CALL_LINUX
" .quad .L.make_fcontext,.TOC.@tocbase,0\n"
" .type make_fcontext,@function\n"
" .text\n"
" .align 2\n"
".L.make_fcontext:\n"
# else
" .hidden .make_fcontext\n"
" .globl .make_fcontext\n"
" .quad .make_fcontext,.TOC.@tocbase,0\n"
" .size make_fcontext,24\n"
" .type .make_fcontext,@function\n"
" .text\n"
" .align 2\n"
".make_fcontext:\n"
# endif
#endif
" # save return address into R6\n"
" mflr %r6\n"
" # first arg of make_fcontext() == top address of context-stack\n"
" # shift address in R3 to lower 16 byte boundary\n"
" clrrdi %r3, %r3, 4\n"
" # reserve space for context-data on context-stack\n"
" # including 64 byte of linkage + parameter area (R1 % 16 == 0)\n"
" subi %r3, %r3, 384\n"
" # third arg of make_fcontext() == address of context-function\n"
" # entry point (ELFv2) or descriptor (ELFv1)\n"
#if _CALL_ELF == 2
" # save address of context-function entry point\n"
" std %r5, 312(%r3)\n"
#else
" # save address of context-function entry point\n"
" ld %r4, 0(%r5)\n"
" std %r4, 312(%r3)\n"
" # save TOC of context-function\n"
" ld %r4, 8(%r5)\n"
" std %r4, 144(%r3)\n"
#endif
" # load LR\n"
" mflr %r0\n"
" # jump to label 1\n"
" bl 1f\n"
"1:\n"
" # load LR into R4\n"
" mflr %r4\n"
" # compute abs address of label finish\n"
" addi %r4, %r4, finish - 1b\n"
" # restore LR\n"
" mtlr %r0\n"
" # save address of finish as return-address for context-function\n"
" # will be entered after context-function returns\n"
" std %r4, 304(%r3)\n"
" # restore return address from R6\n"
" mtlr %r6\n"
" blr # return pointer to context-data\n"
"finish:\n"
" # save return address into R0\n"
" mflr %r0\n"
" # save return address on stack, set up stack frame\n"
" std %r0, 8(%r1)\n"
" # allocate stack space, R1 % 16 == 0\n"
" stdu %r1, -32(%r1)\n"
" # exit code is zero\n"
" li %r3, 0\n"
" # exit application\n"
" bl _exit\n"
" nop\n"
#if _CALL_ELF == 2
" .size make_fcontext, .-make_fcontext\n"
#else
# ifdef _CALL_LINUX
" .size .make_fcontext, .-.L.make_fcontext\n"
# else
" .size .make_fcontext, .-.make_fcontext\n"
# endif
#endif
);
#endif
#if defined(LIBCONTEXT_USE_WINFIBER) && (defined(LIBCONTEXT_PLATFORM_msvc_x86_64) || defined(LIBCONTEXT_PLATFORM_msvc_i386))
#include <map>
#ifdef __cplusplus
extern "C" {
#endif
#include <windows.h>
namespace libcontext
{
static int threadHasFibers = 0;
struct FiberData
{
intptr_t inValue;
intptr_t outValue;
void(*entry)(intptr_t);
};
static std::map<fcontext_t, FiberData> fiberParams;
static void fiberEntry(LPVOID params)
{
auto ctx = (fcontext_t) GetCurrentFiber();
auto& d = fiberParams[ctx];
d.entry(d.inValue);
}
fcontext_t LIBCONTEXT_CALL_CONVENTION make_fcontext(void* sp, size_t size, void(*fn)(intptr_t))
{
if (!threadHasFibers)
{
ConvertThreadToFiberEx( nullptr, FIBER_FLAG_FLOAT_SWITCH );
threadHasFibers = 1;
}
fcontext_t ctx = CreateFiberEx( size - 1, size, FIBER_FLAG_FLOAT_SWITCH, (LPFIBER_START_ROUTINE) fiberEntry, nullptr );
fiberParams[ctx].entry = fn;
return ctx;
}
intptr_t LIBCONTEXT_CALL_CONVENTION jump_fcontext( fcontext_t* ofc, fcontext_t nfc,
intptr_t vp, bool preserve_fpu )
{
*ofc = GetCurrentFiber();
fiberParams[nfc].inValue = vp;
fiberParams[nfc].outValue = vp;
SwitchToFiber(nfc);
return fiberParams[*ofc].outValue;
}
void LIBCONTEXT_CALL_CONVENTION release_fcontext( fcontext_t ctx )
{
if( ctx == nullptr )
return;
if( fiberParams.find( ctx ) != fiberParams.end() )
{
fiberParams.erase( ctx );
}
DeleteFiber( ctx );
}
}; // namespace libcontext
#ifdef __cplusplus
};
#endif
#else // defined(LIBCONTEXT_USE_WINFIBER) && (defined(LIBCONTEXT_PLATFORM_msvc_x86_64) || defined(LIBCONTEXT_PLATFORM_msvc_i386))
#ifdef __cplusplus
extern "C" {
#endif
namespace libcontext
{
void LIBCONTEXT_CALL_CONVENTION release_fcontext( fcontext_t ctx )
{
// do nothing...
}
}; // namespace libcontext
#ifdef __cplusplus
};
#endif // defined(LIBCONTEXT_PLATFORM_msvc_x86_64) || defined(LIBCONTEXT_PLATFORM_msvc_i386)
#endif