projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.25.52: go through lisp_memory_fault_error on all platforms
[sbcl.git]
/
src
/
runtime
/
gencgc.c
diff --git
a/src/runtime/gencgc.c
b/src/runtime/gencgc.c
index
5e5620f
..
b9bd862
100644
(file)
--- a/
src/runtime/gencgc.c
+++ b/
src/runtime/gencgc.c
@@
-4728,14
+4728,8
@@
general_alloc_internal(long nbytes, int page_type_flag, struct alloc_region *reg
#ifdef LISP_FEATURE_PPC
/* PPC calls alloc() from a trap, look up the most
* recent one and frob that. */
#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
#else
maybe_save_gc_mask_and_block_deferrables(NULL);
#endif