summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/gc.h5
-rw-r--r--libguile/threads.c23
2 files changed, 2 insertions, 26 deletions
diff --git a/libguile/gc.h b/libguile/gc.h
index 734469929..7945f6193 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 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;