| … | |
… | |
| 86 | volatile coro_func func = coro_init_func; |
86 | volatile coro_func func = coro_init_func; |
| 87 | volatile void *arg = coro_init_arg; |
87 | volatile void *arg = coro_init_arg; |
| 88 | |
88 | |
| 89 | coro_transfer (new_coro, create_coro); |
89 | coro_transfer (new_coro, create_coro); |
| 90 | |
90 | |
| 91 | #if __linux && __amd64 |
91 | #if __GCC_HAVE_DWARF2_CFI_ASM && __amd64 |
| 92 | /* we blindly assume on any __linux with __amd64 we have a new enough gas with .cfi_undefined support */ |
|
|
| 93 | asm (".cfi_undefined rip"); |
92 | asm (".cfi_undefined rip"); |
| 94 | #endif |
93 | #endif |
| 95 | |
94 | |
| 96 | func ((void *)arg); |
95 | func ((void *)arg); |
| 97 | |
96 | |
| … | |
… | |
| 115 | |
114 | |
| 116 | # endif |
115 | # endif |
| 117 | |
116 | |
| 118 | # if CORO_ASM |
117 | # if CORO_ASM |
| 119 | |
118 | |
|
|
119 | #if _WIN32 |
|
|
120 | #define CORO_WIN_TIB 1 |
|
|
121 | #endif |
|
|
122 | |
| 120 | asm ( |
123 | asm ( |
| 121 | ".text\n" |
124 | "\t.text\n" |
| 122 | ".globl coro_transfer\n" |
125 | "\t.globl coro_transfer\n" |
| 123 | ".type coro_transfer, @function\n" |
|
|
| 124 | "coro_transfer:\n" |
126 | "coro_transfer:\n" |
| 125 | /* windows, of course, gives a shit on the amd64 ABI and uses different registers */ |
127 | /* windows, of course, gives a shit on the amd64 ABI and uses different registers */ |
| 126 | /* http://blogs.msdn.com/freik/archive/2005/03/17/398200.aspx */ |
128 | /* http://blogs.msdn.com/freik/archive/2005/03/17/398200.aspx */ |
| 127 | #if __amd64 |
129 | #if __amd64 |
| 128 | #ifdef _WIN32 |
130 | #ifdef WIN32 |
| 129 | /* TODO: xmm6..15 also would need to be saved. sigh. */ |
131 | /* TODO: xmm6..15 also would need to be saved. sigh. */ |
| 130 | #define NUM_SAVED 8 |
132 | #define NUM_SAVED 8 |
| 131 | #undef CORO_WIN_TIB |
|
|
| 132 | "\tpushq %rsi\n" |
133 | "\tpushq %rsi\n" |
| 133 | "\tpushq %rdi\n" |
134 | "\tpushq %rdi\n" |
| 134 | "\tpushq %rbp\n" |
135 | "\tpushq %rbp\n" |
| 135 | "\tpushq %rbx\n" |
136 | "\tpushq %rbx\n" |
| 136 | "\tpushq %r12\n" |
137 | "\tpushq %r12\n" |
| 137 | "\tpushq %r13\n" |
138 | "\tpushq %r13\n" |
| 138 | "\tpushq %r14\n" |
139 | "\tpushq %r14\n" |
| 139 | "\tpushq %r15\n" |
140 | "\tpushq %r15\n" |
|
|
141 | #if CORO_WIN_TIB |
|
|
142 | "\tpushq %fs:0x0\n" |
|
|
143 | "\tpushq %fs:0x8\n" |
|
|
144 | "\tpushq %fs:0xc\n" |
|
|
145 | #endif |
| 140 | "\tmovq %rsp, (%rcx)\n" |
146 | "\tmovq %rsp, (%rcx)\n" |
| 141 | "\tmovq (%rdx), %rsp\n" |
147 | "\tmovq (%rdx), %rsp\n" |
|
|
148 | #if CORO_WIN_TIB |
|
|
149 | "\tpopq %fs:0xc\n" |
|
|
150 | "\tpopq %fs:0x8\n" |
|
|
151 | "\tpopq %fs:0x0\n" |
|
|
152 | #endif |
| 142 | "\tpopq %r15\n" |
153 | "\tpopq %r15\n" |
| 143 | "\tpopq %r14\n" |
154 | "\tpopq %r14\n" |
| 144 | "\tpopq %r13\n" |
155 | "\tpopq %r13\n" |
| 145 | "\tpopq %r12\n" |
156 | "\tpopq %r12\n" |
| 146 | "\tpopq %rbx\n" |
157 | "\tpopq %rbx\n" |
| … | |
… | |
| 425 | |
436 | |
| 426 | pthread_attr_init (&attr); |
437 | pthread_attr_init (&attr); |
| 427 | #if __UCLIBC__ |
438 | #if __UCLIBC__ |
| 428 | /* exists, but is borked */ |
439 | /* exists, but is borked */ |
| 429 | /*pthread_attr_setstacksize (&attr, (size_t)ssize);*/ |
440 | /*pthread_attr_setstacksize (&attr, (size_t)ssize);*/ |
|
|
441 | #elif __CYGWIN__ |
|
|
442 | /* POSIX, not here */ |
|
|
443 | pthread_attr_setstacksize (&attr, (size_t)ssize); |
| 430 | #else |
444 | #else |
| 431 | pthread_attr_setstack (&attr, sptr, (size_t)ssize); |
445 | pthread_attr_setstack (&attr, sptr, (size_t)ssize); |
| 432 | #endif |
446 | #endif |
| 433 | pthread_attr_setscope (&attr, PTHREAD_SCOPE_PROCESS); |
447 | pthread_attr_setscope (&attr, PTHREAD_SCOPE_PROCESS); |
| 434 | pthread_create (&ctx->id, &attr, coro_init, &args); |
448 | pthread_create (&ctx->id, &attr, coro_init, &args); |
