diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-20 21:47:09 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-20 21:47:09 +0000 |
commit | b17810e6f0c59baea2a88bc497c80852ed757ca1 (patch) | |
tree | 1e1342f17a106f2eae14d1921f6ca55865b16ed6 /libguile/gc-mark.c | |
parent | 591527227078eb08eae923f952d319a35038b970 (diff) | |
download | guile-b17810e6f0c59baea2a88bc497c80852ed757ca1.tar.gz |
(SCM_MARK_BACKING_STORE): Removed, it was unused.
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r-- | libguile/gc-mark.c | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c index 8c5991fd2..1aa036b7a 100644 --- a/libguile/gc-mark.c +++ b/libguile/gc-mark.c @@ -63,22 +63,6 @@ extern unsigned long * __libc_ia64_register_backing_store_base; #include <unistd.h> #endif -#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 *) __libc_ia64_register_backing_store_base; \ - top = (SCM_STACKITEM *) ctx.uc_mcontext.sc_ar_bsp; \ - scm_mark_locations (bot, top - bot); } while (0) -#else -# define SCM_MARK_BACKING_STORE() -#endif - - /* Entry point for this file. */ |