head	1.1;
access;
symbols
	pkgsrc-2026Q2:1.1.0.36
	pkgsrc-2026Q2-base:1.1
	pkgsrc-2026Q1:1.1.0.34
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.32
	pkgsrc-2025Q4-base:1.1
	pkgsrc-2025Q3:1.1.0.30
	pkgsrc-2025Q3-base:1.1
	pkgsrc-2025Q2:1.1.0.28
	pkgsrc-2025Q2-base:1.1
	pkgsrc-2025Q1:1.1.0.26
	pkgsrc-2025Q1-base:1.1
	pkgsrc-2024Q4:1.1.0.24
	pkgsrc-2024Q4-base:1.1
	pkgsrc-2024Q3:1.1.0.22
	pkgsrc-2024Q3-base:1.1
	pkgsrc-2024Q2:1.1.0.20
	pkgsrc-2024Q2-base:1.1
	pkgsrc-2024Q1:1.1.0.18
	pkgsrc-2024Q1-base:1.1
	pkgsrc-2023Q4:1.1.0.16
	pkgsrc-2023Q4-base:1.1
	pkgsrc-2023Q3:1.1.0.14
	pkgsrc-2023Q3-base:1.1
	pkgsrc-2023Q2:1.1.0.12
	pkgsrc-2023Q2-base:1.1
	pkgsrc-2023Q1:1.1.0.10
	pkgsrc-2023Q1-base:1.1
	pkgsrc-2022Q4:1.1.0.8
	pkgsrc-2022Q4-base:1.1
	pkgsrc-2022Q3:1.1.0.6
	pkgsrc-2022Q3-base:1.1
	pkgsrc-2022Q2:1.1.0.4
	pkgsrc-2022Q2-base:1.1
	pkgsrc-2022Q1:1.1.0.2
	pkgsrc-2022Q1-base:1.1;
locks; strict;
comment	@# @;


1.1
date	2022.03.07.20.34.16;	author wiz;	state Exp;
branches;
next	;
commitid	t9lWbXYPIVaKekvD;


desc
@@


1.1
log
@lang/guile18: import guile18-1.8.8nb11

Re-import of lang/guile to avoid having an ancient version as the default.

GUILE, GNU's Ubiquitous Intelligent Language for Extension, is a library
that implements the Scheme language plus various convenient facilities.
It's designed so that you can link it into an application or utility to
make it extensible. Our plan is to link this library into all GNU programs
that call for extensibility.

This is an extremely old version of guile.  It is installed into
guile/1.8 within PREFIX.
@
text
@$NetBSD: patch-ao,v 1.3 2009/04/07 10:53:08 drochner Exp $

--- libguile/threads.c.orig	2008-12-08 18:42:56.000000000 +0100
+++ libguile/threads.c
@@@@ -624,7 +624,7 @@@@ scm_i_init_thread_for_guile (SCM_STACKIT
 
 #if SCM_USE_PTHREAD_THREADS
 
-#if HAVE_PTHREAD_ATTR_GETSTACK && HAVE_PTHREAD_GETATTR_NP
+#if HAVE_PTHREAD_ATTR_GETSTACK && (HAVE_PTHREAD_GETATTR_NP || HAVE_PTHREAD_ATTR_GET_NP)
 /* This method for GNU/Linux and perhaps some other systems.
    It's not for MacOS X or Solaris 10, since pthread_getattr_np is not
    available on them.  */
@@@@ -637,9 +637,17 @@@@ get_thread_stack_base ()
   void *start, *end;
   size_t size;
 
+#ifdef HAVE_PTHREAD_ATTR_GET_NP
+  pthread_attr_init(&attr);
+  pthread_attr_get_np(pthread_self (), &attr);
+#else
   pthread_getattr_np (pthread_self (), &attr);
+#endif
   pthread_attr_getstack (&attr, &start, &size);
   end = (char *)start + size;
+#ifdef HAVE_PTHREAD_ATTR_GET_NP
+  pthread_attr_destroy(&attr);
+#endif
 
   /* XXX - pthread_getattr_np from LinuxThreads does not seem to work
      for the main thread, but we can use scm_get_stack_base in that
@