[Guile-commits] 09/11: Remove unused getters for register backing store base

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit b2515e65bd7d824f71ff103efd2b8c42d60ab30e
Author: Andy Wingo <address@hidden>
Date:   Sun Jun 17 10:46:10 2018 +0200

    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.
---
 libguile/gc.h      |  5 ++---
 libguile/threads.c | 23 -----------------------
 2 files changed, 2 insertions(+), 26 deletions(-)

diff --git a/libguile/gc.h b/libguile/gc.h
index 7344699..7945f61 100644
--- a/libguile/gc.h
+++ b/libguile/gc.h
@@ -3,8 +3,8 @@
 #ifndef SCM_GC_H
 #define SCM_GC_H
 
-/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2006,
- *   2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, 
Inc.
+/* Copyright (C) 1995-1996,1998-2004,2006-2014,2018
+ *   Free Software Foundation, Inc.
  *
  * This library is free software; you can redistribute it and/or
  * 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;
 
 #ifdef __ia64__
-void *scm_ia64_register_backing_store_base (void);
 void *scm_ia64_ar_bsp (const void *);
 #endif
 
diff --git a/libguile/threads.c b/libguile/threads.c
index 7fa75dd..a099eef 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;