diff options
author | Andy Wingo <wingo@pobox.com> | 2017-09-26 20:47:27 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2017-09-26 20:47:27 +0200 |
commit | f32500acca82f13824e0d6d06836411f9d0c9c01 (patch) | |
tree | 566bce688217951e921f5af1be40f6ebc09e3b0b /module/oop | |
parent | c3a81128478bed4a65a509d3a3a7074b712e94fd (diff) | |
download | guile-f32500acca82f13824e0d6d06836411f9d0c9c01.tar.gz |
Add new vtable reserved unboxed field
* libguile/struct.h (SCM_VTABLE_BASE_LAYOUT)
(scm_vtable_index_reserved_6): Add a reserved field.
* module/oop/goops.scm (fold-class-slots, unboxed-slot?): Reserve a new
unboxed field.
Diffstat (limited to 'module/oop')
-rw-r--r-- | module/oop/goops.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm index bd5cc7522..4bde684e7 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -190,7 +190,8 @@ (print) (name #:class <protected-hidden-slot>) (nfields #:class <hidden-slot>) - (%reserved #:class <hidden-slot>) + (%reserved-6 #:class <hidden-slot>) + (%reserved-7 #:class <hidden-slot>) (direct-supers) (direct-slots) (direct-subclasses) @@ -739,7 +740,7 @@ followed by its associated value. If @var{l} does not hold a value for (define (read-only-slot? slot) #f) (define (unboxed-slot? slot) (memq (%slot-definition-name slot) - '(flags instance-finalizer nfields %reserved))) + '(flags instance-finalizer nfields %reserved-6 %reserved-7))) (define (allocate-slots class slots) "Transform the computed list of direct slot definitions @var{slots} |