Re: Guile garbage collector on ia64-linux

[stefan <stefan@lkcc.org>]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 1449 bytes --]

On Wed, 25 Jun 2003, David Mosberger wrote:

> >>>>> On Wed, 25 Jun 2003 04:58:59 +0200 (CEST), stefan <stefan@lkcc.org> said:
>
>   Stefan>  * have some header where ucontext_t is declared but
>   Stefan> setcontext()/getcontext() is not -> so we can redeclare it
>   Stefan> to make getcontext() return the 'struct rv'.
>
> One way of achieving this is to do:
>
> 	#define getcontext hide_getcontext
> 	#include <ucontext.h>
> 	#undef getcontext
>
> Andreas suggested another method.  Both have their ups and downs.
>
>   Stefan>  * determination of the size and location of the backing
>   Stefan> store; this has been previously achieved by:
>   Stefan> ctx.uc_mcontext.sc_ar_bsp -> the top
>   Stefan> __libc_ia64_register_backing_store_base -> the bottom Newer
>   Stefan> glibc headers don't have 'sc_ar_bsp', but things like
>   Stefan> 'ar_bsp_base' or 'ar_bspstore'.  Can something in the
>   Stefan> structure ucontext_t be used to achieve the same?  Will this
>   Stefan> change often in the future?
>
> This doesn't sound right.  There were no member-name changes "struct
> sigcontext".  I just checked the current libc CVS tree and it has:
>
> struct sigcontext
> {
>     :
>   unsigned long int sc_ar_bsp;  /* backing store pointer */

Finally I applied a patch to CVS Guile.  This should work now.  Could
please someone backport it (attached) to Guile 1.6.x recent?  Then the
Debian builders may succeed...

Cheers,
	stefan@lkcc.org

[-- Attachment #2: Type: TEXT/PLAIN, Size: 1519 bytes --]

? g.diff
Index: libguile/continuations.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/continuations.c,v
retrieving revision 1.49
diff -u -r1.49 continuations.c
--- libguile/continuations.c	20 Apr 2003 07:19:38 -0000	1.49
+++ libguile/continuations.c	25 Jun 2003 18:07:12 -0000
@@ -97,8 +97,7 @@
   long retval;
   long first_return;
 };
-extern struct rv getcontext (ucontext_t *);
-extern int setcontext (ucontext_t *);
+extern struct rv ia64_getcontext (ucontext_t *) __asm__ ("getcontext");
 #endif /* __ia64__ */
 
 /* this may return more than once: the first time with the escape
@@ -138,7 +137,7 @@
   memcpy (continuation->stack, src, sizeof (SCM_STACKITEM) * stack_size);
 
 #ifdef __ia64__
-  rv = getcontext (&continuation->ctx);
+  rv = ia64_getcontext (&continuation->ctx);
   if (rv.first_return)
     {
       continuation->backing_store_size = 
Index: libguile/continuations.h
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/continuations.h,v
retrieving revision 1.30
diff -u -r1.30 continuations.h
--- libguile/continuations.h	20 Apr 2003 07:19:38 -0000	1.30
+++ libguile/continuations.h	25 Jun 2003 18:07:12 -0000
@@ -26,7 +26,7 @@
 
 #ifdef __ia64__
 #include <signal.h>
-#include <sys/ucontext.h>
+#include <ucontext.h>
 extern unsigned long * __libc_ia64_register_backing_store_base;
 #endif /* __ia64__ */
 \f

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel