mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* continuations.h: Include <ucontext.h> on IA64 instead of

Browse source 
<sys/ucontext.h>.
* continuations.c (scm_make_continuation): Use ia64_getcontext
instead of getcontext on IA64.
This commit is contained in:
Marius Vollmer 2003-09-12 15:32:15 +00:00
parent 434a0e3312
commit deddb10425
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/continuations.c
View file

@ -120,8 +120,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
@ -163,7 +162,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 =