mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-29 16:30:19 +02:00
Remove unused IA64 macro.
* libguile/threads.c (SCM_MARK_BACKING_STORE): Remove.
This commit is contained in:
parent
7583976b3a
commit
b8e18ac25d
1 changed files with 0 additions and 20 deletions
|
@ -1596,26 +1596,6 @@ SCM_DEFINE (scm_condition_variable_p, "condition-variable?", 1, 0, 0,
|
||||||
}
|
}
|
||||||
#undef FUNC_NAME
|
#undef FUNC_NAME
|
||||||
|
|
||||||
/*** Marking stacks */
|
|
||||||
|
|
||||||
/* XXX - what to do with this? Do we need to handle this for blocked
|
|
||||||
threads as well?
|
|
||||||
*/
|
|
||||||
#ifdef __ia64__
|
|
||||||
# define SCM_MARK_BACKING_STORE() do { \
|
|
||||||
ucontext_t ctx; \
|
|
||||||
SCM_STACKITEM * top, * bot; \
|
|
||||||
getcontext (&ctx); \
|
|
||||||
scm_mark_locations ((SCM_STACKITEM *) &ctx.uc_mcontext, \
|
|
||||||
((size_t) (sizeof (SCM_STACKITEM) - 1 + sizeof ctx.uc_mcontext) \
|
|
||||||
/ sizeof (SCM_STACKITEM))); \
|
|
||||||
bot = (SCM_STACKITEM *) SCM_I_CURRENT_THREAD->register_backing_store_base; \
|
|
||||||
top = (SCM_STACKITEM *) scm_ia64_ar_bsp (&ctx); \
|
|
||||||
scm_mark_locations (bot, top - bot); } while (0)
|
|
||||||
#else
|
|
||||||
# define SCM_MARK_BACKING_STORE()
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/*** Select */
|
/*** Select */
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue