#if defined(LISP_FEATURE_SB_THREAD)
stw reg_ZERO,THREAD_FOREIGN_FUNCTION_CALL_ACTIVE_OFFSET(reg_THREAD)
lwz reg_BSP,THREAD_BINDING_STACK_POINTER_OFFSET(reg_THREAD)
#if defined(LISP_FEATURE_SB_THREAD)
stw reg_ZERO,THREAD_FOREIGN_FUNCTION_CALL_ACTIVE_OFFSET(reg_THREAD)
lwz reg_BSP,THREAD_BINDING_STACK_POINTER_OFFSET(reg_THREAD)
add reg_ALLOC,reg_ALLOC,reg_NL4
/* No longer atomic, and check for interrupt */
add reg_ALLOC,reg_ALLOC,reg_NL4
/* No longer atomic, and check for interrupt */
- subi reg_ALLOC,reg_ALLOC,4
- andi. reg_NL3, reg_ALLOC, 1
+ subi reg_ALLOC,reg_ALLOC,flag_PseudoAtomic
+ andi. reg_NL3, reg_ALLOC, flag_PseudoAtomicInterrupted
- subi reg_ALLOC, reg_ALLOC, 4
- andi. reg_NL3, reg_ALLOC, 1
+ subi reg_ALLOC, reg_ALLOC, flag_PseudoAtomic
+ andi. reg_NL3, reg_ALLOC, flag_PseudoAtomicInterrupted
/* Convert the return address to an offset and save it on the stack. */
sub reg_NFP,reg_LIP,reg_CODE
/* Convert the return address to an offset and save it on the stack. */
sub reg_NFP,reg_LIP,reg_CODE
#endif
/* load(reg_POLL,saver2) */
/* Disable pseudo-atomic; check pending interrupt */
#endif
/* load(reg_POLL,saver2) */
/* Disable pseudo-atomic; check pending interrupt */
- subi reg_ALLOC, reg_ALLOC, 4
- andi. reg_NL3, reg_ALLOC, 1
+ subi reg_ALLOC, reg_ALLOC, flag_PseudoAtomic
+ andi. reg_NL3, reg_ALLOC, flag_PseudoAtomicInterrupted
- subi reg_ALLOC, reg_ALLOC, 4
- andi. reg_NL3, reg_ALLOC, 1
+ subi reg_ALLOC, reg_ALLOC, flag_PseudoAtomic
+ andi. reg_NL3, reg_ALLOC, flag_PseudoAtomicInterrupted