mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Remove unused getters for register backing store base

Browse source 
* libguile/gc.h:
* libguile/threads.c: Remove unused implementations of
  scm_ia64_register_backing_store_base, as libgc does this for us.
This commit is contained in:
Andy Wingo 2018-06-17 10:46:10 +02:00
parent 418a7d7af9
commit b2515e65bd
2 changed files with 2 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

23
libguile/threads.c
View file

@ -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;