mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

2003-06-25 Stefan Jahn <stefan@lkcc.org>

Browse source 
* continuations.c: Redeclaration of getcontext() via the
        __asm__ ("getcontext") directive.

        * continuations.h: Include <ucontext.h> instead of
        <sys/ucontext.h>.
This commit is contained in:
Stefan Jahn 2003-06-25 18:12:35 +00:00
parent 8644044829
commit 78b6566ece
3 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/ChangeLog
View file

@ -1,3 +1,11 @@
2003-06-25 Stefan Jahn <stefan@lkcc.org>
* continuations.c: Redeclaration of getcontext() via the
__asm__ ("getcontext") directive.
* continuations.h: Include <ucontext.h> instead of
<sys/ucontext.h>.
2003-06-21 Kevin Ryde <user42@zip.com.au>
* numbers.c (_GNU_SOURCE): #define, to get C99 things.

5
libguile/continuations.c
View file

@ -97,8 +97,7 @@ struct rv
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 @@ scm_make_continuation (int *first)
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 =

2
libguile/continuations.h
View file

@ -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__ */