#ifdef LISP_FEATURE_PPC
/* PPC calls alloc() from a trap, look up the most
* recent one and frob that. */
- {
- int context_index =
- fixnum_value(SymbolValue(FREE_INTERRUPT_CONTEXT_INDEX,
- thread));
- os_context_t *context =
- thread->interrupt_contexts[context_index - 1];
- maybe_save_gc_mask_and_block_deferrables(context);
- }
+ maybe_save_gc_mask_and_block_deferrables
+ (get_interrupt_context_for_thread(thread));
#else
maybe_save_gc_mask_and_block_deferrables(NULL);
#endif