mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 15:40:38 +02:00
Code Activity

Give continuations (contregs) their own static tc16

Browse source 
* libguile/continuations-internal.h: New file, for internal definitions.
* libguile/continuations.h: Move out internal definitions.
* libguile/Makefile.am: Add new file.
* libguile/continuations.c: Adapt to put the tag in the beginning of the
continuation (contregs) structure.
* libguile/eq.c:
* libguile/goops.c:
* libguile/init.c:
* libguile/print.c:
* libguile/scm.h:
* libguile/stacks.c:
* libguile/vm.c:
* module/oop/goops.scm: Adapt to contregs tc16 change.
This commit is contained in:
Andy Wingo 2025-06-13 13:13:02 +02:00
parent f47fe6e752
commit 12da6739b1
12 changed files with 156 additions and 133 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/print.c
View file

@ -37,7 +37,7 @@
#include "bytevectors-internal.h"
#include "boolean.h"
#include "chars.h"
#include "continuations.h"
#include "continuations-internal.h"
#include "control.h"
#include "ephemerons.h"
#include "eval.h"
@ -798,6 +798,9 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
case scm_tc16_mutex:
scm_i_print_mutex (exp, port, pstate);
break;
case scm_tc16_continuation:
scm_i_print_continuation (exp, port, pstate);
break;
default:
abort ();
}