X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fx86-64-assem.S;h=2e8e1c7667343a2a8e11240543b712b25aa8cfe4;hb=37ded584cea0417c261a043301d9ea3a83916f0a;hp=d0cc742db775381eb476012203f4ae394bdf804a;hpb=0f234877047c56ca945fe54e9e77a9cc2c8141cb;p=sbcl.git diff --git a/src/runtime/x86-64-assem.S b/src/runtime/x86-64-assem.S index d0cc742..2e8e1c7 100644 --- a/src/runtime/x86-64-assem.S +++ b/src/runtime/x86-64-assem.S @@ -141,7 +141,11 @@ GNAME(call_into_lisp_first_time): push %rbp # Save old frame pointer. mov %rsp,%rbp # Establish new frame. mov %rsp,ALIEN_STACK + SYMBOL_VALUE_OFFSET +#if defined(LISP_FEATURE_DARWIN) movq GSYM(GNAME(all_threads)),%rax +#else + movq GNAME(all_threads),%rax +#endif mov THREAD_CONTROL_STACK_START_OFFSET(%rax) ,%rsp /* don't think too hard about what happens if we get interrupted * here */