mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +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

5
libguile/gc.h
View file

@ -3,8 +3,8 @@
#ifndef SCM_GC_H #ifndef SCM_GC_H
#define SCM_GC_H #define SCM_GC_H
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2006, /* Copyright (C) 1995-1996,1998-2004,2006-2014,2018
* 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc. * Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -94,7 +94,6 @@ SCM_INTERNAL scm_i_pthread_mutex_t scm_i_gc_admin_mutex;
SCM_INTERNAL scm_i_pthread_mutex_t scm_i_sweep_mutex; SCM_INTERNAL scm_i_pthread_mutex_t scm_i_sweep_mutex;
#ifdef __ia64__ #ifdef __ia64__
void *scm_ia64_register_backing_store_base (void);
void *scm_ia64_ar_bsp (const void *); void *scm_ia64_ar_bsp (const void *);
#endif #endif

23
libguile/threads.c
View file

@ -1854,18 +1854,6 @@ scm_init_threads_default_dynamic_state ()
#ifdef __ia64__ #ifdef __ia64__
# ifdef __hpux # 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 * void *
scm_ia64_ar_bsp (const void *ctx) scm_ia64_ar_bsp (const void *ctx)
{ {
@ -1877,12 +1865,6 @@ scm_ia64_ar_bsp (const void *ctx)
# ifdef linux # ifdef linux
# include <ucontext.h> # include <ucontext.h>
void * 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) scm_ia64_ar_bsp (const void *opaque)
{ {
const ucontext_t *ctx = opaque; const ucontext_t *ctx = opaque;
@ -1892,11 +1874,6 @@ scm_ia64_ar_bsp (const void *opaque)
# ifdef __FreeBSD__ # ifdef __FreeBSD__
# include <ucontext.h> # include <ucontext.h>
void * void *
scm_ia64_register_backing_store_base (void)
{
return (void *)0x8000000000000000;
}
void *
scm_ia64_ar_bsp (const void *opaque) scm_ia64_ar_bsp (const void *opaque)
{ {
const ucontext_t *ctx = opaque; const ucontext_t *ctx = opaque;