diff options
author | Andy Wingo <wingo@pobox.com> | 2018-06-17 10:46:10 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-06-17 13:41:03 +0200 |
commit | b2515e65bd7d824f71ff103efd2b8c42d60ab30e (patch) | |
tree | ab00d427077cadeb2a60dfe7d3baab786f1a1e03 /libguile/threads.c | |
parent | 418a7d7af935524f87a940545a747066f1fd6b1e (diff) | |
download | guile-b2515e65bd7d824f71ff103efd2b8c42d60ab30e.tar.gz |
Remove unused getters for register backing store base
* libguile/gc.h:
* libguile/threads.c: Remove unused implementations of
scm_ia64_register_backing_store_base, as libgc does this for us.
Diffstat (limited to 'libguile/threads.c')
-rw-r--r-- | libguile/threads.c | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/libguile/threads.c b/libguile/threads.c index 7fa75dd5a..a099eef0a 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -1854,18 +1854,6 @@ scm_init_threads_default_dynamic_state () #ifdef __ia64__ # ifdef __hpux -# include <sys/param.h> -# include <sys/pstat.h> -void * -scm_ia64_register_backing_store_base (void) -{ - struct pst_vm_status vm_status; - int i = 0; - while (pstat_getprocvm (&vm_status, sizeof (vm_status), 0, i++) == 1) - if (vm_status.pst_type == PS_RSESTACK) - return (void *) vm_status.pst_vaddr; - abort (); -} void * scm_ia64_ar_bsp (const void *ctx) { @@ -1877,12 +1865,6 @@ scm_ia64_ar_bsp (const void *ctx) # ifdef linux # include <ucontext.h> void * -scm_ia64_register_backing_store_base (void) -{ - extern void *__libc_ia64_register_backing_store_base; - return __libc_ia64_register_backing_store_base; -} -void * scm_ia64_ar_bsp (const void *opaque) { const ucontext_t *ctx = opaque; @@ -1892,11 +1874,6 @@ scm_ia64_ar_bsp (const void *opaque) # ifdef __FreeBSD__ # include <ucontext.h> void * -scm_ia64_register_backing_store_base (void) -{ - return (void *)0x8000000000000000; -} -void * scm_ia64_ar_bsp (const void *opaque) { const ucontext_t *ctx = opaque; |