mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-04 00:30:30 +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

3
module/oop/goops.scm
View file

@ -71,7 +71,7 @@
<fluid> <dynamic-state> <frame> <vm> <vm-continuation>
<keyword> <syntax> <atomic-box> <thread> <bitvector>
<finalizer> <ephemeron> <ephemeron-table> <character-set>
<mutex> <condition-variable>
<mutex> <condition-variable> <continuation>
;; Numbers.
<number> <complex> <real> <integer> <fraction>
@ -1086,6 +1086,7 @@ slots as we go."
(define-standard-class <character-set> (<top>))
(define-standard-class <condition-variable> (<top>))
(define-standard-class <mutex> (<top>))
(define-standard-class <continuation> (<top>))
(define-standard-class <thread> (<top>))
(define-standard-class <number> (<top>))
(define-standard-class <complex> (<number>))