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

Fix vtable base layout

Browse source 
* libguile/struct.h (SCM_VTABLE_BASE_LAYOUT): Update for unboxed-fields
representation change.
* module/oop/goops.scm (fold-class-slots): Likewise.
This commit is contained in:
Andy Wingo 2025-06-24 15:12:33 +02:00
parent bd1e5ff688
commit 91ba12f444
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/struct.h
View file

@ -61,7 +61,7 @@
"pw" /* printer */ \ "pw" /* printer */ \
"ph" /* name (hidden from make-struct for back-compat reasons) */ \ "ph" /* name (hidden from make-struct for back-compat reasons) */ \
"uh" /* size */ \ "uh" /* size */ \
"uh" /* unboxed fields */ \ "ph" /* unboxed fields */ \
"uh" /* reserved */ "uh" /* reserved */
#define scm_vtable_index_layout 0 /* A symbol describing the physical arrangement of this type. */ #define scm_vtable_index_layout 0 /* A symbol describing the physical arrangement of this type. */

2
module/oop/goops.scm
View file

@ -192,7 +192,7 @@
(print) (print)
(name #:class <protected-hidden-slot>) (name #:class <protected-hidden-slot>)
(nfields #:class <hidden-slot>) (nfields #:class <hidden-slot>)
(%reserved-6 #:class <hidden-slot>) (unboxed-fields #:class <protected-hidden-slot>)
(%reserved-7 #:class <hidden-slot>) (%reserved-7 #:class <hidden-slot>)
(direct-supers) (direct-supers)
(direct-slots) (direct-slots)